Bonjour =E0 tous,=20
Dans un userform de type mode passe, est-il possible de=20
limiter le nombre de saisie du mot de passe comme pour=20
une carte bancaire et afficher un message stipulant que=20
le classeur va se fermer si les trois essais son=20
invalides.
Merci a tous!
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
Nicolas B.
Salut,
Quelque chose comme ça dans le code de la UserForm ?
Dim i As Integer
Private Sub CommandButton1_Click() If TextBox1.Value = "Mot de passe" Then Unload Me Else i = i + 1 If i = 3 Then Application.DisplayAlerts = False ThisWorkbook.Close Else MsgBox "Perdu, il vous reste " & 3 - i & " essai(s)." TextBox1.Value = "" End If End If End Sub
A+ -- Nicolas B.
Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
Salut,
Quelque chose comme ça dans le code de la UserForm ?
Dim i As Integer
Private Sub CommandButton1_Click()
If TextBox1.Value = "Mot de passe" Then
Unload Me
Else
i = i + 1
If i = 3 Then
Application.DisplayAlerts = False
ThisWorkbook.Close
Else
MsgBox "Perdu, il vous reste " & 3 - i & " essai(s)."
TextBox1.Value = ""
End If
End If
End Sub
A+
--
Nicolas B.
Bonjour à tous,
Dans un userform de type mode passe, est-il possible de
limiter le nombre de saisie du mot de passe comme pour
une carte bancaire et afficher un message stipulant que
le classeur va se fermer si les trois essais son
invalides.
Merci a tous!
Quelque chose comme ça dans le code de la UserForm ?
Dim i As Integer
Private Sub CommandButton1_Click() If TextBox1.Value = "Mot de passe" Then Unload Me Else i = i + 1 If i = 3 Then Application.DisplayAlerts = False ThisWorkbook.Close Else MsgBox "Perdu, il vous reste " & 3 - i & " essai(s)." TextBox1.Value = "" End If End If End Sub
A+ -- Nicolas B.
Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
boblebob
salut,
voici un petit code à mettre dans le thisworkbook :
Private Sub Workbook_Open() Dim Sortie%, Compteur%
Do motpasse = InputBox("Saisir le mot de passe") If motpasse = "excel" Then MsgBox "vous pouvez ouvrir le classeur" Sortie% = 1 'si c'est bon alors sortie% prend la valeur de 1,lié à une privatesub Else Compteur% = Compteur% + 1 MsgBox "Mot de passe faux" If Compteur% = 3 Then Sortie% = 1 'lorsque compteur =3 alors sortie=1 donc enchaine sur privatesub MsgBox "Le fichier va être fermé" End If End If Loop Until Sortie = 1 If Compteur% = 3 Then ActiveWorkbook.Close End If End Sub
y a peut-être plus simple ? -- A+
Bob ----
"STEN" a écrit dans le message de news:20bbd01c4593d$99499530$ Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
salut,
voici un petit code à mettre dans le thisworkbook :
Private Sub Workbook_Open()
Dim Sortie%, Compteur%
Do
motpasse = InputBox("Saisir le mot de passe")
If motpasse = "excel" Then
MsgBox "vous pouvez ouvrir le classeur"
Sortie% = 1
'si c'est bon alors sortie% prend la valeur de 1,lié à une
privatesub
Else
Compteur% = Compteur% + 1
MsgBox "Mot de passe faux"
If Compteur% = 3 Then
Sortie% = 1
'lorsque compteur =3 alors sortie=1 donc enchaine sur privatesub
MsgBox "Le fichier va être fermé"
End If
End If
Loop Until Sortie = 1
If Compteur% = 3 Then
ActiveWorkbook.Close
End If
End Sub
y a peut-être plus simple ?
--
A+
Bob
----
"STEN" <JYSMLD83@aol.com> a écrit dans le message de
news:20bbd01c4593d$99499530$a001280a@phx.gbl...
Bonjour à tous,
Dans un userform de type mode passe, est-il possible de
limiter le nombre de saisie du mot de passe comme pour
une carte bancaire et afficher un message stipulant que
le classeur va se fermer si les trois essais son
invalides.
Merci a tous!
voici un petit code à mettre dans le thisworkbook :
Private Sub Workbook_Open() Dim Sortie%, Compteur%
Do motpasse = InputBox("Saisir le mot de passe") If motpasse = "excel" Then MsgBox "vous pouvez ouvrir le classeur" Sortie% = 1 'si c'est bon alors sortie% prend la valeur de 1,lié à une privatesub Else Compteur% = Compteur% + 1 MsgBox "Mot de passe faux" If Compteur% = 3 Then Sortie% = 1 'lorsque compteur =3 alors sortie=1 donc enchaine sur privatesub MsgBox "Le fichier va être fermé" End If End If Loop Until Sortie = 1 If Compteur% = 3 Then ActiveWorkbook.Close End If End Sub
y a peut-être plus simple ? -- A+
Bob ----
"STEN" a écrit dans le message de news:20bbd01c4593d$99499530$ Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
Hervé
Salut Sten, Une de plus ;o)
Private Sub CommandButton1_Click() Static I As Integer I = I + 1 If I = 3 Then MsgBox "Le mot de passe est faux, " _ & "le classeur va être fermé !" Unload Me ThisWorkbook.Close Exit Sub End If If TextBox1.Text = "Bon_MDP" Then Unload Me Exit Sub Else MsgBox "Attention, plus que " & _ 3 - I & " tentative(s) !" TextBox1.Text = "" TextBox1.SetFocus End If End Sub
Hervé.
"STEN" a écrit dans le message news: 20bbd01c4593d$99499530$ Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
Salut Sten,
Une de plus ;o)
Private Sub CommandButton1_Click()
Static I As Integer
I = I + 1
If I = 3 Then
MsgBox "Le mot de passe est faux, " _
& "le classeur va être fermé !"
Unload Me
ThisWorkbook.Close
Exit Sub
End If
If TextBox1.Text = "Bon_MDP" Then
Unload Me
Exit Sub
Else
MsgBox "Attention, plus que " & _
3 - I & " tentative(s) !"
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub
Hervé.
"STEN" <JYSMLD83@aol.com> a écrit dans le message news:
20bbd01c4593d$99499530$a001280a@phx.gbl...
Bonjour à tous,
Dans un userform de type mode passe, est-il possible de
limiter le nombre de saisie du mot de passe comme pour
une carte bancaire et afficher un message stipulant que
le classeur va se fermer si les trois essais son
invalides.
Merci a tous!
Private Sub CommandButton1_Click() Static I As Integer I = I + 1 If I = 3 Then MsgBox "Le mot de passe est faux, " _ & "le classeur va être fermé !" Unload Me ThisWorkbook.Close Exit Sub End If If TextBox1.Text = "Bon_MDP" Then Unload Me Exit Sub Else MsgBox "Attention, plus que " & _ 3 - I & " tentative(s) !" TextBox1.Text = "" TextBox1.SetFocus End If End Sub
Hervé.
"STEN" a écrit dans le message news: 20bbd01c4593d$99499530$ Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
boblebob
pas très clair mon code ca j'ai fait un mélange de 2 macros avant de te l'envoyer, ne tiens pas compte des commentaires
-- A+
Bob ----
"boblebob" a écrit dans le message de news:
salut,
voici un petit code à mettre dans le thisworkbook :
Private Sub Workbook_Open() Dim Sortie%, Compteur%
Do motpasse = InputBox("Saisir le mot de passe") If motpasse = "excel" Then MsgBox "vous pouvez ouvrir le classeur" Sortie% = 1 'si c'est bon alors sortie% prend la valeur de 1,lié à une privatesub Else Compteur% = Compteur% + 1 MsgBox "Mot de passe faux" If Compteur% = 3 Then Sortie% = 1 'lorsque compteur =3 alors sortie=1 donc enchaine sur privatesub MsgBox "Le fichier va être fermé" End If End If Loop Until Sortie = 1 If Compteur% = 3 Then ActiveWorkbook.Close End If End Sub
y a peut-être plus simple ? -- A+
Bob ----
"STEN" a écrit dans le message de news:20bbd01c4593d$99499530$ Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
pas très clair mon code ca j'ai fait un mélange de 2 macros avant de te
l'envoyer, ne tiens pas compte des commentaires
--
A+
Bob
----
"boblebob" <nosp-00-boblebob@voila.fr> a écrit dans le message de
news:enAFsGUWEHA.1144@TK2MSFTNGP10.phx.gbl...
salut,
voici un petit code à mettre dans le thisworkbook :
Private Sub Workbook_Open()
Dim Sortie%, Compteur%
Do
motpasse = InputBox("Saisir le mot de passe")
If motpasse = "excel" Then
MsgBox "vous pouvez ouvrir le classeur"
Sortie% = 1
'si c'est bon alors sortie% prend la valeur de 1,lié à une
privatesub
Else
Compteur% = Compteur% + 1
MsgBox "Mot de passe faux"
If Compteur% = 3 Then
Sortie% = 1
'lorsque compteur =3 alors sortie=1 donc enchaine sur privatesub
MsgBox "Le fichier va être fermé"
End If
End If
Loop Until Sortie = 1
If Compteur% = 3 Then
ActiveWorkbook.Close
End If
End Sub
y a peut-être plus simple ?
--
A+
Bob
----
"STEN" <JYSMLD83@aol.com> a écrit dans le message de
news:20bbd01c4593d$99499530$a001280a@phx.gbl...
Bonjour à tous,
Dans un userform de type mode passe, est-il possible de
limiter le nombre de saisie du mot de passe comme pour
une carte bancaire et afficher un message stipulant que
le classeur va se fermer si les trois essais son
invalides.
Merci a tous!
pas très clair mon code ca j'ai fait un mélange de 2 macros avant de te l'envoyer, ne tiens pas compte des commentaires
-- A+
Bob ----
"boblebob" a écrit dans le message de news:
salut,
voici un petit code à mettre dans le thisworkbook :
Private Sub Workbook_Open() Dim Sortie%, Compteur%
Do motpasse = InputBox("Saisir le mot de passe") If motpasse = "excel" Then MsgBox "vous pouvez ouvrir le classeur" Sortie% = 1 'si c'est bon alors sortie% prend la valeur de 1,lié à une privatesub Else Compteur% = Compteur% + 1 MsgBox "Mot de passe faux" If Compteur% = 3 Then Sortie% = 1 'lorsque compteur =3 alors sortie=1 donc enchaine sur privatesub MsgBox "Le fichier va être fermé" End If End If Loop Until Sortie = 1 If Compteur% = 3 Then ActiveWorkbook.Close End If End Sub
y a peut-être plus simple ? -- A+
Bob ----
"STEN" a écrit dans le message de news:20bbd01c4593d$99499530$ Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
STEN
Merci a vous tous c'est ce que je voulais
-----Message d'origine----- Salut Sten, Une de plus ;o)
Private Sub CommandButton1_Click() Static I As Integer I = I + 1 If I = 3 Then MsgBox "Le mot de passe est faux, " _ & "le classeur va être fermé !" Unload Me ThisWorkbook.Close Exit Sub End If If TextBox1.Text = "Bon_MDP" Then Unload Me Exit Sub Else MsgBox "Attention, plus que " & _ 3 - I & " tentative(s) !" TextBox1.Text = "" TextBox1.SetFocus End If End Sub
Hervé.
"STEN" a écrit dans le message news: 20bbd01c4593d$99499530$ Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
.
Merci a vous tous c'est ce que je voulais
-----Message d'origine-----
Salut Sten,
Une de plus ;o)
Private Sub CommandButton1_Click()
Static I As Integer
I = I + 1
If I = 3 Then
MsgBox "Le mot de passe est faux, " _
& "le classeur va être fermé !"
Unload Me
ThisWorkbook.Close
Exit Sub
End If
If TextBox1.Text = "Bon_MDP" Then
Unload Me
Exit Sub
Else
MsgBox "Attention, plus que " & _
3 - I & " tentative(s) !"
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub
Hervé.
"STEN" <JYSMLD83@aol.com> a écrit dans le message news:
20bbd01c4593d$99499530$a001280a@phx.gbl...
Bonjour à tous,
Dans un userform de type mode passe, est-il possible de
limiter le nombre de saisie du mot de passe comme pour
une carte bancaire et afficher un message stipulant que
le classeur va se fermer si les trois essais son
invalides.
Merci a tous!
-----Message d'origine----- Salut Sten, Une de plus ;o)
Private Sub CommandButton1_Click() Static I As Integer I = I + 1 If I = 3 Then MsgBox "Le mot de passe est faux, " _ & "le classeur va être fermé !" Unload Me ThisWorkbook.Close Exit Sub End If If TextBox1.Text = "Bon_MDP" Then Unload Me Exit Sub Else MsgBox "Attention, plus que " & _ 3 - I & " tentative(s) !" TextBox1.Text = "" TextBox1.SetFocus End If End Sub
Hervé.
"STEN" a écrit dans le message news: 20bbd01c4593d$99499530$ Bonjour à tous, Dans un userform de type mode passe, est-il possible de limiter le nombre de saisie du mot de passe comme pour une carte bancaire et afficher un message stipulant que le classeur va se fermer si les trois essais son invalides. Merci a tous!
