مخفي كردن نوار menu

[alisabet]

با سلام و عرض ادب خدمت اساتيد و كاربران محترم

چگونه نوار منو و نوار ابزار و همه application ها را مخفي كنم بگونه اي كه فقط و فقط سلولهاي شيت نشان داده شوند

[ali.b]

سلام
بفرمایید

Private Sub Workbook_Open()Set myRange = ActiveSheet
   Application.ScreenUpdating = False
   Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
   Application.DisplayFormulaBar = False
   Application.DisplayStatusBar = Not Application.DisplayStatusBar
   ActiveWindow.DisplayWorkbookTabs = False
 
   Dim wbBook As Workbook
   Dim wsSheet As Worksheet
 
   Set wbBook = ThisWorkbook
 
   For Each wsSheet In wbBook.Worksheets
      If Not wsSheet.Name = "Blank" Then wsSheet.Activate
         With ActiveWindow
            .DisplayHeadings = False
            .DisplayGridlines = False
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True,    Scenarios:=True, AllowFormattingRows:=True
            'ActiveSheet.EnableSelection = xlUnlockedCells
         End With
   Next wsSheet
 
myRange.Select
 

End Sub

[alisabet]

ممنون خيلي سريع بود متشكر