Wenn Du noch kein allgemeines Modul in Deinem Projekt hast, dann erzeuge ein Modul und hinterlege folgenden Code:
Option Explicit
Public bolAllesOk As Boolean
Beim öffnen der Excelmappe, bekommt die Variable den Wert FALSE zugeweisen.
Folgenden Code in 'DieseArbeitsmappe' hinterlegen:
Option Explicit
Private Sub Workbook_Open()
bolAllesOk = False
End Sub
Beim Schließen soll diese Variable geprüft und ggf das Schließen verhindert werden.
Aslo in 'DieseArbeitsmappe' den Code wie folgt ergänzen.
Option Explicit
Private Sub Workbook_Open()
bolAllesOk = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bolAllesOk = False Then
Cancel = True
End If
End Sub
ich weiß nicht so wirklich wie ich dem programm sage das alles ok war
Wo und wann kannst jetzt eigentlich nur Du wissen bzw entscheiden.
An passender Stelle, musst Du der Variable einfach den Wert TRUE zuweisen.
Beispiel:
bolAllesOk = True
|