Passwortschutz mit Makro aufheben

habe folgenden VBA Code, um etwas in einem Excel-Sheet zu ändern, auf das mehrere Personen Zugriff haben. Das Makro soll z.B. ein Datum (=heute()) nach ausführung "einfrieren". Ich kann das Makro allerdings nur einmal ausführen. Danach kann ich nicht mal mehr den Schutz des Sheets aufheben. Warum und ws kann ich machen?

Sub Makro1()

ActiveSheet.Unprotect ("12")
Range("B3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect Password = "12"
Range("D4").Select
End Sub

Vielen lieben Dank

Euer Ralf