Discussion :

[capi81]

Salut le forum

J'ai conçu une application qui doit être utilisée par plusieurs utilisateurs.
Je souhaite que lorsque chaque utilisateur va se connecter avec son mot de passe, que les feuilles qui lui sont seulement autorisées s'affichent.
Dans le fichier joint, j'ai essayé de reproduire le nom des feuilles et en face de chaque mot de passe, les feuilles cochées sont celles qui devront s'afficher lorsque l'utilisateur se connectera.
De même, je souhaite que si je venais à cocher une feuilles qui n'était pas autorisée à un utilisateur, que cette feuille s'affiche désormais lorsqu'il se connectera.
Comment codifier un tel besoin?
merci pour vos éventuelles contributions

[parmi]

Bonjour,

Quelque chose comme ça ?

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
 
    Dim I As Long, Ligne As Long, nbColonnes As Long, nbLignes As Long
    Dim User As String
 
    User = InputBox("Mot de passe")
    If User = "" Then Exit Sub
 
    nbLignes = Sheets("ADMIN").Cells(Rows.Count, "B").End(xlUp).Row
    nbColonnes = Sheets("ADMIN").Cells(3, Columns.Count).End(xlToLeft).Column
 
    'Trouver la ligne du User
    For I = 4 To nbLignes
        If Sheets("ADMIN").Range("B" & I) = UCase(User) Then
            Ligne = I
            Exit For
        End If
    Next
 
    'Parcourir ses feuilles permises
    For I = 4 To nbColonnes
        If Sheets("ADMIN").Cells(Ligne, I) = "X" Then
            Sheets(Cells(3, I).Value).Visible = xlSheetVisible
        Else
            Sheets(Cells(3, I).Value).Visible = xlSheetVeryHidden
        End If
    Next

Vérifie toutefois que les noms d'onglets correspondent bien à des onglets existants, sinon il faudrait une gestion d'erreur.

[capi81]

Salut Parmi

Super ton code. Tu as trouvé la potion magique à mon problème.