Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
ws
As
Worksheet
For
Each
ws
In
ActiveWorkbook.Worksheets
If
Intersect(Target, ws.Range(
"A5:A200"
))
Is
Nothing
Then
Exit
Sub
If
Target.Count > 1
Then
Exit
Sub
If
Target =
""
Then
ActiveSheet.Unprotect
"personaLBrief"
ws.Cells(Target.Row, 6).ClearContents
ActiveSheet.Protect
"passwort"
Else
:
ActiveSheet.Unprotect
"personaLBrief"
ws.Cells(Target.Row, 6).Value =
Date
ActiveSheet.Protect
"passwort"
End
If
Next
ws
End
Sub