ich möchte ein Excel File mit Pflichtfeldern, bei dem man das File weder speichern noch senden kann, wenn man nicht alle Pflichtfelder ausgefüllt hat.
Den Teil mit dem Speichern verhindern, hab ich schon hinbekommen.
Sub Demand()
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("E5") = "" Or Range("E7") = "" Or Range("E11") = "" Or Range("E13") = "" Or _
Range("E24") = "" Or Range("E26") = "" Then
Cancel = True
End If
If Range("E5") = "" Or Range("E7") = "" Or Range("E11") = "" Or Range("E13") = "" Or Range(" _
_
_
_
E24") = "" Or Range("E26") = "" Then
MsgBox "Bitte füllen Sie alle Pflichtfelder aus!"
End If
End Sub
Nur bekomm ich die Senden an Funktion nicht in den Griff. Könnte es was mit
Private Sub Workbook_BeforeSendMail
zu tun haben? Wie benutzt man das?
Danke für eure Hilfe,
PlanlosImWald