Ich habe eine Tabelle zur Dienstplanung, in der mehrere Mitarbeiter ihre Wünsche in der jeweiligen Zeile eintragen können. Wenn eine Woche geplant wird, soll diese gesperrt werden, damit keine nachträglichen Änderungen vorgenommen werden können. Bislang arbeite ich hiermit:

Sub Sperren_1()

With ActiveSheet
    .Unprotect Password:=2321     ' Blattschutz aufheben
    .Range("f7:l29").Locked = True         ' alle Zellen sperren
    .Range("f4:l4").Interior.ColorIndex = 3   'Zellenhintergrund rot einfärben
    .Protect Password:=2321, DrawingObjects:=False               ' Blatt schützen
End With
End Sub

Das klappt auch sehr gut. Aber wenn ein neues Jahr beginnt, muss ich 52 Makros umschreiben, da sich die Bezüge aufgrund des neuen Wochenbeginns ändern. Gibt es eine Möglichkeit, das gleiche Ziel mit relativen Bezügen zu erreichen? In Zeile 4 stehen die Kalenderwochen jeweils über dem Montag. Ich würde also gerne nach der Kalenderwoche suchen, die Zelle auswählen und dann einen Bereich relativ von dieser Zelle aus sperren.