كود VBA لإخفاء شريط المهام (RIBBON) في الإكسيل

[saadallah]

سلام عليكم أساتذة باركالله فيكم أريد كود VBA لاخفاء شريط المهام(RIBBON)

[ابراهيم الحداد]

السلام عليكم ورحمة الله

انسخ هذين الكودين وضعهما فى حدث ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = True
Application.DisplayStatusBar = True
End Sub

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.DisplayScrollBars = False
Application.DisplayStatusBar = False
Application.ScreenUpdating = True

End Sub

 

[أحمد يوسف]

 

بارك الله فيك استاذ ابراهيم   حل ممتاز

لابد لكل من يقوم بطرح المشاركة والحصول على الإجابة المطلوبة والمرجوة اعطاء صاحب الفضل والأستاذ الكريم الذى انعم الله عليه من فضله حقه 

بمعنى الضغط له على الإعجاب او الشكر واعتقد ان هذا هو اقل ما تقدمه له

بارك الله فيكم جميعا اساتذتنا الكرام لكم الفضل بعد ربنا فى تعلمنا الإكسيل جعل الله كل هذه الأعمال فى ميزان حسناتكم