Abfrage beim schließen von Excel unterdrücken
14.04.2005 12:11:16
Excel
Ich habe folgendes Makro in 'DieseArbeitsmappe' eingefügt. Es soll die Abfrage die Excel am Ende startet, ob gespeichert werden soll und so übernehmen.
Wenn ich auf schließen drücke kommt auch die Abfrage. Dann drücke ich auf Ja, er speichert, führt das makro aus und schließt dann. Super. Allerdings macht er das bei Nein und Abbrechen nicht. Da interessiert ihn kaum was bei mir im Makro steht. Er fragt danach nochmal genau das gleiche, was dann von Excel kommt.
So... Kann ich also diese Abfrage von Excel abblocken? oder wie kann ich jetzt mein Makro ausführen wenn auf Ja gedrückt wird?
Danke für die Hilfe...
JayLen
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Msg As String
Msg = "Sollen Ihre Änderungen in 'Test.xls' gespeichert werden?"
Dim Antwort As VbMsgBoxResult
Antwort = MsgBox(Msg, vbExclamation Or vbYesNoCancel, "Microsoft Excel")
If Antwort = vbYes Then
ActiveWorkbook.Save
Application.Run "Test.xls!Format"
Workbooks("Test.xls").Close
ElseIf Antwort = vbNo Then
Workbooks("Test.xls").Close SaveChanges:=False
Else
Sheets("Ausgabe").Select
Range("A1").Select
End If
End Sub