Lås celler hvis

Jeg tænker noget i stil med dette:

Sub sub_lock_cells()
    Dim sht As Worksheet
    Dim rng_cell As Range
    Set sht = ThisWorkbook.Sheets("Ark1")
    For Each rng_cell In sht.UsedRange.Cells
        With rng_cell
            If .Value = "O" Then
                .Locked = True
            Else
                .Locked = False
            End If
        End With
    Next rng_cell
    With sht
        If Not .ProtectContents Then
            'Beskyt arket (uden kodeord)
            .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    End With
End Sub

Bemærk at det kun giver mening at låse celler, når man efterfølgende beskytter arket.

Hov - det skal være sådan her i dit ark, dvs. inden for et begrænset område/range:

For Each rng_cell In sht.range("H4:AE370")

MaxZpaD's kode er fin, men måske burde man enten låse arket op først (i VBA koden), eller også benytte UserInterfaceOnly når man låser.

(Eller gøre begge dele, faktisk, da UserInterfaceOnly nulstilles næste gang arket åbnes)

Tusind tak for hjælpen, lige hvad jeg har brug for