Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 [RESOLU] Entrez des mots de passe automatiquement pour mettre les champs à jour

Strafyse

XLDnaute Nouveau
Bonjour,

Je me demandais s'il y a un code VBA pour entrer les mots de passe de fichiers liés à mon document Excel automatiquement sans les entrer manuellement?

Je m'explique, je dois faire un document qui rassemble des fichiers Excel confidentiels de chaque employé pour en faire un seul pour mon gestionnaire. Chaque employé a leur fichier Excel avec leur mot de passe pour entrer leur heures supplémentaires et j'ai créé un document Excel qui rassemble toutes ces données pour que mon gestionnaire puisse voir les heures supplémentaires de tout le monde. Mais le problème c'est qu'il doit entrer les mots de passe de tout le monde pour mettre à jour le fichier. Alors, je me demandais vu que l'on connait les mots de passe des employés, s'il y a un code VBA pour faire la mise à jour automatiquement sans entrer les mots de passe (car les mots de passe seraient dans le code VBA et entrés automatiquement). J'ai vérifié sur les forums et je n'ai rien trouvé.

Merci beaucoup pour votre aide!
 

sousou

XLDnaute Barbatruc
Bonjour
Voici un code qui ouvre un fichier 'pass.xlsx' avec le mot de passe 'd'
Une petite boucle avec la liste de tes mots de passes....

Sub deb()
chemin = ThisWorkbook.Path
Workbooks.Open chemin & "/pass.xlsx", Password:="d"
End Sub
 

Strafyse

XLDnaute Nouveau
Bonjour,

Merci beaucoup ça fonctionne très bien, mais j'ai ajouté un bout de code pour refermer le fichier Excel.

Private Sub Workbook_Open()
chemin = ThisWorkbook.Path
Workbooks.Open chemin & "/pass.xlsx", Password:="d"
Workbooks("pass.xlsx").Close True
End Sub

Merci encore!!!
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…