XL 2010 VBA Modifier visibilité des feuilles

[JVOS]

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....

 

[Hasco]

Bonjour,

Dans le classeur joint une propriété UserIsAdmin est ajoutée dans le module ThisWorkbook.
A chaque changement de sa valeur (true ou false) la feuille paramétrage est affichée ou cachée.
La fonction vérifiant les noms utilisateurs et mots de passe a été changée.
En fin de validation dans le userForm la valeur de la propriété UserIsAdmin est modifiée.

En espérant que vous êtes conscient que ce genre de protection n'a aucune sécurité du tout.

Bonne soirée

 

[JVOS]

Bonjour
Merci pour ton aide Roblochon
Je sais que ce genre de protection n'a aucune sécurité du tout, Mais c'est juste pour que des utilisateurs n'aillent pas modifier le fichier du voisin.
Par contre ça n'affiche pas toutes les autres feuilles du classeur.

 

[Hasco]

Bonjour,

J'ai répondu à la question du post #1 :

Je souhaite qu'à l'ouverture toutes les feuilles soient visibles, mais seul admin puisse voir en plus la feuille "parametrage"

Si les feuilles sont visibles de tous (à part la feuille parametrage), il est inutile de les cacher pour les réafficher. Seule la feuille parametrage doit être cachée.

Si ce n'est pas ça essayer d'adapter ce que vous avez déjà.

Cordialement