Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Vérifier le mot de passe

Vérifier le mot de passe

10 réponses
Avatar
Caroline L.
Bonjour,
J'aurais besoin d'un coup de pouce avec le début de cette macro (la 2e et 3e
ligne de code) c'est-à-dire les 2 lignes commençant par :
'Si le mot de passe est...

La difficulté pour moi est en fait de vérifier la validité du mot de passe
"1234" (ce mot de passe est utilisé pour la Protection du CLASSEUR). Si
l'utilisateur entre "1234" en réponse à la boîte dialogue "Ôter la
protection du classeur", la macro se poursuit. Si le mot de passe est
inexact ou vide, sortir de la macro avec le msgbox "Mot de passe invalide"

________
Sub test()

Application.Dialogs(417).Show
'Si le mot de passe est égal à "1234", poursuivre la macro
'Si le mot de passe est différent de "1234" ou est égal à "", quitter la
macro avec MsgBox "Mot de passe invalide"

Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub
________________

merci à vous qui m'aidez tant. :o)
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonjour Caroline,

Voir là, un fichier exemple à télécharger :

http://cjoint.com/?dqap6RfBnI


Salutations!



"Caroline L." a écrit dans le message de news: fDJZd.76392$
Bonjour,
J'aurais besoin d'un coup de pouce avec le début de cette macro (la 2e et 3e
ligne de code) c'est-à-dire les 2 lignes commençant par :
'Si le mot de passe est...

La difficulté pour moi est en fait de vérifier la validité du mot de passe
"1234" (ce mot de passe est utilisé pour la Protection du CLASSEUR). Si
l'utilisateur entre "1234" en réponse à la boîte dialogue "Ôter la
protection du classeur", la macro se poursuit. Si le mot de passe est
inexact ou vide, sortir de la macro avec le msgbox "Mot de passe invalide"

________
Sub test()

Application.Dialogs(417).Show
'Si le mot de passe est égal à "1234", poursuivre la macro
'Si le mot de passe est différent de "1234" ou est égal à "", quitter la
macro avec MsgBox "Mot de passe invalide"

Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub
________________

merci à vous qui m'aidez tant. :o)
Avatar
Caroline L.
Bonjour MichDenis,

Merci beaucoup ! C'est vraiment intéressant le userform, cela fait plus
personnalisé.
Sauf que j'ai besoin d'indication, je suis encore débutante avec le VB. J'ai
essayé mais je n'y arrive pas. J'ai copié le userform et son code mais
ensuite ?
Comment faire en sorte que lorsque j'ai entré 1234 dans la boîte dialogue,
ma macro se poursuive (si le mot de passe est bon évidement).

'fin de ma macro
Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub

Merci,
Caroline


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

Bonjour Caroline,

Voir là, un fichier exemple à télécharger :

http://cjoint.com/?dqap6RfBnI


Salutations!



"Caroline L." a écrit dans le message de news:
fDJZd.76392$

Bonjour,
J'aurais besoin d'un coup de pouce avec le début de cette macro (la 2e et
3e

ligne de code) c'est-à-dire les 2 lignes commençant par :
'Si le mot de passe est...

La difficulté pour moi est en fait de vérifier la validité du mot de passe
"1234" (ce mot de passe est utilisé pour la Protection du CLASSEUR). Si
l'utilisateur entre "1234" en réponse à la boîte dialogue "Ôter la
protection du classeur", la macro se poursuit. Si le mot de passe est
inexact ou vide, sortir de la macro avec le msgbox "Mot de passe invalide"

________
Sub test()

Application.Dialogs(417).Show
'Si le mot de passe est égal à "1234", poursuivre la macro
'Si le mot de passe est différent de "1234" ou est égal à "", quitter la
macro avec MsgBox "Mot de passe invalide"

Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub
________________

merci à vous qui m'aidez tant. :o)








Avatar
Denis Michon
Bonjour Caroline,

Regarde là : http://cjoint.com/?dqbwrDtvuG


Salutations!


"Caroline L." a écrit dans le message de news: kxKZd.76402$
Bonjour MichDenis,

Merci beaucoup ! C'est vraiment intéressant le userform, cela fait plus
personnalisé.
Sauf que j'ai besoin d'indication, je suis encore débutante avec le VB. J'ai
essayé mais je n'y arrive pas. J'ai copié le userform et son code mais
ensuite ?
Comment faire en sorte que lorsque j'ai entré 1234 dans la boîte dialogue,
ma macro se poursuive (si le mot de passe est bon évidement).

'fin de ma macro
Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub

Merci,
Caroline


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

Bonjour Caroline,

Voir là, un fichier exemple à télécharger :

http://cjoint.com/?dqap6RfBnI


Salutations!



