Bonjour à Tous
Je souhaite modifier ma macro concernant la visibilité des feuilles
J'ai 2 utilisateurs : admin et DJE, sur la feuille parametrage j'ai le tableau des droits
nom | mdp | parametrage |
admin | admin | X |
DJE | DJE | |
Je souhaite qu'à l'ouverture toutes les feuilles soient visibles, mais seul admin puisse voir en plus la feuille "parametrage"
Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer
With Sheets("parametrage") 'dans la feuille paramétrage
'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :
Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
For i = 3 To Col
If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille
Else
Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden 'sinon on la masque
End If
Next i
End With
End Sub
Aidez moi....