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