Problem mit Workbook_BeforeClose
16.11.2007 11:47:21
Flo
Ich habe hier ein größeres Problem und finde einfach die Lösung nicht.
In meinem Workbook_Open Makro blende ich Spaltenbeschriftung, Zeilenbeschriftung, ... und eben die DisplayFormulaBar aus.
Diese will ich natürlich wieder einblenden wenn ich das Workbook schließe.
Da ich will dass das Workbook nur über einen von mir erstellten Close-Button von mir geschlossen werden kann habe ich die Variable bolbeenden eingeführt die in diesem Fall auf true gestellt wird. Hier das Makro dafür:
Public Sub CloseMDP()
Dim x As Integer
x = MsgBox("Continue Closing MDP?", vbYesNo, "Closing MDP...")
If x = 6 Then
Application.DisplayAlerts = False
bolbeenden = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close SaveChanges:= _
False
End If
If x = 7 Then
bolbeenden = False
Exit Sub
End If
End Sub
Es klappt alles auch ganz Super wenn ich nur das eine Workbook offen habe. Beim nächsten Start sind wieder alle Leisten da, wenn ich aber zwei Workbooks geöffnet habe wird das eine zwar richtig geschlossen, aber die DisplayFormulaBar wird nicht wieder eingeblendet.
Warum ist das so? Kann mir jemand helfen?
Hier noch das Close Makro:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not bolbeenden Then
MsgBox "Please Exit with Close-Button!", vbInformation, "Information:"
Cancel = True
Exit Sub
End If
Application.DisplayFormulaBar = True
With ActiveWindow
'Zeilen/Spaltenbeschriftung (z Bsp "A1") sichtbar
.DisplayHeadings = True
'horizontaler Scrollbalken sichtbar
.DisplayHorizontalScrollBar = True
'vertikaler Scrollbalken sichtbar
.DisplayVerticalScrollBar = True
'Blattnamenregister sichtbar
.DisplayWorkbookTabs = True
End With
cbEin
SpeicherButtonsEinschalten
Application.OnKey "%{F8}"
End Sub
Danke für Eure Hilfe!
Gruß Flo
Anzeige