نمایش 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