Symbolleisten, Menü-Bar Ausblenden und Vollbild VB
andreas
ich will meine Anwendung im Vollbildmodus ohne Symbolleisten, Menübar.
bekomme aber leider eine Fehlermeldung bei meinem Code.
Der Fehler ist bei der Zeile "CommandBars("Worksheet Menu Bar").Enabled = True"
was ist da falsch?
Danke für euere Hilfe
Gruß Andreas
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Einblenden
Application.DisplayFullScreen = False
CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Control Toolbox").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("EuroValue").Visible = True
With Application
.ShowStartupDialog = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With
End Sub
Private Sub Workbook_Open() 'Ausblenden
Application.DisplayFullScreen = True
CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("EuroValue").Visible = False
With Application
.ShowStartupDialog = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With
End Sub
Anzeige