cellen vergen/zichbaar maken in beveiligd tablad.

[LdG13]

Onderstaande code heb ik in jullie forum gevonden en werkt prima.
Nu zou ik graag willen dat deze ook bij beveiligde tabbladen functioneert!
Wellicht dat iemand een oplossing voor me heeft?

code

Sub VenA()
For k = 11 To 22 Step 2
Columns(k).Hidden = Not Columns(k).Hidden
Next k
End Sub

 

[gast0660]

Vervang ww door je eigen wachtwoord.

Sub VenA()
[COLOR="#FF0000"]ActiveSheet.Unprotect "ww"[/COLOR]
For k = 11 To 22 Step 2
Columns(k).Hidden = Not Columns(k).Hidden
Next k
[COLOR="#FF0000"]ActiveSheet.Protect "ww"[/COLOR]
End Sub

 

[LdG13]

..Top, werkt perfect, dank je wel.

 

[gast0660]

Mooi zo:thumb: