Menu contextuel

[Titou]

Bonjour,

j'arrive à empecher l'apparition du menu contextuel, lorsque l'on clique droit sur une feuille.

je souhaite également pouvoir empecher l'apparition du menu lorsque l'on clique droit sur un onglet, mais je n'y arrive pas...

merci pour votre aide


Titou

 

[Zon]

Salut,

Titou fais une recherche sur le forum, il me semble qu'il y a quelques temps j'avais vu une API mouse_event permettant de faire cela, n'ayant pas le guide APi sous la main je ne peux t'en dire plus pour l'instant.

Sur le site de STéphane tu trouveras je crois http://xlbysteph.free.fr/index.html



A+++

 

[Zon]

Re,

En réflechissant un peu plus, je n'aurais pas dit de bêtises tout à l'heure,

pour les cellules tu colles cela dans le module de Thisworkbook
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

pour tous les onglets
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars(30).Enabled = False
End Sub

Si c"est un onlet en particulier, par exemple Feuil1
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Test As Boolean, Ctrl As Object
Test = IIf(Sh.Name = "Feuil1", False, True)
With Application.CommandBars(30)
For Each Ctrl In .Controls
Ctrl.Enabled = Test
Next Ctrl
End With
End Sub

A+++

 

[Titou]

Bonjour zon,

j'ai essayé tes codes...

le premier fonctionne bien.

le deuxième ne marche pas, ou alors je ne le colle pas ou il faut

idem pour le troisième...

peux tu m'envoyer un fichier avec les lignes de commandes...

je te remercie d'avance

@ +

Titou

 

[Zon]

Salut,

Titou pour que cela fontionne il faut changer de feuilles puisqu'on travaille dans l'évènement sheetactivate, pour faire plus simple mettre ApplicatioN.commandbars(30) dans le workbook_open , et mettre dans le worbook_beforeclose à true pour réactiver le menu. Si tu travailles sur plusieurs fichiers en même temps mettre à false dans le worbook_actibvate et à True à deactivate.


A+++

Si Pb envoies moi ton fichier en BAL.

 

[Titou]

Bonjour Zon,

j'ai compris ce que tu m'as di cependant le menu que je souhaite enlever c'est celui dont je te joins la photo en fichier.

c'est le menu qui s'affiche lorsque tu es sur l'onlget.

je te remercie pour ton aide

@ +

Titou