Bonjour,

j'ai récupéré un code qui permet de mettre un passe selon la personne qui se connecte avec sa session, par contre je ne sais pas comment faire pour mettre plusieurs utilisateurs, avec différents mots de passe pour chaque utilisateur.
De plus j'aimerais savoir s'il est possible pour chaque utilisateur de voir des pages spécifiques.
Merci d'avance de votre aide;

voilà mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.ScreenUpdating = False
        Dim sh As Worksheet
        For Each sh In Worksheets
            If sh.Name <> "Top" Then sh.Visible = xlVeryHidden
        Next sh
    Application.ScreenUpdating = True
End Sub
 
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
Dim prénom
Dim s As Worksheet
MsgBox Application.UserName
 
prénom = InputBox("indiquez votre code", "IDENTIFICATION")
 
If prénom = "princesse" Then
    For Each sh In Worksheets
        sh.Visible = True
    Next sh
    Else
        MsgBox "vous n'avez pas de droits sur cette application"
End If
 
End Sub