Meerdere bladen beveiligen

[MGM]

Beste,

Mijn vraag is (bijna) zoals in onderstaande link:
http://www.helpmij.nl/forum/showthread.php/334366-Bladen-beveiligen-(meerdere-te-gelijk)

Ik heb een document met 31 tabbladen.
30 stuks daarvan zijn gelijk (hiervan moeten enkele cellen invulbaar blijven voor de gebruiker). De positie hiervan is ook overal gelijk.
1 tabblad heeft enkele cellen die invulbaar moeten blijven, maar de positie is anders dan de overige 30. De rest van het blad moet worden beveiligd.

Mijn vraag is, hoe kan ik dus snel deze 31 tabbladen beveiligen (met 'één' druk op de knop) (en dat de vooraf ingestelde cellen) invulbaar blijven.

 

[Cobbe]

Hier een filpmje:

https://we.tl/95WIWD3k2e

 

[MGM]

Mooi filmpje! Erg duidelijk.

Ik had alleen gehoopt dat het beveiligen van de 30 stuks tabbladen in 1 handeling uitgevoerd kan worden, i.p.v. stuk voor stuk beveiligen..
Is dat mogelijk?

 

[gast0660]

Zoiets?

sub dotchie()
Dim ws as Worksheet
Dim pwd as String

pwd = "test" ' <-Paswoord
For Each ws In Worksheets
    ws.Protect Password:=pwd
Next ws
end sub