In diesem Beispiel wird die Sperre für den Bereich A1:G37 in Sheet1 aufgehoben, so dass Änderungen möglich sind, wenn das Blatt geschützt ist.
Worksheets("Sheet1").Range("A1:G37").Locked = False Worksheets("Sheet1").Protect