أستاذ / محمد الدسوقى تحية طيبة وبعد
اود أن اعرف حضرتك ان موضوع اهتزاز الشاشة بدأ معى عندما وضعت خصائص اظهار واخفاء اشرطة المرور والأدوات وأنا وضعتها بهذا الشكل
Private Sub Worksheet_Activate()
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = False
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
End Sub
Private Sub Worksheet_Deactivate()
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = True
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
End Sub
,وبعد نصيحة حضرتك كتبتها بهذا الشكل ولم يتعير شئ
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = False
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Deactivate()
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = True
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
End Sub
أرجو الإفادة
ولكم جزيل الشكر