Enlever mdp sur toutes les feuilles

bonjour,

j'ai un fichier avec 52 onglet et chaque feuille est protégé par un mot de passe, par exemple "mdp" car des cellules sont protégées.

Y'a t-il un moyen d'enlever les mots de passe sur toutes les feuilles pour pourvoir agir sur toutes les feuilles et le remettre ?

même VBA je suis preneur.

Franck

sub Unprotect()

for i=1 to 52
Sheets(i).Unprotect "mdp"
next i

end sub

et on change "Unprotect" pour l'inverse...

bonjour Zarik,

génial ton code. Je vais bien me le garder de côté, car j'ai pas mal de doc fait sous cette forme et protégé et que là, ça me rend carrément un grand service, donc encore merci et bon WE

Francky