Automatiser l'ouverture de fichiers protégés

Bonjour,

J'ai 10 fichiers différents protégés tous par un mot de passe différent.

Aujourd'hui, j'ouvre fichier par fichier à la mano et entre les mots de passe avec mes p'tits doigts.

J'aimerai passer à quelque chose d'un peu plus rapide ... euh ... automatique !

Auriez-vous sous le coude une petite macro qui va bien ?

Merci beaucoup pour votre aide.

Et profiter bien, enfin du beau temps annoncé ce week end

Bonsoir,

pourquoi pas un bouton par fichier avec cette macro ?

Sub Unprotect()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Unprotect Password:="motdepasse"
Next
End Sub

Bonsoir,

Fred35, je crois que MC COY souhaite ouvrir des fichiers.

Il faut créer un classeur (protégé par mot de passe quand même) et mettre ce code dans un bouton de formulaire :

Sub Ouvrir()
   Workbooks.Open Chemin01, , , , Motdepasse01
   Workbooks.Open Chemin02, , , , Motdepasse02
   ' .../...
End Sub

Idéalement, il faut aussi protéger le projet, mais attention en cas de perte de mot de passe...

oups autant pour moi, j'ai mal lu...

Merci beaucoup Benead, c'est pile poil ce que je cherchais à faire !

Merci Fred35, pour ta réponse, même si j'ai toujours pas compris ce qu'elle permet de faire

Bonne soirée à tous

Juste pour info

C'est vrai que je n'étais pas dans le sujet, la macro que j'ai placé permet dans un classeur de déprotéger toutes les feuilles en cliquant sur un bouton.