طلب كود لعرض الورقة

[أحمد فؤاد]

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

أساتذتي وأصدقائي

أريد كود ليتم عرض الصفحة Full Screen وإخفاء Formula bar و Headings و شريط الحالة

وعند إغلاق الملف

يستعيد كل شىء إلى وضعه الطبيعي ( أي عند فتح ملف أخر )

[رجب جاويش]

تفضل أخى

Book2.rar

[أحمد فؤاد]

بارك الله فيك

أستاذي رجب تم زيادة بعض الأسطر ممكن تراجعها لي

وشكرا

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Application.DisplayFullScreen = False

ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = True

ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = True

ActiveWorkbook.Application.CommandBars("STANDARD").Visible = True

ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = True

ActiveWorkbook.Application.DisplayStatusBar = True

ActiveWorkbook.Application.DisplayFormulaBar = True

ActiveWindow.DisplayHeadings = True

ActiveWindow.DisplayVerticalScrollBar = True

ActiveWindow.DisplayHorizontalScrollBar = True

ActiveWindow.DisplayWorkbookTabs = True

End Sub

Private Sub Workbook_Open()

ActiveWorkbook.Application.DisplayFullScreen = True

ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = False

ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = False

ActiveWorkbook.Application.CommandBars("STANDARD").Visible = False

ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = False

ActiveWorkbook.Application.DisplayStatusBar = False

ActiveWorkbook.Application.DisplayFormulaBar = False

ActiveWindow.DisplayHeadings = False

ActiveWindow.DisplayVerticalScrollBar = False

ActiveWindow.DisplayHorizontalScrollBar = False

ActiveWindow.DisplayWorkbookTabs = False

End Sub

[رجب جاويش]

أخى الفاضل

الأسطر التى تم زيادتها تمام وتنفذ المطلوب تمام