Acces direct à un fichier

[BenHarber]

Bonjour le forum,
J’ai créé une barre d’outil personnalisée avec quelques boutons qui ont pour fonction d’ouvrir / fermer les fichiers que j’utilise couramment (cela me fait gagner du temps car ces fichiers ont un chemin d’accès très long, mon arborescence étant très développée).
Chaque bouton déclenche une macro ''Ouverture'' qui se trouve directement dans le fichier à ouvrir.
Cette macro ''Ouverture'' se présente comme suit :

Public test As Boolean
Sub Ouverture()
If test = False Then
ThisWorkbook.Activate
Else
ThisWorkbook.Close
End If
End Sub

Cela fonctionne très bien…mais lorsque le fichier est protégé en accès par un mot de passe, je suis obligé de le saisir, ce qui m’agace prodigieusement ! !

Question : y a-t-il une possibilité d’intégrer dans ma macro ''Ouverture'' le mot de passe de manière à ce que je n’aie pas à le saisir ? (je souhaite conserver l’ouverture par ''ThisWorkbook.Activate'' et ne pas passer par une macro placée à l’extérieur du fichier, du type Workbooks.Open FileName:='toto.xls')

D’avance, merci pour vos réponses et avis éclairés !

BenHarber

 

[ERIC S]

Bonjour

non vérifié, mais n'y-a-t'il pas possibilité de mettre

ThisWorkbook.Activate Password:='toto'

A+

 

[BenHarber]

J'avais déjà essayé cette solution...qui ne fonctionne malheureusement pas (Message du type ''Nb. d'arguments incorrect ou propriété incorrecte'' !!)
Quelqu'un aurait-il une autre idée ?