Workbook_BeforeClose mach Schwierigkeiten

25/02/2010 - 08:25 von Rainer Krusenbaum | Report spam
Guten Morgen liebe Excelexperten,
ich habe da ein Problem mit Workbook_BeforeClose dem ich nicht auf die Spur
komme. Beim Öffnen einer Datei schalte ich den Vollbildmodus ein und
verschiedene Anzeigen wie folgt aus

Private Sub Workbook_Open()
'Blattregisterkarten ausschalten
ActiveWindow.DisplayWorkbookTabs = False

'Vollbildmodus einschalten
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayScrollBars = False
ActiveWindow.DisplayHeadings = False
End Sub

Beim Schließen der Datei will ich die Anweisungen rückgàngig machen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Blattregisterkarten einschalten
ActiveWindow.DisplayWorkbookTabs = True

'Vollbildmodus ausschalten
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
Application.DisplayScrollBars = True
ActiveWindow.DisplayHeadings = True
End Sub

Dabei funktioniert seltsamer Weise DisplayFullscreen und DisplayHeadings
nicht mehr.

Hat irgendjemand eine Idee warum nicht?

Für Eure Hilfe schon mal vielen Dank im Voraus.
Gruß
Rainer
 

Lesen sie die antworten

#1 Peter Schleif
25/02/2010 - 09:11 | Warnen spam
Rainer Krusenbaum schrieb am 25.02.2010 08:25 Uhr:

ich habe da ein Problem mit Workbook_BeforeClose dem ich nicht auf die Spur
komme. Beim Öffnen einer Datei schalte ich den Vollbildmodus ein und
verschiedene Anzeigen wie folgt aus

Beim Schließen der Datei will ich die Anweisungen rückgàngig machen:



Hast Du mal probiert, die Änderungen in umgekehrter Reihenfolge
rückgàngig zu machen. last-in-first-out.

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayScrollBars = False
ActiveWindow.DisplayHeadings = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = True
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Ähnliche fragen