OVH Cloud OVH Cloud

Fichier avec mot de passe

1 réponse
Avatar
balou
Bonjour =E0 tous,

je souhaite enrichir une base se trouvant dans un fichier=20
excel, =E0 partir d'un formulaire se trouvant dans un autre=20
fichier.
Or ce fichier excel contenant la base sera prot=E9g=E9 par un=20
mot de passe.
Comment =E9crire en vba l'ouverture de ce fichier, avec=20
saisie automatique du mot de passe, pour que=20
l'utilisateur ne le voie pas ?
Ensuite ma proc=E9dure r=E9cup=E8rera certaines donn=E9es et=20
refermera le fichier avec sa protection.
Merci pour vos r=E9ponses qui m'aident =E0 progresser.

1 réponse

Avatar
Ellimac
Bonjour,

Ouvrir le fichier en indiquant le mot de passe, remplir
les infos et refermer en sauvegardant :

Private Sub Ok_Click()
Récup1 = UserForm1.TextBox1.Value
Récup2 = UserForm1.TextBox2.Value
Récup3 = UserForm1.TextBox3.Value
Workbooks.Open
FileName:="H:HfrclXLMacrosBase_Clients.xls",
password:="toto"
Range("a65000").End(xlUp).Offset(1, 0) = Récup1
Range("a65000").End(xlUp).Offset(0, 1) = Récup2
Range("a65000").End(xlUp).Offset(0, 2) = Récup3
ActiveWorkbook.Close True
UserForm1.Hide
End Sub

Camille

-----Message d'origine-----
Bonjour à tous,

je souhaite enrichir une base se trouvant dans un fichier
excel, à partir d'un formulaire se trouvant dans un autre
fichier.
Or ce fichier excel contenant la base sera protégé par un
mot de passe.
Comment écrire en vba l'ouverture de ce fichier, avec
saisie automatique du mot de passe, pour que
l'utilisateur ne le voie pas ?
Ensuite ma procédure récupèrera certaines données et
refermera le fichier avec sa protection.
Merci pour vos réponses qui m'aident à progresser.
.