mot de passe non reconnu

[La Vouivre]

Bonsoir amis du forum
j'ai bricoler un code que j'essaie d'adapter à mon fichier, mais je bloque sur un détail que je ne comprends pas
Voila en deux mots
je n'arrive pas à associer le mot de passe au login pour ouvrir les feuilles masquées du fichier
je bute sur une ligne de code

If TextBox_mdp.Value <> "B6:B22" Then

pourriez-vous me corriger mon erreur
par avance un grand merci à tous

 

[Victor21]

Re : mot de passe non reconnu

Bonsoir.

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

 

[La Vouivre]

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

 

[La Vouivre]

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

 

[Victor21]

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 ...

 

[La Vouivre]

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

 

[Staple1600]

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)

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 🙄)

 

[La Vouivre]

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

 

[Staple1600]

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.

 

[La Vouivre]

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

 

[Staple1600]

Re : mot de passe non reconnu

Re

LaVouivre

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

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

 

[Si...]

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 ?

 

[La Vouivre]

Re : mot de passe non reconnu

beau travail
c'est ce que je recherche

merci beaucoup
bon weekend