Application.DisplayFullScreen affecting any workbook I open

[yearego021]

I have a workbook that I want to open fullscreen. I'm using Application.FullScreen to accomplish this, but when I go to open a different workbook, it also opens full screen. The formula bar is also hidden. I think I've got the code I need just not set up right? Cancel as Boolean?? I have my close sub set up to undo the fullscreen, formula, and scroll bar changes, but don't think I have it set up right.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
'Set scoll area:
ws.ScrollArea = "$A$1:$Z$35"
Next ws

With Application
.DisplayFullScreen = True
End With

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub
Private Sub Workbook_Close()
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = True
End With

With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub

 

[Micron]

when I go to open a different workbook, it also opens full screen.

Are you closing the first workbook before opening the one where full screen was set?
Did you put break points on beforeclose and close events to make sure they both run?

 

[Micron]

After googling for 20 or 30 minutes I could find nothing as to why your close event would not fire for me. The below changes seem to work but I don't understand the need for the hack. Maybe someone else will know. BTW, it would be nice if you indented your code because without doing that, it's not much better than not using code tags at all. Most of the time I won't bother to read lotsa code without tags.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbook_Close
End Sub

Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    'Set scoll area:
    ws.ScrollArea = "$A$1:$Z$35"
Next ws

With Application
    .DisplayFullScreen = True
End With

With ActiveWindow
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
    .DisplayWorkbookTabs = False
End With

End Sub

Private Sub Workbook_Close()

With Application
    .DisplayFullScreen = False
    .DisplayFormulaBar = True
End With

With ActiveWindow
    .DisplayHorizontalScrollBar = True
    .DisplayVerticalScrollBar = True
    .DisplayWorkbookTabs = True
End With
ThisWorkbook.Saved = True
    
End Sub