Mein Problem: Die Windowsstartleiste bleibt aber erhalten bis ich ein paar mal klicke und eine Fehlermeldung erzeuge.
Dann ist die Windowsleiste weg.
Woran liegt das?
Mein Code:
Public Symbol As CommandBar
Public WsTabellen As Window
Private Sub Workbook_Activate()
Application.ScreenUpdating = False
For Each Symbol In Application.CommandBars
Symbol.Enabled = False
Next Symbol
For Each WsTabellen In Windows
WsTabellen.DisplayHeadings = False
Next WsTabellen
With Application
.CommandBars.ActiveMenuBar.Enabled = False '.CommandBars("worksheet menu bar").Enabled = True
.DisplayFormulaBar = False
.DisplayStatusBar = False
.DisplayScrollBars = False
.DisplayFullScreen = True
.ScreenUpdating = True
End With
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.WindowState = xlMaximized
Application.ScreenUpdating = True
End Sub