Cacher des feuilles selon l'utilisateur

Bonjour à tous,

J'aurais aimé savoir si il était possible de cacher ou montrer des feuilles a différents utilisateurs sur un seul classeur.

J'ai un seul classeur avec plusieurs feuilles, mais il faudrait que selon l'utilisateur juste un feuille s'affiche et pas les autres. est-ce possible?

Merci de vos réponses.

Kris

Bonjour le forum,kris0311

Les feuilles 2 et 3 se cachent à la fermeture

Le mot de passe (à changer) pour ouvrir les feuilles 2 et 3 se trouve en feuille2,cellule A1 (password)

A+

316feuille-cachee.zip (10.83 Ko)

Bonjour doudou,

Toutes mes excuses pour ce long retard.

J'ai regardé le fichier que tu ma donné, et, c'est quasiment ca.

Le problème c'est que quand je rentre un bon mot de passe ca me met une erreur comme quoi c'est pas bon, mais ca m'ouvre la bonne page, le problème ,je pense(si je peux me permettre) et qu'il me sors tout de même cette erreur car il y a plusieurs mot de passe, alors j'ai essayer ""sans résultat"" de corriger ceci en écrivant cela:

Private Sub CommandButton1_Click()

If TextBox1.Value = ("p2") Then Sheets("Feuil2").Visible = True

If TextBox1.Value = ("p3") Then Sheets("Feuil3").Visible = True

If TextBox1.Value = !["p2"] Or !["p3"] Then

MsgBox "Mot De Passe Invalide, Veuillez Essayer à Nouveau", vbCritical, "ERREUR SUR MOT DE PASSE"

End If

Unload Me

End Sub

Mais j'ai biensur une erreur au niveau du point d'excalamation.

Quelqu'un saurait-il m'aider?

Cordialement,

kris

Personne?

Bonjour,

Essaye avec ce code :

Private Sub CommandButton1_Click()
    If TextBox1.Value = "p2" Then
        Sheets("Feuil2").Visible = True
    ElseIf TextBox1.Value = "p3" Then
        Sheets("Feuil3").Visible = True
    Else: MsgBox "Mot De Passe Invalide,Veuillez Essayer à Nouveau", vbCritical, "ERREUR SUR MOT DE PASSE"
    End If
    Unload Me
End Sub

A+

Rechercher des sujets similaires à "cacher feuilles utilisateur"