Lås celler i flere ark, med undtagelser

Hey allesammen .. :)

Sidder og laver et excel-ark , hvor jeg gerne vil låse hele arket med en kode (Så langt så godt) -

Men jeg vil så gerne åbne for nogen celler inde i arket.

Altså for eksempel (pseudo):

Lås alle celler mellem A1:W45

Lås op alle celler mellem A4:L16

Jeg er begyndt at kigge på en macro, der løber alle 'sheets' igennem, men får en fejl når den skal oplåse på sidst nævnte range.


Kode


Sub WorksheetLoop()

Dim WS_Count As Integer
Dim I As Integer
Dim CurrentSheet As Worksheet

' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count = ActiveWorkbook.Worksheets.Count

' Begin the loop.
For I = 1 To WS_Count
' Select current sheet
Set CurrentSheet = ActiveWorkbook.Worksheets(I)

CurrentSheet.Unprotect Password:="pass"
CurrentSheet.Range("a:w").Cells.Locked = False

' lock row
Set r1 = CurrentSheet.Range("A1:W45")
Set r2 = CurrentSheet.Range("A4:L16")


' unlock rows
Set r2 = CurrentSheet.Range("A4:L16") '<-- HER GÅR DET GALT

r2.Cells.Locked = False

CurrentSheet.Protect Password:="pass"

Next I
End Sub