نمایش full screen اکسل

[ali.b]

سلام
این کد رو در قسمت thisworkbook محیط vb اکسل کپی کنید
باعث میشه کل فایل اکسل به صورت تمام صفحه مانیتور نمایش بده و هم فرمول بار و چیزای دیگه رو غیر فعال میگنه تا نیاز به مخفی کردن فرمول و نگرانی از تغییر اونها نباشید

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

اینم ی حالت دیگه

Private Sub Workbook_Activate()    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
 
End Sub
 
Private Sub Workbook_Deactivate()
 
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayWorkbookTabs = True
 

End Sub