Hi zusammen,
ich habe gerade die Aufgabe, einen Antragsfomular anzupassen.
Das Formular hat gewisse Pflichtfelder. Ob alle Pflichtfelder ausgefüllt sind, wird über die Methode Antrag() geprüft. Dabei wird ein Boolean zurückgegeben.
Das Dokument kann nur gespeichert werden wenn alle Pflichtfelder ausgefüllt sind. Dafür sorgt die folgende Methode:
*****************
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not Antrag Then
Cancel = True
End If
End Sub
*********************************
Klappt alles wunderbar. Das Dokument kann nur gespeichert werden, wenn alle Pflichtfelder ausgefüllt sind.
Das Problem ist jetzt, dass ich das Dokument (als Vorlage) aber leer speichern will und das wegen der Workbook_BeforeSave(..)-Methode nicht geht.
Wie kann ich die Datei trotzdem speichern?
Danke!
|