Discussion :

[Dinytro]

Bonjour,

Je possède un ensemble de fichiers (plus d'une centaines) protégé par mot de passe (le même pour tous) et je souhaiterais, à l'aide d'une macro, modifier le mot de passe de l'ensemble de ces fichiers sans avoir à les ouvrir un par un.

Est-ce possible ?
Par avance merci.

[LouiMz]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'Suppression de la protection
ActiveWorkbook.UnProtect Password:="ancien_mot_de_passe"
'Ajout de la Protection
ActiveWorkbook.Protect Password:="nouveau_mot_de_passe"

Pour la suppression des mot de passe sans ouvrir les fichiers je ne pense pas que celà soit possible... Mais toute preuve du contraire m'interesse

Cordialement

[Dinytro]

Merci pour cette réponse.
Votre solution ne semble pas fonctionner pour modifier le mot de passe d'ouverture du fichier.

Vous confirmez ?
Dans l'affirmative, existe t-il une solution ?

[LouiMz]

Exact !

Vu que le classeur doit être au préalable activé (Activeworkbook), ce qu'il ne fait pas car il y a un mot de passe...

Cependant il me semble que le classeur doit être lancé pour pouvoir supprimer les protections. Alors pour une centaine de fichiers....

Je m'excuse mais mes compétences s'arrete là

Cordialement

[Dinytro]

Pourquoi dites vous qu'il ne le fait pas ?
Je connais le mot de passe d'ouverture puisque je peux l'ouvrir (worbooks.open prend en paramètre le passwd)

Le code que vous m'avez donné tourne sans erreur mais n'a pas pour effet de modifier le mot de passe d'ouverture...

Le unprotect est relatif aux modifications du fichier mais pas à son ouverture.
Ce que je souhaiterais c'est modifier le mot de passe d'ouverture également (et là, au niveau du code, plus besoin de unprotect puisque s'il est ouvert, c'est qu'il n'est pas protégé)

[Dinytro]

La solution était toute simple : il suffit d'ajouter le mot de passe dans le "saveas" ...

Merci pour vos réponses
Bonne fin de journée à tous