Saisie d'un mdp demandé

Bonjour,

Je n'ai pas trouvé la réponse à ma question sur ce forum, j'espère ne pas créer un doublon....

Je suis en train de mettre à jour plusieurs macro qui ne fonctionnent plus pour mon entreprise. Sur l'une de ces macro, lors du lancement la macro ouvre plusieurs fichiers pour copier des données les uns dans les autres :

If DialogSheets("Dialog1").CheckBoxes(1).Value = 1 Then

Workbooks.Open Filename:="U:\Lgptgm\Synthèse Tps\Mois\" & "base" & mois & annee & ".xlsx"

'Insérer une formule pour saisir le mdp demandé

End If

Les fichiers sont protégés par des mdp, que je ne souhaite pas supprimer, mais je voudrais savoir si il est possible de saisir le mdp directement dans la macro, ce qui permettra de ne pas intervenir lors du lancement.

Merci d'avance pour vos réponses.

P.S : A quoi sert la première ligne ? est-ce que je peux la supprimer et ouvrir directement le fichier voulu ?

Bonjour,

Workbooks.Open Filename:="U:\Lgptgm\Synthèse Tps\Mois\" & "base" & mois & annee & ".xlsx", password:="toto"

évidemment toto est à remplacer par le bon mot de passe

Si facile... merci

Dans le fichier de destination

Onglet "Données" / option modifier les liens

Laisser cocher automatique, mais cliquer sur le bouton : invite de démarrage

et cocher "ne pas afficher l'alerte et mettre à jour les liens"

Rechercher des sujets similaires à "saisie mdp demande"