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
******
