Modifier mot de passe fichier par VBA

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.

Bonjour,

Code:

---

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 :P

Cordialement

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 ?

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

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é)

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