.
Here some code that will get you started. You can Google for other examples and additional code to include if necessary.
NOTE : The following is NOT a complete project. You will need to work with it for your purposes.
Option Explicit
Sub hide_menu()
With Worksheets("Sheet1")
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
With Application
.CommandBars("Full Screen").Visible = False
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Standard").Visible = False
.CommandBars("Formatting").Visible = False
End With
'Hide sheet tabs
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
End With
End Sub
Sub unhide_menu()
Application.DisplayAlerts = False
With Worksheets("Sheet1")
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
With Application
'.CommandBars("Full Screen").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = True
'.CommandBars("Standard").Visible = True
.CommandBars("Formatting").Visible = True
End With
'Show sheet tabs
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayStatusBar = True
End With
Application.DisplayAlerts = True
End Sub
Bookmarks