werkbalken verbergen in excell

[avdhorst]

Private Sub ActiveWindow_WindowState()
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True


Private Sub Worksheet_Deactivate()
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Application.DisplayFullScreen = False
End Sub

Heb deze code gebruikt in excell om de werkblaken te verbergen.
Nu is het echter zo dat als men excell nu minimaliseert of op vorig formaat drukt de werkblaken weer terug zijn dit wil ik ook blokeren kan iemand me helpen welke code ik daarvoor moet gebruiken?