Kategorie:
(Tipp 11)
Wie kann ich das SchlieÃ?en der Arbeitsmappe abfangen, um darauf zu reagieren?
Im folgenden Beispiel erscheint beim SchlieÃ?en der Arbeitsmappe (egal, wie) eine Meldung mit Ja- und Nein-Button.
Wird der Button Ja betätigt, wird die Mappe gespeichert und geschlossen.
Beim Button Nein wird der Vorgang mit Cancel = True abgebrochen, die Mappe wird auch nicht geschlossen.
In das Modul DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim strMsg As String strMsg = "Soll die Arbeitsmappe geschlossen werden?" Select Case MsgBox(strMsg, vbInformation + vbYesNo) Case vbYes: ThisWorkbook.Save Case vbNo: Cancel = True End Select End Sub