mot de passe non reconnu

Victor21

XLDnaute Barbatruc

Supporter XLD

• 1 Mars 2014

• #2

Re : mot de passe non reconnu

Bonsoir.

Je n'ai pas trouvé à quel endroit le mot de passe B6:B22 est stocké ?

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 2 Mars 2014

• #3

Re : mot de passe non reconnu

bonsoir mon ami
merci de vous intéresser à mon projet
le mdp et stocker dans une feuille masquée appeler admin
bonne soirée

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 2 Mars 2014

• #4

Re : mot de passe non reconnu

j’ai essayer avec l'enregistreur de macro de modifier la ligne de cette façon
'If TextBox_mdp.Value <> "ADMIN!R[-2]C[-9]:R[14]C[-9]" Then
mais ça ne marche pas ,seconde modif de la ligne
If TextBox_mdp.Value <> "ADMIN!B6:B22" Then
et toujours l'échec

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2014

• #5

Re : mot de passe non reconnu

Re,

Vous trouverez très certainement le bonheur ici

PS : vous avez aussi à votre disposition, lorsque vous rédigez un message, à l'extrème droite de la barre d'outils, un bouton avec ABC qui vous renvoie [URL="http://www.iespell.com/download.php"]ici[/URL].
Par respect, merci de l'utiliser sans modération ...

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 2 Mars 2014

• #6

Re : mot de passe non reconnu

Bonjour les amis

suite à vos conseils j'ai consulté le site de notre amis Boisgontier sans trouver la solution à mon problème
je viens d'essayer avec le gestionnaire de nom mais rien ni fait
J'ai nommer le champ des mot de passe "mdp"

If TextBox_mdp.Value <> "mdp" Then

le MDP n'est toujours pas reconnu

 

Pièces jointes

• MDP2014 v2.xlsm

  81.9 KB · Affichages: 33

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mars 2014

• #7

Re : mot de passe non reconnu

Bonjour à tous

La Vouivre
C'est normal que tel quel, cela ne fonctionne pas, la plage nommée mdp contient plusieurs cellules.

Par contre en t'inspirant de ceci, tu devrais solutionner ton problème.
(PS: Ceci est un exemple, pas une solution finalisée)

Code:

Private Sub CommandButton1_Click()
If IsError(Application.Match(TextBox1.Value, [mdp])) Then
MsgBox "mot de passe invalide"
End
Else
If Application.Match(TextBox1.Value, [mdp], 0) > 0 Then
MsgBox "mot de passe valide"
End If
End If
End Sub

NB: Il fallait lire à gauche et pas à gauch
(j m'n sortirai n disant qu c'st un hommag involontair à La disparition d G. Perec ; )
Parallèlement, je fais aussi un hommage à M (... décidément, j'ai la cabesse engourdie ce matin 🙄)

 

Dernière édition: 2 Mars 2014

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 2 Mars 2014

• #8

Re : mot de passe non reconnu

merci mon ami Staple1600 de vous intéresser à mon projet
je n'arrive pas à adapter la ligne de code

If TextBox_mdp.Value <> [mdp] Then

If TextBox_mdp.Value reconnais bien le mot de passe,
mais le problème se situe dans <> [mdp] Then
le débogueur me donne un message

Erreur d'exécution '13':
incompatibilité de type

et là je suis sans solution,je ne suis pas un expert en VBA ,je ne comprends pas le message du débogueur
bon weekend à tous

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mars 2014

• #9

Re : mot de passe non reconnu

Re

Essaies sur un classeur simple l'exemple de mon précédent message
Tu verras que cela fonctionne.
(en tout cas dans l'exemple que je t'ai soumis)

Et je réitère ce que je disais précédemment

C'est normal que tel quel, cela ne fonctionne pas, la plage nommée mdp contient plusieurs cellules.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 2 Mars 2014

• #10

Re : mot de passe non reconnu

Je suis sur un classeur partagé par plusieurs personnes qui doivent avoir un login et un mot de passe pour pouvoir ouvrir le classeur.
sur un classeur seul le code de l'ami Staple1600 fonctionne très bien,
mais comment adapter la ligne de code

If TextBox_mdp.Value <> "ADMIN!mdp" Then

avec l'exemple ci dessus , le debogueur me donne soit

Erreur d'exécution '13':
incompatibilité de type

ou

Erreur d'exécution '424':
objet requis

comme defaut selon comme j'adapte le code
j'ai mis plusieurs ligne de code dans l'exemple pour essais

 

Pièces jointes

• MDP2014 V3.xlsm

  33.1 KB · Affichages: 21

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mars 2014

• #11

Re : mot de passe non reconnu

Re

LaVouivre

If TextBox_mdp.Value <> "ADMIN!mdp" Then

Cliquez pour agrandir...

Comme dit précédemment, mdp est une plage de cellules faisant référence à plusieurs cellules dont plusieurs valeurs
or TextBox_mdp ne contient qu'une valeur !
Regardes ce petit test ci-dessous pour mieux comprendre

 

Dernière édition: 2 Mars 2014

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 2 Mars 2014

• #12

Re : mot de passe non reconnu

salut

Si... tu perds le Match de Staple, tu pourrais gagner avec mon Find 😛

Il faudrait peut-être prévoir le retour non ?

 

Pièces jointes

• Accès MdP.xlsm

  85.8 KB · Affichages: 37

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 2 Mars 2014

• #13

Re : mot de passe non reconnu

beau travail
c'est ce que je recherche

merci beaucoup
bon weekend

 

Vote positif 0 Vote négatif