Einblenden der Commandbars klappt nicht
04.05.2006 15:32:06
Stefan
Ich habe folgenden Code in einem Modul um beim beenden den Ursprungszustand von Excel wieder herzustellen:
Sub Commandbars_einblenden
Application.CommandBars("Worksheet Menu Bar").Enabled = True ' Hauptleiste
Application.CommandBars("Standard").Visible = True 'Standardleiste
Application.CommandBars("Formatting").Visible = True 'Formatleiste
With ActiveWindow
.DisplayHeadings = True 'Spalten- u. Zeilenüberschriften
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True 'Blattregister
End With
Application.CommandBars("Worksheet Menu Bar").Enabled = True 'Hauptzeile
Application.DisplayFormulaBar = True 'Inhalt-Leiste
Application.Caption = ""
Application.StatusBar = ""
End Sub
Das Funktioniert auch alles. Falls der Benutzer die Datei nicht über beenden sonder über das X schließt, soll natürlich auch wieder alles hergestellt werden. Dafür habe ich folgende Routine:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Commandbars_einblenden
Cancel = False
ActiveWorkbook.Close False
End Sub
Seltsamerweise funktioniert das hierbei nicht. Es werden nur die With-Anweisungen ausgeführt, der Rest nicht. Was habe ich denn da falsch gemacht ?
Vielen Dank im Voraus für Eure Hilfe.
Gruß Stefan
Anzeige