Re: speichern verhindern, ohne workbook zu schliessen
25.06.2003 16:34:16
ChrisL
Hi DavidSo ganz steige ich zwar noch nicht, aber mein Vorschlag unterdrückt das Speichern generell.
Als Ansatz...
Wenn Bedingung nicht erfüllt, Cancel = True
Allerdings bin ich mir nicht wirklich sicher, wie deine Bedinung lautet. Sagen wir, Zelle A1 in Tabelle1 muss ausgefüllt sein.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Tabelle1").Range("A1") = "" Then Cancel = True
End Sub
Alternativ könnte man auch in einem Modul eine Public Variable definieren...
Public Variable As Boolean
Sobald die Bedingung erfüllt ist, setzt du die Variable auf True (z.B. mit eine Worksheet_Change Ereignis).
Im BeforeSave Ereignis überprüfst du dann die Variable...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Variable = False Then Cancel = True
End Sub
Gruss
Chris