Application.run avec mot de passe

Bonjour à tous,

Je vous sollicite ce jour pour un problème apparemment simple, mais que je ne parviens pas à solutionner.

Je n'ai pas forcément de fichier "exemple", c'est un problème d'écriture je pense.

En gros j'utilise la fonction "application.run" pour lancer une macro d'un autre fichier excel. Seulement cette macro est activable par mot de passe.

Comment puis-je incorporer ce mot de passe à la fonction application.run ?

code pour le mot de passe :

sub lolo ()
Mdp = Application.InputBox("Veuillez introduire votre mot de passe")
If Mdp <> "hip" Then MsgBox "Accès refusé !": Exit Sub
......etc
end sub

code pour l'appeler :

Application.Run "'Ventes.xlsm'!lolo"

Merci d'avance pour vos lumières

Isabelle

Bonjour,

Si tu affiches une InputBox pour la saisie du mot de passe, le fait de lancer la procédure avec Application.Run ne change rien, la boîte de dialogue va s'afficher pour la saisie du mot de passe.

Si tu veux éviter d'avoir à fournir le mot de passe dans la boîte de dialogue, il te faut modifier la procédure de vérification du mot de passe :

par exemple, tu la dotes d'un argument optionnel de type String (qui sera le mot de passe fourni) et la proc. ne lancera l'InputBox que si l'argument n'est pas fourni (= à ""), ainsi tu peux lancer ta proc. avec un mot de passe en argument :

Application.Run "'Ventes.xlsm'!lolo", "MotPasse"

Cordialement.

Bonjour Mferrand,

Je m'en doutais un peu.

Merci bcp pour ta réponse

Isabelle