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