Relecture fichier protégé

Bonjour à tous.

Voici mon problème, je voudrais ouvrir automatiquement un fichier protégé par un mot de passe, après l’avoir choisi dans une liste.
Tout ce passe bien jusqu'à :
Application.Dialogs(xlDialogOpen).Show Mon repertoire

Mais après Excel ouvre la boite de dialogue demandant d’entrer manuellement le mot de passe, ce que je veux justement éviter et réaliser automatiquement.

Voici une partie du code :

ChDir "Mon repertoire"
Repert = " Mon repertoire "
Application.DisplayAlerts = False
Application.Dialogs(xlDialogOpen).Show Mon repertoire

(ouverture de la boite de dialogue avec demande du mot de passe)

Workbooks.Open Size_API, , , , "Password", " Password ", True


Merci de votre aide
Salut