Steuerelemente aus - eigene Menüleiste ein
10.02.2005 18:55:40
Reservist
hatte diesen Beitrag schoneinmal im Januar gestellt. Leider ohne Antwort,
Ich benutze unten stehenden Code (von Hajo).
Bin damit zufrieden aber brauch nun doch eine eigene Menüleiste.
Name der Leiste ist "Buchhaltung".
Beim Ausschalten der Steuerelemente soll sich die eigene Menüleiste
einblenden. Beim Einschalten der Steuerelement soll sich die eigene
Menüleiste wieder ausblenden.
Wer kann helfen ? und den Code entspechend ändern/erweitern.
Gruß Thorsten
Hier der Code
Sub Steuerelemente_ausschalten()
With Application
.ScreenUpdating = False
.CommandBars("toolbar list").Enabled = False
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Cell").Enabled = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
.DisplayFullScreen = True
End With
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.WindowState = xlMaximized
End With
End Sub
Sub Steuerelemente_einschalten()
With Application
.ScreenUpdating = False
.CommandBars("toolbar list").Enabled = True
.CommandBars("Worksheet Menu Bar").Enabled = True
.CommandBars("Cell").Enabled = True
.DisplayFormulaBar = False
.DisplayStatusBar = False
.DisplayFullScreen = False
End With
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.WindowState = xlMaximized
End With
End Sub