gerer un mot depasse par userform

[mboubou]

Bonsoir,

j'essaie de realiser une application protegée par un mot de passe.
Pour cela j'utilise une userform avec une textbox et un bouton ok.
Cette userform est lancée a l'ouverture de l'appli, par une macro.
Or je n'arrive pas a récupérer la saisie de la textbox dans la macro pour controler sa validité.
Pouvez vous m'aider svp

ci joint mon appli reduite au probleme rencontré.

merci d'avance

M.BOUBOU

 

[JNP]

Re : gerer un mot depasse par userform

Bonsoir MBoubou, Jean-Marcel 🙂,
En gros, si on fait une recherche sur le forum, tu trouveras plein d'exemple, et aussi le fait qu'en gros, il n'y a pas de protection efficace 😛... Il suffit de couper les macros...
Pour ton exemple, ça ne peux pas marcher vu que tu décharges l'USF et que donc il n'y a plus de valeur dans ton TextBox 😀...
Crée un module avec

Public passwd As String

modifie ThisWorkbook

' lancement a l'ouverture
' de la macro de controle d'acces
Private Sub Workbook_Open()
mdp
End Sub
' macro de controle acces a l'application
Sub mdp()
ctr = 0
'boucle pour 3 essais
Do While ctr < 3
' affichage userform
usfmdp.Show
' controle saisie
MsgBox passwd
If passwd = "toto" Then GoTo suite
ctr = ctr + 1
MsgBox "mot de passe invalide"
Loop
'  erreur password apres 3 essai
'  fermeture de l'application
' password ok
suite:
End Sub

et l'USF

Private Sub CommandButton1_Click()
passwd = usfmdp.motdepas.Value
Unload usfmdp
End Sub

Bon courage 😎

 

[excfl]

Re : gerer un mot depasse par userform

Bonjour,

Mot de passe pour accéder aux informations désirées qui assure une protection très efficace mais il s'agit d'un fichier swf.

excfl