|
Du erzeugst Dir eine Variable vom Datentyp Boolean.
Diese Variable initialisierst Du als FALSE.
Wenn die Datei geschlossen wird, prüfst Du diese Variable.
Wenn alles ok, dann darf geschlossen werden.
Falls nicht, verhinderst Du das Schließen in der entsprechenden Prozedur.
Wenn das Programm durchgelaufen ist und alles ok war, dann einfach der Variablen der Wert true zuweisen.
Somit kann die Mappe dann auch geschlossen werden, wenn alles ok war.
1 2 3 4 5 6 7 8 9 10 11 12 13 | Dim bolAllesOk as Boolean
bolAllesOk = False
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bolAllesOk = False Then
Cancel = True
End If
End Sub
|
|