Bonjour, je c que déjà pas mal de discussions ont traité de mdp mais je n'ai
rien trouvé qui me satisfasse completement.
Alors voici mon probléme:
Lorsque l'on clique sur le bouton que g nommé "Update" de ma page principale
qui active la worksheet du meme nom, j'aimerai qu'une fenetre s'affiche
demandant un mot de passe afin d'autoriser l'accés.
Merci :)
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
anomymousA
bonjour,
il y a eu beacoup de fils sur ce sujet effectivement. Je suis étonné que tu n'aies pu y trouver ton bonheur. Je te propose la chose suivante, tu construis un UF sur lequel tu auras un bouton que tu nommes (propriété Name) OK et un textbox (appelé ici Textbox1) et tu écris dans le module du UF les instructions suivantes. Ce UF sera appelé par ton bouton Update. Si tu veux laisser plusieurs chances à l'ulisateur, mets une boucle while avec un compteur p.e. Le code de la fonction te permet d'avoir plusieurs mots de passe qui marchent. SI tu veux n'en mettre qu'un , le passage par un Array n'est pas nécessaire.
Private sub OK_click
if controlmdp(textbox1.value) = true then unload me sheets("ma feuille").visible=true end if
trouve = Application.WorksheetFunction.HLookup(TextBox2.Value, tabmdp, 1, False)
If Err.Number <> 0 Then Err.Clear MsgBox "pas le bon mdp" controlmdp = false exit function Else MsgBox "bon mot de passe" controlmdp = True End If
End Function
A+
Bonjour, je c que déjà pas mal de discussions ont traité de mdp mais je n'ai rien trouvé qui me satisfasse completement. Alors voici mon probléme: Lorsque l'on clique sur le bouton que g nommé "Update" de ma page principale qui active la worksheet du meme nom, j'aimerai qu'une fenetre s'affiche demandant un mot de passe afin d'autoriser l'accés. Merci :)
bonjour,
il y a eu beacoup de fils sur ce sujet effectivement. Je suis étonné que tu
n'aies pu y trouver ton bonheur.
Je te propose la chose suivante, tu construis un UF sur lequel tu auras un
bouton que tu nommes (propriété Name) OK et un textbox (appelé ici Textbox1)
et tu écris dans le module du UF les instructions suivantes. Ce UF sera
appelé par ton bouton Update.
Si tu veux laisser plusieurs chances à l'ulisateur, mets une boucle while
avec un compteur p.e.
Le code de la fonction te permet d'avoir plusieurs mots de passe qui
marchent. SI tu veux n'en mettre qu'un , le passage par un Array n'est pas
nécessaire.
Private sub OK_click
if controlmdp(textbox1.value) = true then
unload me
sheets("ma feuille").visible=true
end if
trouve = Application.WorksheetFunction.HLookup(TextBox2.Value, tabmdp, 1,
False)
If Err.Number <> 0 Then
Err.Clear
MsgBox "pas le bon mdp"
controlmdp = false
exit function
Else
MsgBox "bon mot de passe"
controlmdp = True
End If
End Function
A+
Bonjour, je c que déjà pas mal de discussions ont traité de mdp mais je n'ai
rien trouvé qui me satisfasse completement.
Alors voici mon probléme:
Lorsque l'on clique sur le bouton que g nommé "Update" de ma page principale
qui active la worksheet du meme nom, j'aimerai qu'une fenetre s'affiche
demandant un mot de passe afin d'autoriser l'accés.
Merci :)
il y a eu beacoup de fils sur ce sujet effectivement. Je suis étonné que tu n'aies pu y trouver ton bonheur. Je te propose la chose suivante, tu construis un UF sur lequel tu auras un bouton que tu nommes (propriété Name) OK et un textbox (appelé ici Textbox1) et tu écris dans le module du UF les instructions suivantes. Ce UF sera appelé par ton bouton Update. Si tu veux laisser plusieurs chances à l'ulisateur, mets une boucle while avec un compteur p.e. Le code de la fonction te permet d'avoir plusieurs mots de passe qui marchent. SI tu veux n'en mettre qu'un , le passage par un Array n'est pas nécessaire.
Private sub OK_click
if controlmdp(textbox1.value) = true then unload me sheets("ma feuille").visible=true end if
trouve = Application.WorksheetFunction.HLookup(TextBox2.Value, tabmdp, 1, False)
If Err.Number <> 0 Then Err.Clear MsgBox "pas le bon mdp" controlmdp = false exit function Else MsgBox "bon mot de passe" controlmdp = True End If
End Function
A+
Bonjour, je c que déjà pas mal de discussions ont traité de mdp mais je n'ai rien trouvé qui me satisfasse completement. Alors voici mon probléme: Lorsque l'on clique sur le bouton que g nommé "Update" de ma page principale qui active la worksheet du meme nom, j'aimerai qu'une fenetre s'affiche demandant un mot de passe afin d'autoriser l'accés. Merci :)
