compteur essais mot de passe

[isabelle lesage]

RE RE bonjour a vous tous,
comment réaliser pour le mot de passe, une valeur de 3 ou 5 essais et qu'il l'indique dans une msgbox et si après 3 ou 5 essais, enregistre et quit le fichier.
Merci
Isabelle

voici le code placé pour mon usf :

Option Explicit

Private Sub CommandButton1_Click()
End
Call allerencoderdanslisting
Unload lemotdepasse1
End Sub
Private Sub CommandButton2_Click()
Dim Chiffre As Range
Dim MonCode As String

MonCode = "2020"

Set Chiffre = ThisWorkbook.Sheets("Présentation").Range("a201")
Chiffre.Value = lemotdepasse1.TextBox1.Value

If Chiffre = MonCode Then
MsgBox "Votre code est bon, votre accés est autorisé"
Unload lemotdepasse1
Sheets("Listing").Select
Else
MsgBox "Votre code est mauvais, votre accès est refusé. RECOMMENCEZ..."
lemotdepasse1.TextBox1 = ""
Unload lemotdepasse1
End
'ThisWorkbook.Close SaveChanges:=False
End If
End Sub

 

[Robert]

Boujour Isabelle, bonjour le forum,

J'ai modifié ta macro pour effectuer une boucle sur 3 tentatives :

Private Sub CommandButton2_Click()

Dim Chiffre As Range
Dim MonCode As String
Dim x As Byte 'déclaration de la variable de boucle

For x = 1 To 3 '(ou 5) boucle
MonCode = "2020"

Set Chiffre = ThisWorkbook.Sheets("Présentation").Range("a201")
Chiffre.Value = lemotdepasse1.TextBox1.Value

If Chiffre = MonCode Then
MsgBox "Votre code est bon, votre accés est autorisé"
Unload lemotdepasse1
Sheets("Listing").Select
Exit Sub 'sort de la procédure
Else
MsgBox "Votre code est mauvais, votre accès est refusé. RECOMMENCEZ..."
lemotdepasse1.TextBox1 = ""
Unload lemotdepasse1
End If
Next 'prochaine tentative
End
'ThisWorkbook.Close SaveChanges:=False
End Sub

À plus,

Robert

 

[isabelle lesage]

Merci Robert, j'essaye de suite
Isabelle

 

[isabelle lesage]

je viens d'essayer le code que tu m'as envoyée , il me donne trois fois la msgbox disant que le code est errroné, mais le usf ne réapparait pas pour réencoder une deuxième tentative , ni la troisième, mais bien 3 x le msgbox qui indique que le code est erroné., peu tu encore m' aider svp
Merci
Isabelle

 

[@Christophe@]

Bonjour,

Isabelle, c'est plus simple si tu envois un fichier, parce que j'ai l'impression que ton fichier est un malange de code de gauche droite.

Envoi un fichier et explique ce que tu veux exactement

Merci

@Christophe@

 

[Robert]

Salut Isabelle, salut Christophe, salut le forum,

Chistophe a raison, avec un exemple ce serait bien plus simple. Mais j'ai peut-être la solution sans celui-ci :
Avant le message de ta condition ajoute la ligne suivante :

Call allerencoderdanslisting

À plus,

Robert

 

[EMG]

Bonsoir a tous

