كود اخفاء أشرطة الأدوات والقوائم فى كل صفحات ملف الاكسيل

[محمد ابومروان]

السلام عليكم ... لابد من التحية عند بدء أى مشاركة ,,,عايز كود vba لاخفاء أشرطة الأدوات والقوائم فى الاكسل وذلك لعرض الشيت فى وضع فول سكرين .

وهل هذا الكود ينفع لكل الشيتات الموجودة فى المصنف ولا لازم كل شيت لوحدة يتم كتابة الكود له ..تحياتى لكم جميعا

انتبه من فضلك ,,عنوان مخالف جداً ..تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

[المشرفي]

تحياتنا لك  ..ضع الكود التالي في حدث المصنف ..لكل الشيتات في المصنف الواحد

Private Sub Workbook_Open()
ThisWorkbook.Application.WindowState = xlMaximized
ThisWorkbook.Application.DisplayFullScreen = True
End Sub

أما إذا أردت إخفاء تبويبات الأوراق يمكنك من ملف > خيارات > خيارات متقدمة > إخفاء التبويبات .... إلخ. 

تحياتنا لك.

[المشرفي]

يمكنك الاستعانة بهذا الملف إن شئت 

كود1 بحجم الشاشة:

Sub test()
ThisWorkbook.Application.WindowState = xlMaximized
ThisWorkbook.Application.DisplayFullScreen = True
    Application.WindowState = xlMaximized
    Application.DisplayFormulaBar = False
        With ActiveWindow
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = False
            .DisplayWorkbookTabs = False
            .DisplayHeadings = False
            .DisplayGridlines = False
                Cells.Select
                    With Selection.Interior
                        .Pattern = xlSolid
                        .PatternColorIndex = xlAutomatic
                        .ThemeColor = xlThemeColorAccent1
                        .TintAndShade = 0.799981688894314
                        .PatternTintAndShade = 0
                    End With
            End With
End Sub

كود2 بحجم عادي:

Sub test2()
ThisWorkbook.Application.WindowState = xlNormal
ThisWorkbook.Application.DisplayFullScreen = False
    Application.WindowState = xlNormal
    Application.DisplayFormulaBar = True
        With ActiveWindow
            .DisplayHorizontalScrollBar = True
            .DisplayVerticalScrollBar = True
            .DisplayWorkbookTabs = True
            .DisplayHeadings = True
            .DisplayGridlines = True
                Cells.Select
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
             ActiveWindow.DisplayGridlines = True
        End With
End Sub

 

test.xlsm

[محمد ابومروان]

شكرا أخى العزيز وعذرا فى تأخرى على شكرك