Symbolleisten, Menüleisten
08.02.2008 12:24:00
Jason
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
Egal wo ich es einfüge (Tabelle1, Tabelle2, Tabelle3, DieseArbeitsmappe, Modul, Klassenmodul) es erscheinen immer alle Symbolleisten und Menüleisten.
Was auch noch wichtig wäre ist, dass die Entfernung mit dem beenden der Exceldatei wieder aufgehoben wird!
Was mache ich falsch?
Anzeige