Menus contextuels

[François]

J'aimerais savoir comment masquer les menus contextuels standard dans excel ?
Merci

 

[@+Thierry]

Salut François

Bienvenu sur XLD

Pour masquer "le" menu contextuel standard dans Excel ("les" je n'en vois pas d'autre)

Sub DisableMenuContextuel()
Application.CommandBars("Cell").Enabled = False
End Sub

Ne pas oublier le rétablissement à la sortie... Sinon les users qui auront ouvert ton appli, risque d'être mécontents....

Sub EnableMenuContextuel()
Application.CommandBars("Cell").Enabled = False
End Sub


Si tu veux faire des trucs persos sur le menu contextuel il y a ici un fichier démo que j'ai fait mardi <http://www.excel-downloads.com/html/French/forum/messages/1_8137_8137.htm>


Bonne Soirée
@+Thierry

 

[@+Thierry]

OUPS !!!

Pour le Rétablissement il faut EVIDEMMENT LIRE :

Sub EnableMenuContextuel()
Application.CommandBars("Cell").Enabled = TRUE
End Sub

(ahh la la ces copié/collés !!!)

Bon heureusement it's Friday !!!! Youpi
Bon Week End
@+Thierry