Blocage commande Afficher/masquer onglet

[Jacques25]

Bonjour à tous,

Afin de limiter l'accès à certains onglets d'un fichier je souhaiterai savoir s'il existe une manière de bloquer la commande Afficher/Masquer les onglet du menu contextuel en VBA.
Le but étant que les utilisateurs utilisant le fichier protégé ne puisse pas par un clique droit aller se promener dans le fichier...

Merci à tous pour l'aide que vous pourrez m'apporter.
Bonne journée

Jacques

 

[bof]

Re : Blocage commande Afficher/masquer onglet

Bonjour,

Sub Cacherfeuille()
Sheets("TaFeuille").Visible = 2
End Sub

Et pour la démasquer :

Sub Montrerfeuille()
Sheets("TaFeuille").Visible = -1
End Sub

A+

 

[Jacques25]

Re : Blocage commande Afficher/masquer onglet

Bonjour bof,

merci de t'être penché sur le sujet cependant pour les codes d'affichage/masquage ça c'est ok. Ce que je cherche c'est un code pour bloquer le menu afficher/masquer du menu contextuel (clique droit) pour ne pas pouvoir afficher les onglets en manuel.
Pour préciser je suis sous excel 2010.

Merci

@ plus

 

[bof]

Re : Blocage commande Afficher/masquer onglet

Bonjour,

Avec ce code aucun menu (contextuel ou non) ne permet d'afficher la feuille cachée.

Aucune macro ne permet de modifier les menus sous 2010.

A+

 

[Jacques25]

Re : Blocage commande Afficher/masquer onglet

Re,

Désolé je n'ai regardé que si le menu apparraissait encore. Comme le feuilles ne sont plus visible ça me va.

Merci de ton aide.

Bonne journée.
@ plus

 

[DoubleZero]

Re : Blocage commande Afficher/masquer onglet

Bonjour, Jacques25, bof, le Forum,

...Afin de limiter l'accès à certains onglets...

L'accès peut également être limité avec ce code, à placer dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'adapter le nom des onglets
If ActiveSheet.Name = "a" Or ActiveSheet.Name = "b" Then Sheets("toto").Activate
End Sub

A bientôt 🙂