wachtwoord van verschillende tab bladen ineens ontgrendelen en beveiligen

[davylenders123]

Is er een manier om tab bladen die het zelfde paswoord hebben ineens te beveiligen of ontgrendelen in exel 2003.

Het is een file die ze mogen lezen en voor een stukje aanvullen waar 24 tab bladen zijn

En een andere file die 12 tab bladen heeft die ze alleen kunnen lezen.

Nu als ik iets moet aanpassen moet ik eerste van elke tab blad het wachtwoord ingeven.
Zou dit graag in 1 keer doen als dat moggelijk is.

 

[Warme bakkertje]

Sub tst()
On error resume next
For Each sh In Sheets
    sh.Unprotect "Zet hier je paswoord"
Next
End Sub

 

[ppms]

Warme Bakkertje,

Ik zit ook met dat probleem en ben blij met deze opllossing, is het dan mogelijk om alle tabbladen ook weer in een keer te beveiligingen.

Groet PPMS

 

[Warme bakkertje]

Eigenlijk simpel :d

Sub tst()
On error resume next
For Each sh In Sheets
    sh.Protect "Zet hier je paswoord"
Next
End Sub

 

[ppms]

Warme Bakkertje,

Vriendelijk bedankt voor de code.

Groet PPMS

 

[davylenders123]

Eigenlijk simpel :d

Sub tst()
On error resume next
For Each sh In Sheets
    sh.Protect "Zet hier je paswoord"
Next
End Sub

Ik krijg het jammer genoeg niet voor mekaar.
Weet niet juist hoe ik het moet doen.
Heb de 2 codes in vb in this workbook geplakt maar krijg dan elke keer een fout melding.
Mischien kan jij het eens in een vb bestandje zetten .
Heb er een toegevoegd hier Bekijk bijlage vb bestand 10.zip

 

[davylenders123]

Heb het uiteindelijk toch klaar gekregen.

B E D A N K T :thumb: