Niet werkend script door tabbald beveiliging

[picker1100]

Goedemiddag,

Ik heb het onderstaande script in VB gemaakt, alleen als ik het tabblad beveilig werkt het script niet meer? Hoe gaat dit wel werken?

Private Sub CheckBox1_Click()
With Sheets("Aanvraagformulier Mobiel")
.Activate
.Range("C33").Select
If CheckBox1.Value = Not True Then
.Rows("41:57").Hidden = True
Else
Sheets("Aanvraagformulier Mobiel").Rows("41:57").Hidden = False
End If
End With
End Sub

alvast bedankt voor de reacties.

 

[Warme bakkertje]

Dit is een mogelijkheid

Private Sub CheckBox1_Click()
With Sheets("Aanvraagformulier Mobiel")
    .Activate
    .Unprotect
    .Range("C33").Select
        If CheckBox1.Value = Not True Then
            .Rows("41:57").Hidden = True
        Else
            .Rows("41:57").Hidden = False
        End If
    .Protect
End With
End Sub

 

[picker1100]

Helaas dit werkt niet als ik dan het aanvinkveld selecteer vraag excel om het wachtwoord. Het script werkt als ik het tabblad in Excel niet beveilig, als ik het tabblad beveilig werkt het script ook niet meer.

 

[Warme bakkertje]

Private Sub CheckBox1_Click()
With Sheets("Aanvraagformulier Mobiel")
    .Activate
    .Unprotect "jouw wachtwoord"
    .Range("C33").Select
        If CheckBox1.Value = Not True Then
            .Rows("41:57").Hidden = True
        Else
            .Rows("41:57").Hidden = False
        End If
    .Protect "jouw wachtwoord"
End With
End Sub

 

[picker1100]

Dank je Rudi het werkt!!

 

[Warme bakkertje]

Zet je de vraag dan op opgelost.