Lås celle på baggrund af anden celle værdi, vba kode

Start med at åbne alle celler i Ark2 og lås så C4.

Læg derefter denne kode i Ark1's kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ct As Variant
    If Not Intersect(Target, Range("c1")) Is Nothing Then
        ct = ActiveSheet.Range("c4").Value
        If UCase(Target.Value) = "NEJ" Then
            Sheets("Ark2").Select
            ActiveSheet.Range("c4").Value = ct
            ActiveSheet.Protect Contents:=True
        ElseIf UCase(Target.Value) = "JA" Then
            Sheets("Ark2").Select
            ActiveSheet.Protect Contents:=False
        End If
    End If
End Sub

Hvad så hvis jeg har 1 ark. hvis C1 er lig med Ja ting så skal D1 være låst. og når C1 er lig med nej så skal D1 være låst op

Stort set på samme måde, bare uden at skifte ark. Jeg har desværre ikke tid ag se på det i dag.