AW: Menüband einblenden
11.02.2015 09:59:31
Peter
Hallo René,
ich habe einen Fehler gemacht. Ich blende das orginal Menüband mit folgendem Makro aus:
Sub AusBlenden()
CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
'ActiveWorkbook.Protect Windows:=True
End Sub
und mit dem weiteren Makro blende ich es wieder ein:
Sub EinBlenden()
Application.ScreenUpdating = False 'Schaltet den Bildschirm aus
'ActiveWorkbook.Unprotect
CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFullScreen = False
Application.ScreenUpdating = True 'Schaltet den Bildschirm ein
End Sub
Ich gebe in den Button Schliessen den Befehl Call Einblenden ein. Doch das klappt nicht.
daher habe ich es mit dem gestern angegebenen Makro
Sub Menüband_einblenden versucht. Geht ebenfalls nicht. Das von Dir angegeben RibbonX ist doch _
für eigene erstellte Ribbons oder liege ich da falsch.
Welchen Befehl muss ich denn in den Button schliessen einfügen, damit beim Öffnen einer neuen _
Exceldatei das Menüband wieder eingeblendet wird. Danke für Deine Hilfe.
Gruss Peter