Werkbladen beveiligen

[joestemenke]

Hoi,

Ik werk met office 2000.

Ik heb een werkmap met 52 bladen, dit zijn de 52 weken in het jaar. Een aantal velden (met formules) zijn geblokkeerd, alleen de in te vullen velden natuurlijk niet.

Ik wil graag inhoud, objecten en scenario's op alle 52 bladen in één keer beveiligen zodat ik bij een wijziging in de formule (die op elk blad voorkomt) niet eerst de bladbeveiliging eraf moet halen - formule wijzigen - en dan weer het blad moet beveiligen (en dat dus 52 keer = 156 keer wachtwoord invullen).

Met werkmap beveiligen lukt dat dus niet.

WIE HELPT MIJ???

 

[Hans123]

plaats onderstaande subs in een moduleblad. Eventueel kun je deze macro's aan een knop hangen.

Door een macro op te nemen kun je precies dat beveiligen wat je wilt en dat in de macro opnemen.


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

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