Hej Claes

Det kan lade sig gøre med en makro, der placeres i arkets kodemodul. Først skal du dog fjerne beskyttelsesmarkeringen "Låst" på alle cellerne i arket.

Private Sub Worksheet_Change(ByVal Target As Range)

    With Target
        .Parent.Unprotect
        .Locked = True
        .Parent.Protect
    End With

End Sub

Håber det giver mening - eller så skriv igen.


Mvh Max

Hej Claes

Prøv denne kode:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Application.Intersect(Target, Target.Parent.Range("A:D")) Is Nothing Then
   
        With Target
           
            .Parent.Unprotect Password:="MyPw"
            .Locked = True
            .Parent.Protect Password:="MyPw"
       
        End With

    End If

End Sub

Mvh Max