تنفيذ كود علي جميع اوراق العمل عند فتح الشيت

[محمدسلام]

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

لي عند حضراتكم طلب 

اريد ان انفذ هذه الأوامر عند فتح الشيت علي كل اوراق العمل بدل من تنفيذها علي كل ورقة علي حده

ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayGridlines = False
    Application.DisplayFullScreen = True

ولكم مني جزيل الشكر والتقدير

 

[عبدالله بشير عبدالله]

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

جرب الكود ويوضع في  THISWORKBOOK 

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Application.DisplayFullScreen = True
    Application.DisplayFormulaBar = False
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        With ActiveWindow
            .DisplayHeadings = False
            .DisplayGridlines = False
        End With
    Next ws
End Sub