|
Hallo zusammen,
Ich habe einen VBA code geschrieben, welcher das abspeicher verhindert, sollten einige definierte Zellen nicht ausgefüllt seien. Nun habe ich das Problem, dass ich diese Arbeitsmappe gerne als Vorlage ablegen würde, wird aber der Name des Blattes geändert oder Kopien des Blattes mit anderen Namen erstellt verliert der Code die Gültigkeit. Habt ihr hier eine Lösung für mich, so dass der Code immer auf alle neuen/umbenannten Blätter anwendung findet? Hier der Code und vielen Dank im Voraus:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not ActiveWorkbook.BuiltinDocumentProperties.Item("Content Status") = "Entwurf" Then
If ThisWorkbook.Worksheets("EUR").Range("B1").Value = "" Or _
ThisWorkbook.Worksheets("EUR").Range("B2").Value = "" Or _
ThisWorkbook.Worksheets("EUR").Range("B3").Value = "" Or _
ThisWorkbook.Worksheets("EUR").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
|