Identifiant mots de passe par feuille
Bonsoir la communauté,
J'ai repris un tuto pour reproduire un code qui me permet d'afficher des feuilles en fonction de données.
Mais je coince un peu parce que je sais pas comment tourner mon code.
L'utilisation serait simple
Une feuille "login" = id et mdp
et autant de feuille de personne renseigné dans une feuille qui ne peut etre vue que par l'admin.
Pouvez vous jeter un œil à ce code ?
Bonjour
j'ai un peu de mal à m'y retrouver dans ton code ...
je te propose cette version
user=ADMIN
pwd=ADMIN pour tout voir
pour que ce soit efficace, il faudra ensuite protéger le code VBA
Bonjour à tous,
Steelson, pourrais je savoir ce que veux dire cette ligne en gras souligné dans la macro affiche Feuille.
[codeSub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer
With Sheets("parametrage") 'dans la feuille paramétrage
Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
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[/code]
merci
fronck
Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).RowJe cherche/trouve (Find) la ligne (row) où se trouve l'Utilisateur dans la première colonne (.Columns(1).Cells).
A partir de là, je vais balayer toutes les colonnes et déterminer quels onglets je dois afficher (s'il y a une croix).
merci, mais je saurais pas la réutiliser.
s'il cherche la 1ére colonne "pleine" (y'a pas de croix dans la formule) à partir de B, moi je trouve le prénom.
La croix est recherchée à partir de la colonne 3
For i = 3 To ColOk désolé c'est bon pour moi
merci
Merci steelson !
j'ai repris ton code, ça marche nickel ! Je poursuis