Bloquer une feuille

Bonjour,
un click avec le bouton droit de la souris sur l'onglet en question
et -visualiser le code
dans la fenetre blanche copie ce code
Remplace "Feuil2" par le nom de l'onglet à afficher
Youky

Private Sub Worksheet_Activate()
Sheets("Feuil2").Select
End Sub


"YeTi" <YeTi@discussions.microsoft.com> a écrit dans le message de news:
A82746FD-036D-48F0-9A3B-A66B4B770366@microsoft.com...

Bonjour,

J'essaie de bloquer une feuille a l'utilisateur. En fait il faut qu'elle
soit visible, mais que ca ne fasse rien si l'utilisateur clique sur
l'onglet...

J'ai essayé plusieurs possibilité, mais rien de bien concret!

Est-ce qqn peut m'aider?

Merci d'avance

Bonjour,

ce que tu dis peut sous-entendre 2 types de solution:

solution1: l'utilisateur peut acceder à la feuille mais ne peut rien y
toucher. Pour ce faire, il suffit de proteger la feuille et d'empêcher
toute selection en mettant la propriété Enableselection à
xlnoselection ( dans l'éditeur VBE, fenêtre propriétés , cliquer
sur le nom de la feuille et changer la propriété Enableselection )

solution 2: Cette solution sera toujours imparfaite . Tu veux que
l'onglet soit visible mais tu veux qu'en cliquant dessus, l'utilisateur
n'ait tout de même pas accès à cette feuille. Dans ce cas,en
supposant, qu'il y ait toujours une autre feuille que celle dont tu
veux interdire l'accès ( c'est bien déjà là une 1ere difficulté
car les petits malins à qui tu veux interdire quelque chose cherchent
toujours comment y acceder quand même), mets dans le module de feuille
en question, la proc suivante

Private Sub Worksheet_Activate()

For Each sh In ThisWorkbook.Sheets
If sh.CodeName <> Me.CodeName Then sh.Activate
Next

End Sub

A+