RE CouCou Brigitte
Alors c'est du sérieux maintenant !! (lol)
Bon ben c'est pas compliqué, à mettre dans ton classeur "Master"
Sub OuverturePassword()
Workbooks.Open Filename:="C:\Mes documents\mdp.xls", Password:="TOTO"
End Sub
Et si tu as aussi un passworld d'écriture :
Workbooks.Open Filename:="C:\Mes documents\mdp.xls", Password:="TOTO", WriteResPassword:="TOTO"
On peux aussi écrire la même chose comme ceci :
Sub OuverturePassword()
Workbooks.Open "C:\Mes documents\mdp.xls", , , , "TOTO", "TOTO"
End Sub
PS attention Password = Case Sensitive
Bon Dimanche
@+Thierry