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