Cacher menu clic droit

[yves03]

Bonjour à tous,
Y a t'il un moyen de ne pas faire apparaitre la fenetre qui s'affiche lorsque l'on fait un clic droit dans une cellule.
Merci d'avance

 

[tototiti2008]

Re : Cacher menu clic droit

Bonjour yves03,

ci-joint le code pour désactiver ou activer ce menu contextuel :

Sub Desactive()
Application.CommandBars("Cell").Enabled = False
End Sub
 
Sub Active()
Application.CommandBars("Cell").Enabled = True
End Sub

 

[yves03]

Re : Cacher menu clic droit

Merci beaucoup de ton aide
😉

 

[myDearFriend!]

Re : Cacher menu clic droit

Bonjour yves03, tototiti2008,

Une autre proposition, simple, et qui évite surtout de toucher à la configuration des barres d'outils Excel de l'utilisateur final :

Pour un effet sur une feuille particulière d'un classeur :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_BeforeRightClick([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range, Cancel [COLOR=NAVY]As Boolean[/COLOR])
    Cancel = [COLOR=NAVY]True
End Sub[/COLOR]

Pour un effet sur tout le classeur :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Workbook_SheetBeforeRightClick([COLOR=NAVY]ByVal[/COLOR] Sh [COLOR=NAVY]As Object[/COLOR], [COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range, Cancel [COLOR=NAVY]As Boolean[/COLOR])
    Cancel = [COLOR=NAVY]True
End Sub[/COLOR]

Cordialement,