Tam sayfa yapmak

[M.ACAR]

Çalıştığım sayfa'nın açıldığında menülerin gizlenerek tam sayfa yapılmasını sayfa'yı kapatırken tekrar önceki konumuna dönmesini nasıl bir kod ile yapabilirim.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

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

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