Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige