Discussion :

[capi81]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[capi81]

Salut kiki

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si qqu'un n'a pas autre solution, je vais me concentrer sur le or.

[kiki29]

Re, [F1] sur Select Case

[capi81]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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