macro excel pour ouverture fichier avec password

Bonjour,

pourriez vous me dire comment je pourrais ouvrir en automatque ce fichier excell qui me demande a chaque fois de saisir le password.

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Travail()
 
Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "C:\"
Fichier = "essai.xlsx"
 
Chemin = Dossier & Fichier
 
Dim Presence As Boolean
Presence = False
 
For Each w In Workbooks
If w.Name = Fichier Then Presence = True
Next w
 
If Presence = True Then
Workbooks(Fichier).Activate
Else
Workbooks.Open Filename:=Chemin
End If
End Sub