Protection de plusieurs feuilles avec un mdp automatique

Bonjour j'ai un fichier Excel avec 8 feuilles je souhaite simplement quand je lance mon formulaire enlever la protection de toutes les feuilles mais sans taper le MDP , en effet je souhaite que cela soit automatique mais je veux quand même définir un MDP

Une fois la protection enlever je veux qu'elle se remette si je clique sur Annuler , Valider ou si je ferme mon formulaire

Merci d'avance

Bonjour,

c'est presque la même demande ? ou bien votre vision des choses à changer. Pour ce qui est des protections, s'il faut l'enlever à toutes les feuilles du classeur, alors dans la procédure d'initialisation du USF vous pouvez mettre ceci :

For Each Ws in ThisWorkbook.Sheets
    Ws.UnProtect
Next Ws

Et pour les remettre c'est Ws.Protect

Maintenant s'il faut un mot de passe : Ws.Unprotect Password:="lrd" et Ws.UnProtect Password:="lrd"

Vous l'aurez compris il faut remplacer lrd par votre mot de passe

@ bientôt

LouReeD