Gruppe
Menue
Bereich
Bar
Thema
Alle Menüs und Symbolleisten ausblenden
Problem
Wie kann ich alle Menü- und Symbolleisten einschließlich der Excel- und Tabellenblattschaltflächen in der oberech rechten Ecke des Fensters ausblenden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub AusBlenden()
CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
ActiveWorkbook.Protect Windows:=True
End Sub
Sub EinBlenden()
ActiveWorkbook.Unprotect
CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFullScreen = False
End Sub