es ist vermutlich nur ein kleiners Problem, aber meine Recherche im Archiv hat leider keine Lösung zu Tage gefördert.
Ich prüfe vor dem Schließen einer Datei, ob alles richtig befüllt wurde. Wenn nicht, dann kann der User über eine vbYesNo MsgBox entscheiden, ob er doch schließen will und den Fehler akzeptiert oder ob er noch einmal nachbessern will.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If msgbox("das ist was falsch, willst du wirklich schließen", vbYesNo, "Test") = vbNo then
Hier die Zeile, die das Schließen verhindert
end if
End Sub
Ich habe schon mit END experimentiert, aber der Befehl zum Schließen kommt ja nicht aus der VBA Umgebung, sondern wird durch den Klick auf das Schließkreuz der Datei ausgelöst. Über VBA kann ich diesen Vorgang nicht erreichen.
Weiß jemand von Euch Rat?
Vielen Dank und Gruß, Andreas