beveiliging

[mtb]

Hoi,

Ik heb een werkmap met 52 (identieke) tabbladen, die allemaal beveiligd zijn met hetzelfde wachtwoord (zelf ingesteld). Nu moet ik als ik iets wil wijzigen aan bv. de opmaak alle tabbladen handmatig wachtwoord vrij maken, is er een mogelijkheid om dit in 1x voor alle tabbladen te doen? Ik heb het geprobeerd met alle tabbladen te selecteren maar dan kan ik 'beveiliging blad opheffen' niet selecteren.

Iemand raad

 

[Ginger]

Mtb,

Iemand raad

Tuurlijk.... ff de zoekfunctie gebruiken! :thumb: (deed ik ook en zie: deze link)

Groet, Leo

 

[mtb]

Ginger,

Mijn excusses je hebt gelijk, (normaliter gebruik ik die ook, en heeft mij al vaak geholpen).
In ieder geval bedankt

 

[kibus]

hoi

Hierbij een code die ook werkt

beveiliging af

Sub deblokkeren()


aantal_bladen = Worksheets.Count
For n = 1 To aantal_bladen
Sheets(n).Activate
ActiveSheet.Unprotect Password:="jouw wachtwoord hier "
Next n
End Sub


indien je weer wilt beveiligen :
Sub blokkeren()


aantal_bladen = Worksheets.Count
For n = 1 To aantal_bladen
Sheets(n).Activate
ActiveSheet.Protect Password:="jouw wachtwoor hier "
Next n
End Sub