Blattschutz für einige Blätter

mit nachfolgender Anweisung wird in Zelle A1 des jeweiligen Sheets die letzte Speicherzeit (incl.Datum) reingeschrieben.

Alle aufgeführten Blätter sind mit dem Password "Wolle" geschützt
und sollen mit der Unprotect-Methode vor Ausführung des Codes
entsperrt werden, damit in A1 das Datum+Zeit reingeschrieben werden kann.

Danach sollen alle angegebenen Sheets wieder mit dem
Password "Wolle" geschützt werden.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  With ActiveWorkbook
    .Sheets("Juni 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Juli 02").Range("A1").Value = Now & " Uhr"
    .Sheets("August 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Sept 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Okt 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Nov 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Dez 02").Range("A1").Value = Now & " Uhr"
  End With
End Sub

Vielen Dank für Eure Hilfe
Ciao MikeS

habe ich Deine Frage überlesen??

Baue diese beiden Makros ein. Die heben den Schutz für alle Blätter auf oder setzen ihn.

Private Sub Aufheben()
    For I = 1 To Sheets.Count
        Sheets(I).Unprotect ("Wolle")
    Next I
End Sub

Private Sub Schutz()
    For I = 1 To Sheets.Count
        Sheets(I).Protect ("Wolle")
    Next I
End Sub

in Now ist die Uhrzeit schon enthalten.

Gruß Hajo

hat funktioniert!

Ciao MikeS