VBA pour entrer un mot de passe

[Brigitte]

Bonjour le forum,

Je dispose d'une dizaine de fichier Excel qui gère ma comptabilté perso,
Banque, dépense familiale, auto, impot, sport, etc...
Je leur ai tous mis un mot de passe exemple "toto".
Pour éviter de les chercher sur le disque j'ai fait un fichier maitre avec
des boutons qui me charge seulement ceux que je désire.

Mon problème quand je clic sur un bouton et charge le fichier concerné,
il apparait la fenetre "mot de passe".

Ma question existe -t-il une routine VBA qui pourrait rentrer le mot de passe à
ma place? mes fichiers ont tous le même password.
Je pourrais inclure cette routine dans mon fichier maitre que je protègerais aussi.

Merci

@+ Brigitte

 

[@+Thierry]

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

 

[Brigitte]

Bonsoir thierry, Bonjour le forum,

C'est incroyable ça marche, merci. Ca va me simplifier la vie, sans enlever
les sécurités. de plus je ne pouvais tous mettre dans un seul classeur car
il pèserait trés lourd et puis par sécurité si un fichier s'abime je ne perds pas tout.

Merci

Bonne fin de week-end

Je vais voir les réponses sur mon dernier sujet "je ne demande rien" par contre s'il y a
à répondre, je répondrais demain, car je me lève tôt pour aller au boulot.

@+ Brigitte

 

[@+Thierry]

Bonne Nuit alors !

@+Thierry