OVH Cloud OVH Cloud

mot de passe macro

3 réponses
Avatar
Utilisateur1
bonjour
je voudrait savoir s'il est possible au lancement d'une macro de demander un
mot de passe pour pouvoir l'executer? Si une ame charitable à la solution,je
lui en serait reconnaissant
++

3 réponses

Avatar
Jacky
Bonjour

Un exemple simple
'-------
Sub jj()
mdp = InputBox("Mot de passe", "Entrez le mot de passe")
If mdp <> "toto" Then Exit Sub
'le code ici
End Sub
'---------
Salutations
JJ

"Utilisateur1" <jmp> a écrit dans le message de
news:432ab0ef$0$1741$
bonjour
je voudrait savoir s'il est possible au lancement d'une macro de demander
un

mot de passe pour pouvoir l'executer? Si une ame charitable à la
solution,je

lui en serait reconnaissant
++




Avatar
merci, ça marche super!!
"Jacky" a écrit dans le message de news:

Bonjour

Un exemple simple
'-------
Sub jj()
mdp = InputBox("Mot de passe", "Entrez le mot de passe")
If mdp <> "toto" Then Exit Sub
'le code ici
End Sub
'---------
Salutations
JJ

"Utilisateur1" <jmp> a écrit dans le message de
news:432ab0ef$0$1741$
bonjour
je voudrait savoir s'il est possible au lancement d'une macro de demander
un

mot de passe pour pouvoir l'executer? Si une ame charitable à la
solution,je

lui en serait reconnaissant
++








Avatar
DC
Bonjour Jacky,

Merci...!! pour le code du Mot de passe, maintenant je l'utilise pour la
macro de mise à jour des prix, et çà fonctionne très bien,

Salutation!..........un grand Merci!................DC

"Jacky" a écrit dans le message de news:

Bonjour

Un exemple simple
'-------
Sub jj()
mdp = InputBox("Mot de passe", "Entrez le mot de passe")
If mdp <> "toto" Then Exit Sub
'le code ici
End Sub
'---------
Salutations
JJ

"Utilisateur1" <jmp> a écrit dans le message de
news:432ab0ef$0$1741$
bonjour
je voudrait savoir s'il est possible au lancement d'une macro de demander
un

mot de passe pour pouvoir l'executer? Si une ame charitable à la
solution,je

lui en serait reconnaissant
++