VBA - aflever til celle fra Userfor, men tjek skrivebeskyttelse

If Not Range("A1").Locked Then ...

eksempel:

Sub indsætILåstCelle()
Dim rr As Range
   
    Set rr = Range("A1")
   
    With rr
Rem Er cellen låst
        If .Locked = True Then
Rem hvis ja -ophæv ark-beskyttelsen
            ActiveSheet.Unprotect
Rem indsæt den ønskede værdi
            .Value = 4711
Rem sæt arkbeskyttelsen igen
            ActiveSheet.Protect
        Else
Rem hvis celle ikke er beskyttet - indsæt værdi
            .Value = 4712
        End If
    End With
End Sub

Sager: Jeg kan ikke få det til at virke. Det virker som om koden altid opfatter cellen som værende skrivebeskyttet, selvom den ikke er det.

Supertekst: Tak for forslaget. Men jeg har ikke brug for at cellebeskyttelsen fjernes og at der overføres værdi.

Jeg har lavet en knap, som overfører en værdi til cellen. Hvis cellen er låst, skal der ikke ske noget.
Derfor har jeg kun brug for at lave tjekket - altså noget i retning af "sager's" forslag.

Cellen er altid låst pr. default. (kan ses under højreklik - Formater celle -Beskyttelse).. Men det "virker" kun hvis man protecter arket... På den måde kan man låse et ark, men lade enkelte celler være ulåste.
Jeg antog at du havde dit ark sat op sådan, men det kan selvfølgelig være anderledes. Kunne du beskrive lidt nærmere?

Din antagelse er faktisk god og præcis det jeg gør. Jeg sover bare i timen og er helt med på det med at låse celler og beskytte ark.
Jeg havde glemt at låse de "lovlige" celler op og havde kun afprøvet med at beskytte og ikke-beskytte arket.
Så dit svar er præcis det jeg skal bruge. Mange tak.