Moin zusammen,

ich erstelle gerade eine Tabelle ohne Menüband, Überschriften, usw. und es funktioniert perfekt. Beim schließen wird auch alles wieder angezeigt, nur die Befehlszeile nicht.
Wo ist der Fehler???

Danke euch für die Hilfe.

Übrigens: Hier ist der VBA-Code

----------

Private Sub Workbook_BeforeClose(Cancel As Boolean)

With ThisWorkbook

'untere Leiste einblenden
Application.DisplayFullScreen = False
'Menüband einblenden
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
'Tabellenblätter einblenden
ActiveWindow.DisplayWorkbookTabs = True
'Befehlsleisten und Überschriften einblenden
'Tabelle1.Activate
'Application.DisplayFormulaBar = True
'ActiveWindow.DisplayHeadings = True

End With

Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True

End Sub