Discussion :

[rom1deh]

Bonjour à tous,

Je souhaiterais limiter l'accès a ma fiche d'intervention.

Pour se faire j'ai une liste déroulante avec le nom des personnes autoriser.
Cette liste déroulante est sur mon interface sont label est "Accès maintenance".
classeur + interface + annexe en pièces

Interface ci dessous:


Liste pour déterminer les accès au membres de l'équipe


J'explique ce que je veux maintenant.
quand une personne sélectionne son nom dans la liste "une petite inputbox s'ouvre entrer mot de passe".
si le mot de passe est bon alors j'ai accès a la fiche d'intervention.

j'ai commencé à faire ceci:
Partie a l'ouverture de mon interface.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
    With Sheets("Liste")
        For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row  'Liste des bancs de la feuille "Liste"
            Système.AddItem .Cells(i, 1)
        Next
    End With
ComboBox1.RowSource = ("Liste")  'ComboBox1.RowSource = ("NomdelaListe")
 
End Sub

Action réaliser par ma comboBox

Code :

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

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Change()
Dim MDP As String
MDP = InputBox("Entrer votre mot de passe")
 
Application.Visible = True
Application.WindowState = xlMaximized
Unload Me
End Sub

Après je sais pas comment faire pour intégrer les droits de chacun via la liste fournit plus haut.

Ci joint le fichier excel:
http://www.fichier-xls.fr/2016/01/12...n-maintenance/