Niet werkend script door tabblad 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.

 

[OctaFish]

Simpel: zet eerst met Unprotect de beveiliging op het blad uit. Gebruik eventueel een vast wachtwoord, als dat er is. Na het uitvoeren van de code doe je met Protect het omgekeerde. Kijk in de VBA help voor een voorbeeldje.

 

[Warme bakkertje]

Michel, de oplossing is gister al gegeven, kijk hier
http://www.helpmij.nl/forum/showthr...oor-tabbald-beveiliging?p=3907903#post3907903
Ik had een berichtje naar de Mod gestuurd over deze dubbele vraag, maar deze heeft hier blijkbaar nog niet op gereageerd.

 

[huijb]

Deze gaat dus dicht