Menüs ausblenden
22.11.2014 11:18:33
Stefan
ich möchte dem Benutzer der Excel-Tabelle gerne die Menüs nehmen.
Dazu habe ich nun folgen Code ergoogelt:
Sub Alles_Weg()
Application.DisplayFullScreen = True
Application.ScreenUpdating = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Worksheets("Tabelle1").Activate
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
Application.ScreenUpdating = False
End Sub
Gruß
Stefan
Anzeige