Je m’infiltre dans ce fil et je joint une petite démo qui fait ça comme tu le souhaite d’ailleurs ce fichier à déjà été mis sur le site avec d’autres démo de @+Thierry mai je ne les retrouve plus.
Pour ce faire j’ai mis ton code 2020 tu as 3 essaie de saisie du mot de passe si cela n’est pas correct on ferme le fichier sinon on l’ouvre (a savoir que la croix sur le UserForm est neutraliser pour empêcher la fermeture

Gérard

 

[isabelle lesage]

Merci a vous tous de l'aide que vous donner aux novices que nous sommes.

 

[@Christophe@]

Bonjour,

Bien bien, j'aime bien ton fichier EMG

Je remplacerai le ligne 'ActiveWorkbook.Close' par:

ActiveWorkbook.Close SaveChanges:=False


Merci pour cette démo

bonne journée

@Christophe@


P.S. J'espère que Isabelle va s'en sortir, parce que comme dirais mon ami @Thierry j'ai l'impression qu'elle nous fais une usine à gaz, lol

 

[isabelle lesage]

merci encore, pour l'usine a gaz...pas trop grave..en cours de chantier...., tant qu'elle n'explose pas, cest le principal....un grand merci a vous tous
Isabelle

 

[isabelle lesage]

date et mot de passe

Bnjour,
avec la démo de EMG sur les mdp reçu et modifiée pour moi, est il possible de faire coincider un new mot de passe choisi au préalable et dès que la date choisie ex: 01/01/2005 est dépassée le nouveau mot de passe rentre en application. Pouvez vous encore m'aider .....
Merci
Isabelle

 

[djessica]

Salut à tous,

Merci !! ce fichier correspond a ce que je recherchais car je suis egalement novice mais j'ai 2 problémes:
1.où se trouve le code ?(la totalité je veux dire en detail car là je nais accés qu'a cela:

Sub CodeVbe()
Application.VBE.MainWindow.Visible = True
End Sub

Sub InfosMdps()
FmMotDePasse.Show
End Sub

desolé si pour certains c une question bete mais bon ;-)
2.comment faire pour que:
a) la croix sur le UserForm ne soit PAS neutraliser pour permettre la fermeture du userform;
b)au bout de 3 essais pas forcémént consecutifs on puisse rester sur cette meme page ( en supposant que soit on est administrateur et on a accés a toutes les ressources soit on est un simple utilisateur et on accéde a autre chose)

Voila merci bcp dessayer de maider et ce forum est vraiment tres bien fait !

 

[EMG]

Bonjour le

Voila comme dit sur plus haut j'ai enfin retrouver la démo de @+Thierry qui traite la gestion des feuilles et la possibilité de changer le mot de passe. Suivez ce fil il y a tout et plus encore

<http://www.excel-downloads.com/html/French/forum/messages/1_76180_76180.htm>

Gérard

 

[djessica]

mot de passe

Salut à tous,

Merci !! ce fichier correspond a ce que je recherchais car je suis egalement novice mais j'ai 2 problémes:
1.où se trouve le code ?(la totalité je veux dire en detail car là je nais accés qu'a cela:

Sub CodeVbe()
Application.VBE.MainWindow.Visible = True
End Sub

Sub InfosMdps()
FmMotDePasse.Show
End Sub

desolé si pour certains c une question bete mais bon ;-)
2.comment faire pour que:
a) la croix sur le UserForm ne soit PAS neutraliser pour permettre la fermeture du userform;
b)au bout de 3 essais pas forcémént consecutifs on puisse rester sur cette meme page ( en supposant que soit on est administrateur et on a accés a toutes les ressources soit on est un simple utilisateur et on accéde a autre chose)

Voila merci bcp dessayer de maider et ce forum est vraiment tres bien fait !

 

[@+Thierry]

Bonjour Djessica, Gérard, Robert, @Xtof@, Isabelle, le Forum

Toujours en train de courir contre le temps, je ne ne fais que passer et vous souhaite à tous et toutes une agréable rentrée (pour ceux qui ont eu la chance de partir en vacances, pas comme moi !)

Bon, donc rapidos, voici la version la plus élaborée de mes démos sur le sujet :

=> Fichier Téléchargeable Lien supprimé (29k)

Cette démo traîte entre autre :

&nbsp;&nbsp;&nbsp;¤Gestion du nombres de tentatives avec mauvaise Identification et/ou mauvais Mot de Passe (3) ...

&nbsp;&nbsp;&nbsp;¤Contrôles d'Accès en Multi-Niveaux en Multi-Users...

&nbsp;&nbsp;&nbsp;¤Invitation pour changer le Mot de Passe tous les 30 jours individuellement pour chaque Users sans qu'ils ne puissent être Admin du Classeur et connaitre les autres mot de passe des autre Users...

&nbsp;&nbsp;&nbsp;¤ Option permettant de changer le mot de passe à volonté...

&nbsp;&nbsp;&nbsp;¤Pour l'ADMIN : Gestion Indépendante des accès très facilements User par User et Niveau Par Niveau...

Bon Appétit à tous et toutes (et à bientôt)
@+Thierry