Event handling ved checkbox fungerer ikke ved arkbeskyttet ark

Hej,

Jeg har et ark med nogle checkboxe, afhængigt af hvilke checkbokse der har "flueben", skal celler i arket formateres på forskellig måde.

Dette har jeg løst via en eventhandling i vba, lidt forenklet er den som angivet nedenfor (mellem stjernerne).

Mit problem er, at det ikke virker hvis jeg sætter arkbeskyttelse på.

Jeg har uden held prøvet følgende:
-hæve arkbeskyttelsen som en del af event-handlingen
-tillade redigering af objekter på det beskyttede ark

Nogen der ved hvad jeg skal gøre??


*******
Private Sub Checkbox1_Click()

If CheckBox1 = True Then

CheckBox2 = False
CheckBox16 = False

Range("G7:J19").Select
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent5
    .TintAndShade = 0.799981688894314
    .PatternTintAndShade = 0
End With

Range("a1").Select
 
End If

End Sub

******