MSGBOX, komme nicht weiter
18.11.2002 18:56:27
Ralf
Also, ich möchte eine MSGBOX angezeigt bekommen bevor das aktuelle Workbook geschlossen wird. Ich möchte dann einen Hinweis bekommen, ob dies oder das gemacht wurde und ja oder nein angezeigt bekommen.
In Der Hilfe bei Excel habe ich folgendes gefunden, aber das klappt nicht.(Den Code habe ich in das Tab Blatt Diese Arbeitsmappe eingefügt.
Als Anzeige soll dann Ja oder Nein kommen. Bei Nein soll abgebrochen werden, bei Ja soll die Mappe ohne speichern beendet werden.
Kann mir bitte jemand weiterhelfen ?? Danke vorab. Ralf
Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, _
Cancel As Boolean)
a = MsgBox("Alles gemacht ?", _
vbYesNo)
If a = vbNo Then Cancel = True
End Sub