Problem mit Workbook_BeforeClose()
01.02.2006 11:49:19
Tobias
ich habe ein Problem mit der Funktion Workbook_BeforeClose().
In dieser Funktion habe ich folgenden Inhalt geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim erg As Boolean
erg = True
erg = PruefeGanzeZeile(ActiveSheet.Range("A5:J1000"))
If erg = False Then
MsgBox "Aufgrund der Fehlereingaben kann die Anwendung nicht geschlossen werden! Bitte korrigieren!"
Cancel = True
End If
End Sub
Ich erwarte hier, dass nach der Prüffunktion bei Fehler die Meldung ausgegeben wird und die Arbeitsmappe durch Cancel = True geöffnet bleibt.
Das tut es aber NICHT!
Nach der Meldungsausgabe erscheint nach dem Schliessen dieser Sub-Funktion eine weitere zusätzliche Meldung mit folgendem Inhalt:
Sollen Änderungen in 'Datei' gespeichert werden?
Ja Nein Abbrechen
Aber mit Cancel = True sollte diese Zusatzmeldung laut Hilfe-Information (F1)nicht erscheinen, oder muss ich da noch etwas beachten, damit diese Meldung nicht mehr erscheint?
Gruss
Tobias