Discussion :

[jean30]

Bonjour et mes meilleurs vœux à tous,

Ne retrouvant pas mon post, j'ai du faire une erreur de forum, je le remet ici.

Selon le nom (utilisateur) et le mot de passe, donner accès aux feuilles et colonnes selon le schéma indiqué.
Chaque utilisateur ne doit pouvoir accéder qu'à ces seules feuilles et colonnes sans possibilité pour lui d'afficher les colonnes masquées.
Que ce soit par : Format, Colonne, Afficher
Où par sélection des colonnes avant/après.
Seule la feuille1 doit toujours être visible.
J'ai trouvé deux codes mais je ne sais pas comment inclure les différentes colonnes dans les codes.
En vous remerciant.

[unparia]

Bonjour

Ne retrouvant pas mon post, j'ai du faire une erreur de forum, je le remet ici.

Ah. Et comment se fait-il que je le retrouve, moi ? --->>
https://www.developpez.net/forums/d1...e/#post9905152
Je ne répondrai toutefois ni à l'un, ni à l'autre, puisque pour ce faire, il me faudrait ouvrir ton classeur, ce que je ne ferai JAMAIS.
A lire (puisque tu ne l'as probablement pas lu) :
https://www.developpez.net/forums/d8...s-discussions/

[Menhir]

Comme unparia et beaucoup d'utilisateurs de ce forum, je n'ouvre pas les pièces jointes.

Selon le nom (utilisateur) et le mot de passe, donner accès aux feuilles et colonnes selon le schéma indiqué.
Chaque utilisateur ne doit pouvoir accéder qu'à ces seules feuilles et colonnes sans possibilité pour lui d'afficher les colonnes masquées.
Que ce soit par : Format, Colonne, Afficher
Où par sélection des colonnes avant/après.
Seule la feuille1 doit toujours être visible.

Faire une protection en VBA est un sujet récurent sur ce forum et les solutions proposées sont généralement très compliquées à mettre en oeuvre et peu fiables.

Pas besoin de code, il suffit de protéger les feuilles.

Tu sélectionnes les cellules qui doivent pouvoir être modifiées > Clic droit > Format de cellule > Onglet Protection > Décocher "Verrouillée"
Tu masques les colonnes ou lignes que tu ne veux pas laisser visibles.
Tu masques tous les onglets sauf la feuille 1.

Ensuite, tu poses les protections :
Ruban Révision > Protéger la feuille > Ne laisse coché que "Sélectionner les cellules déverrouillées" > Eventuellement, mets un mot de passe > Ok
Ruban Révision > Protéger le classeur > Eventuellement, mets un mot de passe > Ok

[Invité]

bonjour,
par définition si un utilisateur à réussi à ouvrir une session Windows, c'est qu'il a entré son mot de passe!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LogWindows=Environ("Username")

[jean30]

Bonjour,
J'ai trouvé un code, cependant il pose problème sur la ligne après Else.
En vous remerciant et en vous présentant tous mes vœux.

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
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 dernière colonne :
    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
 'on cherche colonne A le nom d'utilisateur saisi et on stocke son numéro 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   Problème sur cette ligne
        Else
            Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden   'sinon on la masque - Problème sur cette ligne
        End If
    Next i
End With
End Sub

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(.Cells(1, i).Value).Visible =  UCase(.Cells(Lig, i)) = "X" 'on affiche la feuille Problème sur cette ligne Ou pas

[jean30]

Re dysorthographie,
J'ai toujours le problème.
Je souhaite afficher les feuilles ou un x figure dans la feuille Paramétrage et masquer les autres xlSheetVeryHidden

[pijaku]

Bonjour,

Pour ne pas tourner en rond pendant 7 ans (au vu du peu que tu nous mets...), j'ai ouvert ton classeur...

La ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(.Cells(1, i).Value).Visible = True

ou celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(.Cells(1, i).Value).Visible = xlVeryHidden

sous-entend qu'en ligne 1, de la colonne 3 à la dernière colonne utile, tu as inscrit les VERITABLES noms de tes feuilles.

Or, penses-tu réellement que :

Feuil
1

est équivalant à

Feuil1

............................

[jean30]

Bonjour pijaku,
Merci de me répondre, mais après correction le problème persiste.
Code dans Usf :

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
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 dernière colonne :
    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
'on cherche colonne A le nom d'utilisateur saisi et on stocke son numéro 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 masque les feuilles dont pas de x dans la feuille Parametrage
        End If
    Next i
End With
End Sub

Le problème se situe entre Else et End If.

[Invité]

1. tu as des retour chariots dans tes titre
   Afficher
   Feuilles
   
2. tu commence à la colonne 3 qui n'a pas d'onglet (Afficher Feuilles)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 For i = 3 To Col
        Sheets(Replace(.Cells(1, i), Chr(10), "")).Visible = UCase(.Cells(Lig, i)) = "X"    'on affiche la feuilleou pas
    Next i

[pijaku]

Tant que tu décriras tes ennuis par le mot "problème" en lieu et place du code d'erreur + message d'erreur + ligne bloquante, je m'abstiendrais de répondre...

[Invité]

Pour ma part, je continu de dire qu'il n'y a pas besoin d'un interface login voir poste #4!

[jean30]

Re, dysorthographie, pijaku,
tu as des retour chariots dans tes titres
Afficher
Feuilles
tu commence à la colonne 3 qui n'a pas d'onglet (Afficher Feuilles)

Merci de m'avoir ouvert les yeux qui, à mon age, commence à se fatiguer.
C'est OK

[Invité]

pour information, on ne teste pas un booléen (If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X") pour mettre la même valeur à un autre booléen (Sheets(.Cells(1, i).Value).Visible = True)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Replace(.Cells(1, i), Chr(10), "")).Visible = UCase(.Cells(Lig, i)) = "X"

le If est true ou false!