Hallo zusammen,
1. Ich würde von meinem VBA Code gerne ein oder zwei Arbeitsblätter ausschließen, kann mir jemand sagen was und wie ich das einbauen muss?
2. Ich kann mit meinem momentanen Code die gesamte Arbeitsmappe speichern sobald ich mich auf einem Arbeitsblatt befinde auf welchem alle Felder ausgefüllt wurden. Kann ich dies verhindern, so dass wirklich alle Blätter abgefragt werden?
Her der Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not ActiveWorkbook.BuiltinDocumentProperties.Item("Content Status") = "Entwurf" Then
If ThisWorkbook.ActiveSheet.Range("B1").Value = "" Or _
ThisWorkbook.ActiveSheet.Range("B2").Value = "" Or _
ThisWorkbook.ActiveSheet.Range("K3").Value = "" Then
MsgBox "Please first fill in all general information (highlighted in green)!", vbCritical
Cancel = True
End If
End If
End Sub
Gruß
Steffen
|