Ereignis Workbook_BeforeClose
31.10.2003 10:04:10
Marc
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
Anzeige