"Caroline L." a écrit dans le message de news:
fDJZd.76392$

Bonjour,
J'aurais besoin d'un coup de pouce avec le début de cette macro (la 2e et
3e

ligne de code) c'est-à-dire les 2 lignes commençant par :
'Si le mot de passe est...

La difficulté pour moi est en fait de vérifier la validité du mot de passe
"1234" (ce mot de passe est utilisé pour la Protection du CLASSEUR). Si
l'utilisateur entre "1234" en réponse à la boîte dialogue "Ôter la
protection du classeur", la macro se poursuit. Si le mot de passe est
inexact ou vide, sortir de la macro avec le msgbox "Mot de passe invalide"

________
Sub test()

Application.Dialogs(417).Show
'Si le mot de passe est égal à "1234", poursuivre la macro
'Si le mot de passe est différent de "1234" ou est égal à "", quitter la
macro avec MsgBox "Mot de passe invalide"

Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub
________________

merci à vous qui m'aidez tant. :o)








Avatar
Caroline L.
Re-bonjour,

Ouf ! c'est ce qu'on appelle apprendre sur le tas ! J'ai essayé de copier
le plus fidèlement tout le code et userform mais de mon côté cela ne marche
pas.
N'y a t-il pas une façon plus simple de résoudre mon problème ? Seulement
insérer dans la procédure que le mot de passe doit être 1234 et que si
l'usager entre un mot de passe différent ou une case vide, et bien à ce
moment la macro s'arrête là (End if). Résultat : le classeur est toujours
protégé.

merci



"Denis Michon" a écrit dans le message de news:
oUKZd.10176$
Bonjour Caroline,

Regarde là : http://cjoint.com/?dqbwrDtvuG


Salutations!


"Caroline L." a écrit dans le message de news:
kxKZd.76402$

Bonjour MichDenis,

Merci beaucoup ! C'est vraiment intéressant le userform, cela fait plus
personnalisé.
Sauf que j'ai besoin d'indication, je suis encore débutante avec le VB.
J'ai

essayé mais je n'y arrive pas. J'ai copié le userform et son code mais
ensuite ?
Comment faire en sorte que lorsque j'ai entré 1234 dans la boîte dialogue,
ma macro se poursuive (si le mot de passe est bon évidement).

'fin de ma macro
Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub

Merci,
Caroline


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

Bonjour Caroline,

Voir là, un fichier exemple à télécharger :

http://cjoint.com/?dqap6RfBnI


Salutations!



"Caroline L." a écrit dans le message de news:
fDJZd.76392$

Bonjour,
J'aurais besoin d'un coup de pouce avec le début de cette macro (la 2e
et


3e
ligne de code) c'est-à-dire les 2 lignes commençant par :
'Si le mot de passe est...

La difficulté pour moi est en fait de vérifier la validité du mot de
passe


"1234" (ce mot de passe est utilisé pour la Protection du CLASSEUR). Si
l'utilisateur entre "1234" en réponse à la boîte dialogue "Ôter la
protection du classeur", la macro se poursuit. Si le mot de passe est
inexact ou vide, sortir de la macro avec le msgbox "Mot de passe
invalide"



________
Sub test()

Application.Dialogs(417).Show
'Si le mot de passe est égal à "1234", poursuivre la macro
'Si le mot de passe est différent de "1234" ou est égal à "", quitter la
macro avec MsgBox "Mot de passe invalide"

Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub
________________

merci à vous qui m'aidez tant. :o)













Avatar
Caroline L.
Je fais présentement d'autres tests avec ce que tu m'as suggéré et je me
demandais si il manque quelque chose à ce qui suit :

Private Sub TextBox1_Change()

End Sub




"Denis Michon" a écrit dans le message de news:
oUKZd.10176$
Bonjour Caroline,

Regarde là : http://cjoint.com/?dqbwrDtvuG


Salutations!


"Caroline L." a écrit dans le message de news:
kxKZd.76402$

Bonjour MichDenis,

Merci beaucoup ! C'est vraiment intéressant le userform, cela fait plus
personnalisé.
Sauf que j'ai besoin d'indication, je suis encore débutante avec le VB.
J'ai

essayé mais je n'y arrive pas. J'ai copié le userform et son code mais
ensuite ?
Comment faire en sorte que lorsque j'ai entré 1234 dans la boîte dialogue,
ma macro se poursuive (si le mot de passe est bon évidement).

'fin de ma macro
Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub

Merci,
Caroline


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

Bonjour Caroline,

Voir là, un fichier exemple à télécharger :

http://cjoint.com/?dqap6RfBnI


Salutations!



"Caroline L." a écrit dans le message de news:
fDJZd.76392$

Bonjour,
J'aurais besoin d'un coup de pouce avec le début de cette macro (la 2e
et


3e
ligne de code) c'est-à-dire les 2 lignes commençant par :
'Si le mot de passe est...

La difficulté pour moi est en fait de vérifier la validité du mot de
passe


"1234" (ce mot de passe est utilisé pour la Protection du CLASSEUR). Si
l'utilisateur entre "1234" en réponse à la boîte dialogue "Ôter la
protection du classeur", la macro se poursuit. Si le mot de passe est
inexact ou vide, sortir de la macro avec le msgbox "Mot de passe
invalide"



________
Sub test()

Application.Dialogs(417).Show
'Si le mot de passe est égal à "1234", poursuivre la macro
'Si le mot de passe est différent de "1234" ou est égal à "", quitter la
macro avec MsgBox "Mot de passe invalide"

Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub
________________

merci à vous qui m'aidez tant. :o)













Avatar
MichDenis
Bonsoir Caroline,

dans le dernier classeur que je t'ai envoyé, si le mot de passe saisi est 1234, la macro s'exécute ... c'est à dire tout
ce qui est placé entre if mot = Ok et End if .... tu peux y mettre le code que tu désires. Si le mot de passe
n'est pas le bon, rien ne se passe. (c'est ce que j'en ai conclu.)

Et la macro est déclenché par le bouton de commande sur la feuille 1

P.S. Je ne connais pas d'autre moyen de saisir un mot de passe avec des étoiles en lieu et place des caractères.


Sub ExécuterLaMacro()

UserForm1.Show
'Si mot = Ok, l'usager a utilisé
'le bon mot de passe et le reste
'de la macro s'exécute.


If Mot = "OK" Then
'fin de ma macro
Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41
End If
End Sub



Salutations!



"Caroline L." a écrit dans le message de news: a9MZd.77027$
Re-bonjour,

Ouf ! c'est ce qu'on appelle apprendre sur le tas ! J'ai essayé de copier
le plus fidèlement tout le code et userform mais de mon côté cela ne marche
pas.
N'y a t-il pas une façon plus simple de résoudre mon problème ? Seulement
insérer dans la procédure que le mot de passe doit être 1234 et que si
l'usager entre un mot de passe différent ou une case vide, et bien à ce
moment la macro s'arrête là (End if). Résultat : le classeur est toujours
protégé.

merci



"Denis Michon" a écrit dans le message de news:
oUKZd.10176$
Bonjour Caroline,

Regarde là : http://cjoint.com/?dqbwrDtvuG


Salutations!


"Caroline L." a écrit dans le message de news:
kxKZd.76402$

Bonjour MichDenis,

Merci beaucoup ! C'est vraiment intéressant le userform, cela fait plus
personnalisé.
Sauf que j'ai besoin d'indication, je suis encore débutante avec le VB.
J'ai

essayé mais je n'y arrive pas. J'ai copié le userform et son code mais
ensuite ?
Comment faire en sorte que lorsque j'ai entré 1234 dans la boîte dialogue,
ma macro se poursuive (si le mot de passe est bon évidement).

'fin de ma macro
Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub

Merci,
Caroline


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

Bonjour Caroline,

Voir là, un fichier exemple à télécharger :

http://cjoint.com/?dqap6RfBnI


Salutations!



"Caroline L." a écrit dans le message de news:
fDJZd.76392$

Bonjour,
J'aurais besoin d'un coup de pouce avec le début de cette macro (la 2e
et


3e
ligne de code) c'est-à-dire les 2 lignes commençant par :
'Si le mot de passe est...

La difficulté pour moi est en fait de vérifier la validité du mot de
passe


"1234" (ce mot de passe est utilisé pour la Protection du CLASSEUR). Si
l'utilisateur entre "1234" en réponse à la boîte dialogue "Ôter la
protection du classeur", la macro se poursuit. Si le mot de passe est
inexact ou vide, sortir de la macro avec le msgbox "Mot de passe
invalide"



________
Sub test()

Application.Dialogs(417).Show
'Si le mot de passe est égal à "1234", poursuivre la macro
'Si le mot de passe est différent de "1234" ou est égal à "", quitter la
macro avec MsgBox "Mot de passe invalide"

Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41

End Sub
________________

merci à vous qui m'aidez tant. :o)













Avatar
J
Bonjour à tous
pardonnez moi cette question simple (?)
mais où code t on le mot de passe : 1234 dans l'exemple
j'ai passé plein d'alcool sur mon écran pour le nettoyer, mais je n'ai rien
trouvé
merci Denis
J@@


"MichDenis"
dans le dernier classeur que je t'ai envoyé, si le mot de passe saisi est
1234, la macro s'exécute ... c'est à dire tout
ce qui est placé entre if mot = Ok et End if .... tu peux y mettre
le code que tu désires. Si le mot de passe
n'est pas le bon, rien ne se passe. (c'est ce que j'en ai conclu.)

Et la macro est déclenché par le bouton de commande sur la feuille 1

P.S. Je ne connais pas d'autre moyen de saisir un mot de passe avec des
étoiles en lieu et place des caractères.


Sub ExécuterLaMacro()

UserForm1.Show
'Si mot = Ok, l'usager a utilisé
'le bon mot de passe et le reste
'de la macro s'exécute.


If Mot = "OK" Then
'fin de ma macro
Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41
End If
End Sub




Avatar
jps
je suis à me demander si j'aurais aimé être le tas en question....
jps

"Caroline L." a écrit dans le message de
news:a9MZd.77027$
Re-bonjour,

Ouf ! c'est ce qu'on appelle apprendre sur le tas !


Avatar
jps
salut J@@
c'est bien parce que c'est toi et que michel denis m'a chargé de son interim
pendant son sommeil...
va voir tout en haut du code du userform, tu y trouveras ceci :
Const MotDePasse = "1234"
il a suffi à denis de mettre la propriété PasswordChar du Textbox à "*"
il est bien évident que si l'utilisateur (le user, dirait clément avec
délectation) grenouille un peu en VBA, le MDP sera vite découvert...la
preuve, moi qui suis de ce type de crapaud-là y suis parvenu...
jps

"J@@" a écrit dans le message de
news:
Bonjour à tous
pardonnez moi cette question simple (?)
mais où code t on le mot de passe : 1234 dans l'exemple
j'ai passé plein d'alcool sur mon écran pour le nettoyer, mais je n'ai
rien

trouvé
merci Denis
J@@


"MichDenis"
dans le dernier classeur que je t'ai envoyé, si le mot de passe saisi
est


1234, la macro s'exécute ... c'est à dire tout
ce qui est placé entre if mot = Ok et End if .... tu peux y
mettre


le code que tu désires. Si le mot de passe
n'est pas le bon, rien ne se passe. (c'est ce que j'en ai conclu.)

Et la macro est déclenché par le bouton de commande sur la feuille 1

P.S. Je ne connais pas d'autre moyen de saisir un mot de passe avec des
étoiles en lieu et place des caractères.


Sub ExécuterLaMacro()

UserForm1.Show
'Si mot = Ok, l'usager a utilisé
'le bon mot de passe et le reste
'de la macro s'exécute.


If Mot = "OK" Then
'fin de ma macro
Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41
End If
End Sub








Avatar
MichDenis
Bonjour JPS,

Voilà une explication qui ne saurait être plus clair !

Merci.


Salutations!



"jps" a écrit dans le message de news: %
salut J@@
c'est bien parce que c'est toi et que michel denis m'a chargé de son interim
pendant son sommeil...
va voir tout en haut du code du userform, tu y trouveras ceci :
Const MotDePasse = "1234"
il a suffi à denis de mettre la propriété PasswordChar du Textbox à "*"
il est bien évident que si l'utilisateur (le user, dirait clément avec
délectation) grenouille un peu en VBA, le MDP sera vite découvert...la
preuve, moi qui suis de ce type de crapaud-là y suis parvenu...
jps

"J@@" a écrit dans le message de
news:
Bonjour à tous
pardonnez moi cette question simple (?)
mais où code t on le mot de passe : 1234 dans l'exemple
j'ai passé plein d'alcool sur mon écran pour le nettoyer, mais je n'ai
rien

trouvé
merci Denis
J@@


"MichDenis"
dans le dernier classeur que je t'ai envoyé, si le mot de passe saisi
est


1234, la macro s'exécute ... c'est à dire tout
ce qui est placé entre if mot = Ok et End if .... tu peux y
mettre


le code que tu désires. Si le mot de passe
n'est pas le bon, rien ne se passe. (c'est ce que j'en ai conclu.)

Et la macro est déclenché par le bouton de commande sur la feuille 1

P.S. Je ne connais pas d'autre moyen de saisir un mot de passe avec des
étoiles en lieu et place des caractères.


Sub ExécuterLaMacro()

UserForm1.Show
'Si mot = Ok, l'usager a utilisé
'le bon mot de passe et le reste
'de la macro s'exécute.


If Mot = "OK" Then
'fin de ma macro
Range("B8").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "50.5"
Range("C3").Select
ActiveCell.FormulaR1C1 = "78"
Range("C4").Select
ActiveCell.FormulaR1C1 = "100"
Range("C7").Select
ActiveCell.FormulaR1C1 = "18"
Range("B3:C4").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 41
Range("C7").Select
Selection.Font.ColorIndex = 41
End If
End Sub