Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Einblenden der Commandbars klappt nicht

Einblenden der Commandbars klappt nicht
04.05.2006 15:32:06
Stefan
Hallo zusammen, könnt Ihr mir bei einem Phänomen helfen ?
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einblenden der Commandbars klappt nicht
04.05.2006 18:11:10
Gerd

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Commandbars_einblenden
Me.Saved = True
End Sub

mfg Gerd
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige