lås forskellige celler efter indtastning

Hv7s du først skal låse, når der er tastet i alle cellerne er det forholdsvis nemt. Hvis du vil have at de enkelte celler skal låses, når der er tastet i dem, bliver det noget mere besværligt. Koden afhænger af, hvad du ønsker.

Hvis altså det skal ske automartisk. Manuelt er det nemt nok.

Jeg har brug for en vba kode der gør at cellerne låser lige efter der er indtastet

Altså når der er tastet i hver enkelt celle, skal drn låses? Tastes de i en bestemt rækkefølge?

Efter flere forsøg kom jeg frem til dette



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A6:A15,C6:C15,E6:E15,G6:G15"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
    mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A6:A15,C6:C15,E6:E15,G6:G15,Q19"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:=""
    If xRg.Value <> mStr Then xRg.Locked = True
    Target.Worksheet.Protect Password:=""

og selvfølgelig

End Sub

til sidst ;-)