Intégrer condition pour utilisateur multiples

Version imprimable

Salut le forum.

J'ai obtenu un code qui permet de s'identifier par mot de passe.
Ce code ne prend pas en compte plusieurs mots de pass mais un seul.
Je souhaite que chaque utilisateur ait son mot de pass.
Les mot de pass sont déjà contenu dans une plage de donnée (PARAMETRE!A1:A50).
Si le mot de pass saisi figure parmi la liste de ma plage de donnée, que la session s'ouvre;sinon pas d'ouverture.
Comment intégrer cela dans le code ci-dessous?
Je suis preneur d'autres solutions.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub auto_Open() Dim Password As String Password = Application.InputBox(prompt:="Entrez le mot de passe", Title:="Ouverture du fichier à accès restreint", Default:="", Type:=2) If (Password = "1234") Then Call SuiteMotDePasse Else MsgBox "Désolé, le mot de passe n'est as concluant." ActiveWorkbook.Close False End If End Sub

19/09/2012, 22h48
kiki29

Salut, sans utiliser de mot de passe via Environ("USERNAME") qui renvoie le nom de login Windows et pas Application.UserName qui renvoie les infos saisies lors de l'installation de la suite Office.
20/09/2012, 02h35
capi81

Salut kiki

Merci pour ton feedback.
J'ai essayé d'ajouter un autre mot de pass en utilisant Or et ca fonctionne:

Code:

If (Password = "1234" or "1235") Then

Si qqu'un n'a pas autre solution, je vais me concentrer sur le or.
20/09/2012, 07h09
kiki29

Re, [F1] sur Select Case

Salut kiki
J'ai pas bien compris ce que votre recommadation mais j'ai essayé de demande une aide avec mot clé select case.
Si j'ai compris ce que vous voulez me faire voir c'est l'utilisation de case 1 to ...
Est-ce bien cela? Aussi le case 1 peut-il être la valeur d'une cellule?
Aussi j'ai oublié que le code du post #1 était precedé du code ci-dessous:
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub SuiteMotDePasse() Dim X As Byte Dim Compteur As Byte Compteur = 0 UserForm11.TextBox9.Value = "Autorise" UserForm11.TextBox10.Value = Sheets("DONNE").Range("G19").Value UserForm11.TextBox6.Value = Sheets("DPRIVE").Range("C30").Value UserForm11.Show End Sub
Dans ce code lorsque le mot de pass d'ouverture est saisi (1234 ou 1235), le textbox9 affiche autorise.
Dans le complement du code ci-dessus, est-il possible de faire en sorte que si 1234 est saisi, que par exemple autorise s'affiche et si c'est 1235 qui est saisi, que Zodo s'affiche dans le textbox9?
En resumé, je souhaite que la valeur du textbox9 soit fonction du mot de pass d'ouverture.
Merci