Vba to open workbook in full screen mode

[phil-007]

HI All,

I have the code

Sub HideStuff()
Application.DisplayFullScreen = TrueApplication.DisplayFormulaBar = FalseActiveWindow.DisplayWorkbookTabs = FalseActiveWindow.DisplayHeadings = FalseActiveWindow.DisplayGridlines = FalseEnd Sub

to just show my file in full screen mode, however I've found that it then applies the rules to any other excel file I have open/open afterwards.

Is that just the way it works, or is there a way to apply the full screen code just to this one workbook?

Thanks

Phil

 

[Sektor]

As you can notice, these are Application level properties, so that it applies to every workbook you open.

 

[phil-007]

Thanks for the reply,

DO you know of a way, just to apply the rules to a workbook?

 

[Sektor]

It's possible to revert values of DisplayFullScreen and others in Workbook_Activate and Workbook_Deactivate event handlers like this:

Private Sub Workbook_Activate()
    Application.DisplayFullScreen = True
End Sub


Private Sub Workbook_Deactivate()
    Application.DisplayFullScreen = False
End Sub