Choisir à l'ouverture mot de passe macro suivant choix

Bonjour,

J'ai crée un classeur Excel dans lequel j'ai un icone avec un lien hypertexte, qui rapporte à une feuille dans ce même classeur. J'ai bloquer cette action via un code VBA avec un mot de passe.

J'ai plusieurs utilisateur et chacun doit avoir accès à cette action, avec un mot de passe différent suivant l'utilisateur.

J'aimerai créer un code à l'ouverture du classeur qui permet de sélectionner le nom de l'utilisateur et par conséquent paramétrer le lien avec le mot de passe associés. J'imagine qu'il faut créer sur une feuille du même classeur les noms à sélectionner avec leur MDP à côté?

Quelqu'un pourrai m'aider?

Merci d'avance pour vos réponses

Hello,

C'est pas mal ce que tu as fait.

Moi je mettrai les mdp dans le code directement pour éviter de masquer/afficher la feuille des mdp mais bon c'est comme on veut.

Après il ne reste plus qu'à afficher ton userform au démarrage (module : Thisworkbook ; evenement : WorkbookOpen)

Et puis voila

Bonjour,

Merci pour ta réponse mais je n'arrive pas à mettre en œuvre mon projet.

J'aimerai créer un code qui peut réaliser les actions suivante :

- choisir un nom d'utilisateur dans le combobox1

- autoriser l'accès de la commande si le mot de passe écrit dans le textbox1 correspond au mot de passe défini dans le code

- définir le mot de passe pour d'autre code du même classeur qui sont déjà écrit et fonctionnel

Quelqu'un pourrai m'aider SVP?

Option Explicit

Private Sub Userform_Initialize()
ComboBox1.ColumnCount = 1
ComboBox1.List() = Array("Nom 1", "Nom 2", "Nom 3", "Nom 4", "Nom 5")

If ComboBox1.Value = "Nom 1" Then
TextBox1.Value = "mdp1"

If ComboBox1.Value = "Nom 2" Then
TextBox1.Value = "mdp2"

If ComboBox1.Value = "Nom 3" Then
TextBox1.Value = "mdp3"

If ComboBox1.Value = "Nom 4" Then
TextBox1.Value = "mdp4"

If ComboBox1.Value = "Nom 5" Then
TextBox1.Value = "mdp5"

Sheets("sommaire").Select

    End If
    End If
    End If
    End If
    End If

'Unload Me
End Sub

Hello,

Je ne comprends pas ce que tu veux faire ici :

- définir le mot de passe pour d'autre code du même classeur qui sont déjà écrit et fonctionnel

Pour le reste, tu un Userform avec une combobox + un textbox + un bouton et tu copies colle ce code dans ton userform :

Private Sub CommandButton1_Click()
    If ComboBox1.Value = "Nom 1" And TextBox1.Value = "mdp1" Then
        MsgBox "Vous etes Nom 1, vous avez l'accès à Nom 1"
    ElseIf ComboBox1.Value = "Nom 2" And TextBox1.Value = "mdp2" Then
        MsgBox "Vous etes Nom 2, vous avez l'accès à Nom 2"
    Else: MsgBox "Vous n'avez pas l'accès"
    End If
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List() = Array("Nom 1", "Nom 2")
End Sub

Super merci beaucoup c'est génial!