Herbers Excel-Forum - das Archiv

Ereignis Workbook_BeforeClose

Bild

Betrifft: Ereignis Workbook_BeforeClose
von: Marc
Geschrieben am: 31.10.2003 10:04:10
Hallo Profis,

ich glaube ich habe ne Blockade, denn so schwer kann das doch nicht sein.

Ich möchte gerne, dass vor dem Schliessen einer Mappe abgefragt wird, ob an alles gedacht wurde.

Dazu dieser Code im Modul Diese Arbeitsmappe:



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim check As Boolean
check = MsgBox("Haben Sie an alles gedacht ?", vbYesNo)
If check = vbNo Then Cancel = True
If check = vbYes Then Cancel = False
End Sub



D.h. wenn Nein angeklickt wird, soll die Mappe nicht geschlossen werden.

Was mache ich falsch ?

Grüsse,
Marc
Bild

Betrifft: AW: Ereignis Workbook_BeforeClose
von: Dirk
Geschrieben am: 31.10.2003 10:08:11
Hallo.

Du hast "check" als boolisch deklariert. Keine Deiner If-Bedingungen trifft daher zu.

Cheers
Bild

Betrifft: Danke !!
von: Marc
Geschrieben am: 31.10.2003 10:14:27
Danke Dirk,

hab ich's mir doch gedacht, dass ich mega auf'm Schlauch stehe.
Werde mir wohl noch nen Kaffee genehmigen müssen...

Grüsse,
Marc
Bild

Betrifft: *g* No prob o.T.
von: Dirk
Geschrieben am: 31.10.2003 10:15:41
 Bild
Excel-Beispiele zum Thema " Ereignis Workbook_BeforeClose"
Die Ereignisse Zellauswahl, Eingabe und Doppelklick SVERWEIS als Ereignisprozedur
Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen Makroverzweigung im Change-Ereignis
ComboBox mit Ereigniscode in Tabellenblatt erstellen DoubleClick-Ereignis für alle Arbeitsmappen initialisieren
Begrenzung der Textlänge über Ereignis-Programmierung Beispiele zum Einsatz des SelectionChange-Ereignisses