Ich möchte beim öffnen einer bestimmten Exceldatei alle Symbolleisten und Menüleisten ausgeblendet. Es soll aber wirklich nur bei dieser einen Datei passieren.
Sobald ich Excel erneut starte oder eine andere Datei, sollen die Leisten wieder eingeblendet werden.
Ich habe das mal über folgende Befehle versucht.
Sub Symbolleisten_ausblenden()
CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
ActiveWorkbook.Protect Windows:=True
End Sub
Sub Symbolleisten_einblenden()
ActiveWorkbook.Unprotect
CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFullScreen = False
End Sub
Erster Fehler.
Wenn ich die Befehle, so wie hier zu sehen, über Schaltflächen ausführe funktioniert das mit dem Ein- und Ausblenden. Lasse ich das Ausblenden über
Private
Sub Workbook_Open() ausführen, bekomme ich Fehlermeldungen Laufzeitfehler 91.
Zweiter Fehler.
Öffne ich Excel erneut, bleiben alle Leisten weiterhin ausgeblendet.
Wie bekomm ich das hin.
Guß Jens