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

Wie kann ich das "Abbrechen" aufzeichen ?

Forumthread: Wie kann ich das "Abbrechen" aufzeichen ?

Wie kann ich das "Abbrechen" aufzeichen ?
30.08.2003 08:44:53
Kabas Enrico
Hi !

Möchte gerne das Beenden eines Excel-Files aufzeichnen um den Code für "Änderungen speichern ?" beim Klick auf "Abbrechen" zu ermitteln !

Das geht leider nicht !

Kann mir einer den Code für "Abbrechen" sagen ?

Danke

Enrico
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie kann ich das "Abbrechen" aufzeichen ?
30.08.2003 14:17:10
ChrisL
Hi Enrico

Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Schliessen
Application.EnableEvents = False
If ThisWorkbook.Saved = False Then
Schliessen = MsgBox("Änderungen speichern?", vbYesNo)
If Schliessen = vbNo Then
MsgBox "Die Speicherung wurde abgebrochen."
ThisWorkbook.Saved = True
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close
End If
Else
MsgBox "Die Mappe wird mit Speicherung geschlossen."
ThisWorkbook.Save
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End If
Else
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End If
Application.EnableEvents = True
End Sub

Gruss
Chris
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige