Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro...
S'il est faux, rien ne se passe évidemment!
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
Jacky
Re... Un truc simple... En début de macro '--------------- mdp = InputBox("Mot de passe", "Entrez le mot de passe") If mdp <> "toto" Then Exit Sub 'la suite du code ici '--- '--------- End Sub
Ps: T'as réussi à cacher tes lignes????
Salutations JJ
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Re...
Un truc simple...
En début de macro
'---------------
mdp = InputBox("Mot de passe", "Entrez le mot de passe")
If mdp <> "toto" Then Exit Sub
'la suite du code ici
'---
'---------
End Sub
Ps: T'as réussi à cacher tes lignes????
Salutations
JJ
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de
news:63D02088-BD2B-49E7-95E5-A880C7135A69@microsoft.com...
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui
souhaiterai
cliquer sur le bouton d'exécution de ma macro...
S'il est faux, rien ne se passe évidemment!
Re... Un truc simple... En début de macro '--------------- mdp = InputBox("Mot de passe", "Entrez le mot de passe") If mdp <> "toto" Then Exit Sub 'la suite du code ici '--- '--------- End Sub
Ps: T'as réussi à cacher tes lignes????
Salutations JJ
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
michdenis
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2) If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news: Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Bonjour Grégory,
voici un exemple :
'----------------------
Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String
LaPasse = "denis"
A = 3
Do
Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2)
If Res = "Faux" Then Exit Sub
If Res = LaPasse Then
Call MaMacro
Else
MsgBox "Ce mot de passe est faux. Réessayer"
End If
A = A - 1
Loop Until A = 0
End Sub
'----------------------
Sub MaMacro()
MsgBox "bonjour"
End Sub
'----------------------
Salutations!
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de news: 63D02088-BD2B-49E7-95E5-A880C7135A69@microsoft.com...
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro...
S'il est faux, rien ne se passe évidemment!
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2) If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news: Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Hervé
Bonsoir Grégory, C'est possible, exemple simple : Sub Test() Dim MdP As String MdP = InputBox("Entrez le mot de passe ?", "Mot de passe") If MdP <> "Mon_Mot" Then MsgBox "Vous n'avez pas accès à ma jolie proc. !" Exit Sub End If 'suite de ta proc. End Sub
Ensuite, tu vas dans "Outils", "Propriétés de VBAProject..." et dans l'onglet "Protection" tu coche et entre un mot de passe, puis tu confirme, enregistre et ferme ton classeur. A la réouverture, tu dois indiquer un mot de passe pour avoir accès au projet VBA ce qui masque ton mot de passe aux autres.
Hervé.
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Bonsoir Grégory,
C'est possible, exemple simple :
Sub Test()
Dim MdP As String
MdP = InputBox("Entrez le mot de passe ?", "Mot de passe")
If MdP <> "Mon_Mot" Then
MsgBox "Vous n'avez pas accès à ma jolie proc. !"
Exit Sub
End If
'suite de ta proc.
End Sub
Ensuite, tu vas dans "Outils", "Propriétés de VBAProject..." et dans
l'onglet "Protection" tu coche et entre un mot de passe, puis tu confirme,
enregistre et ferme ton classeur. A la réouverture, tu dois indiquer un mot
de passe pour avoir accès au projet VBA ce qui masque ton mot de passe aux
autres.
Hervé.
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de
news: 63D02088-BD2B-49E7-95E5-A880C7135A69@microsoft.com...
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui
souhaiterai
cliquer sur le bouton d'exécution de ma macro...
S'il est faux, rien ne se passe évidemment!
Bonsoir Grégory, C'est possible, exemple simple : Sub Test() Dim MdP As String MdP = InputBox("Entrez le mot de passe ?", "Mot de passe") If MdP <> "Mon_Mot" Then MsgBox "Vous n'avez pas accès à ma jolie proc. !" Exit Sub End If 'suite de ta proc. End Sub
Ensuite, tu vas dans "Outils", "Propriétés de VBAProject..." et dans l'onglet "Protection" tu coche et entre un mot de passe, puis tu confirme, enregistre et ferme ton classeur. A la réouverture, tu dois indiquer un mot de passe pour avoir accès au projet VBA ce qui masque ton mot de passe aux autres.
Hervé.
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Jacky
Re... Bien mieux que mon code, mais sans Exit Sub après Call MaMacro, elle va boucler 3 fois.
Salutations JJ
"michdenis" a écrit dans le message de news:upD3$
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2)
If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Re...
Bien mieux que mon code, mais sans Exit Sub après Call MaMacro, elle va
boucler 3 fois.
Salutations
JJ
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:upD3$UN1FHA.3124@TK2MSFTNGP12.phx.gbl...
Bonjour Grégory,
voici un exemple :
'----------------------
Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String
LaPasse = "denis"
A = 3
Do
Res = Application.InputBox("Mot de passe", A & " tentatives...", , , ,
, , 2)
If Res = "Faux" Then Exit Sub
If Res = LaPasse Then
Call MaMacro
Else
MsgBox "Ce mot de passe est faux. Réessayer"
End If
A = A - 1
Loop Until A = 0
End Sub
'----------------------
Sub MaMacro()
MsgBox "bonjour"
End Sub
'----------------------
Salutations!
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de
news: 63D02088-BD2B-49E7-95E5-A880C7135A69@microsoft.com...
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui
souhaiterai
cliquer sur le bouton d'exécution de ma macro...
S'il est faux, rien ne se passe évidemment!
Re... Bien mieux que mon code, mais sans Exit Sub après Call MaMacro, elle va boucler 3 fois.
Salutations JJ
"michdenis" a écrit dans le message de news:upD3$
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2)
If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
michdenis
Bonjour Jacky,
Je te fais confiance ... tu as dit 3 fois ? Vendu.
;-))
Salutations!
"Jacky" a écrit dans le message de news: % Re... Bien mieux que mon code, mais sans Exit Sub après Call MaMacro, elle va boucler 3 fois.
Salutations JJ
"michdenis" a écrit dans le message de news:upD3$
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2)
If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Bonjour Jacky,
Je te fais confiance ... tu as dit 3 fois ? Vendu.
;-))
Salutations!
"Jacky" <nospam@bidon.fr> a écrit dans le message de news: %232NoqgN1FHA.2616@tk2msftngp13.phx.gbl...
Re...
Bien mieux que mon code, mais sans Exit Sub après Call MaMacro, elle va
boucler 3 fois.
Salutations
JJ
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:upD3$UN1FHA.3124@TK2MSFTNGP12.phx.gbl...
Bonjour Grégory,
voici un exemple :
'----------------------
Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String
LaPasse = "denis"
A = 3
Do
Res = Application.InputBox("Mot de passe", A & " tentatives...", , , ,
, , 2)
If Res = "Faux" Then Exit Sub
If Res = LaPasse Then
Call MaMacro
Else
MsgBox "Ce mot de passe est faux. Réessayer"
End If
A = A - 1
Loop Until A = 0
End Sub
'----------------------
Sub MaMacro()
MsgBox "bonjour"
End Sub
'----------------------
Salutations!
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de
news: 63D02088-BD2B-49E7-95E5-A880C7135A69@microsoft.com...
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui
souhaiterai
cliquer sur le bouton d'exécution de ma macro...
S'il est faux, rien ne se passe évidemment!
Je te fais confiance ... tu as dit 3 fois ? Vendu.
;-))
Salutations!
"Jacky" a écrit dans le message de news: % Re... Bien mieux que mon code, mais sans Exit Sub après Call MaMacro, elle va boucler 3 fois.
Salutations JJ
"michdenis" a écrit dans le message de news:upD3$
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2)
If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Grégory
Merci à tous pour votre aide! Que seraient mes macros sans vous...
"michdenis" wrote:
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2) If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news: Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Merci à tous pour votre aide!
Que seraient mes macros sans vous...
"michdenis" wrote:
Bonjour Grégory,
voici un exemple :
'----------------------
Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String
LaPasse = "denis"
A = 3
Do
Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2)
If Res = "Faux" Then Exit Sub
If Res = LaPasse Then
Call MaMacro
Else
MsgBox "Ce mot de passe est faux. Réessayer"
End If
A = A - 1
Loop Until A = 0
End Sub
'----------------------
Sub MaMacro()
MsgBox "bonjour"
End Sub
'----------------------
Salutations!
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de news: 63D02088-BD2B-49E7-95E5-A880C7135A69@microsoft.com...
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro...
S'il est faux, rien ne se passe évidemment!
Merci à tous pour votre aide! Que seraient mes macros sans vous...
"michdenis" wrote:
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2) If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news: Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Grégory
Je me permet de suggérer une petite optimisation... (pour une fois que je peux!)
Juste après le "Call MaMacro", faire un "GoTo" vers le "End Sub" afin d'éviter de boucler encore deux fois si l'utilisateur rentre le bon mot de passe au 1er essai (A=3 et on demande le pwd jusqu'à ce que A=0).
En espérant que ça serve à d'autres! Grégory
Merci à tous pour votre aide! Que seraient mes macros sans vous...
"michdenis" wrote:
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2) If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news: Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Je me permet de suggérer une petite optimisation... (pour une fois que je
peux!)
Juste après le "Call MaMacro", faire un "GoTo" vers le "End Sub" afin
d'éviter de boucler encore deux fois si l'utilisateur rentre le bon mot de
passe au 1er essai (A=3 et on demande le pwd jusqu'à ce que A=0).
En espérant que ça serve à d'autres!
Grégory
Merci à tous pour votre aide!
Que seraient mes macros sans vous...
"michdenis" wrote:
Bonjour Grégory,
voici un exemple :
'----------------------
Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String
LaPasse = "denis"
A = 3
Do
Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2)
If Res = "Faux" Then Exit Sub
If Res = LaPasse Then
Call MaMacro
Else
MsgBox "Ce mot de passe est faux. Réessayer"
End If
A = A - 1
Loop Until A = 0
End Sub
'----------------------
Sub MaMacro()
MsgBox "bonjour"
End Sub
'----------------------
Salutations!
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de news: 63D02088-BD2B-49E7-95E5-A880C7135A69@microsoft.com...
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro...
S'il est faux, rien ne se passe évidemment!
Je me permet de suggérer une petite optimisation... (pour une fois que je peux!)
Juste après le "Call MaMacro", faire un "GoTo" vers le "End Sub" afin d'éviter de boucler encore deux fois si l'utilisateur rentre le bon mot de passe au 1er essai (A=3 et on demande le pwd jusqu'à ce que A=0).
En espérant que ça serve à d'autres! Grégory
Merci à tous pour votre aide! Que seraient mes macros sans vous...
"michdenis" wrote:
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2) If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news: Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Jacky
Re... Un Exit Sub ira mieux, comme déjà dit plus haut. ;o)) JJ
"Grégory" a écrit dans le message de news:
Je me permet de suggérer une petite optimisation... (pour une fois que je peux!)
Juste après le "Call MaMacro", faire un "GoTo" vers le "End Sub" afin d'éviter de boucler encore deux fois si l'utilisateur rentre le bon mot de passe au 1er essai (A=3 et on demande le pwd jusqu'à ce que A=0).
En espérant que ça serve à d'autres! Grégory
Merci à tous pour votre aide! Que seraient mes macros sans vous...
"michdenis" wrote:
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2)
If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
Merci de votre aide, Grégory
Re...
Un Exit Sub ira mieux, comme déjà dit plus haut.
;o))
JJ
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de
news:B7E0A5A8-5FF6-4B69-A848-BF4E1544247C@microsoft.com...
Je me permet de suggérer une petite optimisation... (pour une fois que je
peux!)
Juste après le "Call MaMacro", faire un "GoTo" vers le "End Sub" afin
d'éviter de boucler encore deux fois si l'utilisateur rentre le bon mot de
passe au 1er essai (A=3 et on demande le pwd jusqu'à ce que A=0).
En espérant que ça serve à d'autres!
Grégory
Merci à tous pour votre aide!
Que seraient mes macros sans vous...
"michdenis" wrote:
Bonjour Grégory,
voici un exemple :
'----------------------
Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String
LaPasse = "denis"
A = 3
Do
Res = Application.InputBox("Mot de passe", A & " tentatives...", ,
, , , , 2)
If Res = "Faux" Then Exit Sub
If Res = LaPasse Then
Call MaMacro
Else
MsgBox "Ce mot de passe est faux. Réessayer"
End If
A = A - 1
Loop Until A = 0
End Sub
'----------------------
Sub MaMacro()
MsgBox "bonjour"
End Sub
'----------------------
Salutations!
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message
de news: 63D02088-BD2B-49E7-95E5-A880C7135A69@microsoft.com...
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui
souhaiterai
cliquer sur le bouton d'exécution de ma macro...
S'il est faux, rien ne se passe évidemment!
Re... Un Exit Sub ira mieux, comme déjà dit plus haut. ;o)) JJ
"Grégory" a écrit dans le message de news:
Je me permet de suggérer une petite optimisation... (pour une fois que je peux!)
Juste après le "Call MaMacro", faire un "GoTo" vers le "End Sub" afin d'éviter de boucler encore deux fois si l'utilisateur rentre le bon mot de passe au 1er essai (A=3 et on demande le pwd jusqu'à ce que A=0).
En espérant que ça serve à d'autres! Grégory
Merci à tous pour votre aide! Que seraient mes macros sans vous...
"michdenis" wrote:
Bonjour Grégory,
voici un exemple :
'---------------------- Sub MotDePasse()
Dim LaPasse As String, A As Integer, Res As String LaPasse = "denis" A = 3 Do Res = Application.InputBox("Mot de passe", A & " tentatives...", , , , , , 2)
If Res = "Faux" Then Exit Sub If Res = LaPasse Then Call MaMacro Else MsgBox "Ce mot de passe est faux. Réessayer" End If A = A - 1 Loop Until A = 0
End Sub '---------------------- Sub MaMacro() MsgBox "bonjour" End Sub '----------------------
Salutations!
"Grégory" a écrit dans le message de news:
Bonjour,
Est-il possible de protéger l'exécution d'une macro?
Je voudrai pouvoir demander un mot de passe à l'utilisateur qui souhaiterai
cliquer sur le bouton d'exécution de ma macro... S'il est faux, rien ne se passe évidemment!
