Låsning af regneark - mine afkrydsningsfælter er stadig låst.

Altså kort sagt skal jeg have låst mit regneark men uden at låse de afkrydsningsfelter jeg har.

Håber virkelig der er en der kan hjælpe.
Hvis i ikke forstår mit spørgsmål så spørg endlige så skal jeg forsøge at tegne og fortælle

Godt nytår.

ja hvis der er cellekæde, skal disse ikke være låst

Jeg har skrevet at du gerne må redigere i de celler som macroen berører.

Det ser dog bare ikke ud til at hjælpe jeg får stadig afvide at cellen eller diagrammet er skrive beskyttet.

o.O

celler der er lagt ind til redigering:
=$D$18;$D$25;$D$32;$H$4;$H$3;$D$1

Mit macro:


Sub Afkrydsningsfelt35_Klik()
    Range("D1").Value = "Afkrydsning mangler"
    If ActiveSheet.Range("H3") = True Then
        Range("D1").Value = "Gifte"
        Range("D32").Formula = "=IF(E33 < 0,ABS(E33),0)"
        Range("D25").Formula = "=IF(E26 < 0,ABS(E26),0)"
        Range("D18").Formula = "=if(E19 < 0,ABS(E19),0)"
    End If
    If ActiveSheet.Range("H4") = True Then
        Range("D1").Value = "Sammenlevende"
        Range("D32").Formula = 0
        Range("D25").Formula = 0
        Range("D18").Formula = 0
    End If
   
End Sub

Sub Afkrydsningsfelt31_Klik()
    Range("D1").Value = "Afkrydsning mangler"
    If ActiveSheet.Range("H3") = True Then
        Range("D1").Value = "Gifte"
        Range("D32").Formula = "=IF(E33 < 0,ABS(E33),0)"
        Range("D25").Formula = "=IF(E26 < 0,ABS(E26),0)"
        Range("D18").Formula = "=if(E19 < 0,ABS(E19),0)"
    End If
    If ActiveSheet.Range("H4") = True Then
        Range("D1").Value = "Sammenlevende"
        Range("D32").Formula = 0
        Range("D25").Formula = 0
        Range("D18").Formula = 0
    End If
   
End Sub

Ingen af de celler, der skal kunne ændres må være beskyttet!

Ingen af de celler er beskyttet! men alligvel kan jeg ikke bruge mit afkrydsningsfelt, :-(.

Noget andet jeg gør forkert?

Om igen