application.CommandBars("MENU AU DESUS CLIC DROIT EXCEL").Controls ==> Désactivation

[cedvautrin25]

Bonjour,

Après beaucoup de recherche et ne trouvant pas la solution ...

Après avoir modifié les menu du clic droit sur ma feuille excel, j'aimerais désactiver le menu qui ce situe en haut (sur l'image jointe) du menu clic droit. Je ne trouve aucun arcticle parlant de ce menu...




De préférence, j'aimerai faire ceci avec VBA, mais je suis preneur pour toutes autres solutions!

Merci beaucoup.

 

[Staple1600]

Re : application.CommandBars("MENU AU DESUS CLIC DROIT EXCEL").Controls ==> Désactiv

Bonjour à tous

cedvautrin25 [Bienvenue sur le forum]
Si Excel 2013, alors on parle Ruban, pas menu.
Et pour modifier le Ruban, c'est moins facile qu'avant
(voir la littérature à ce sujet sur le net)

 

[cedvautrin25]

Re : application.CommandBars("MENU AU DESUS CLIC DROIT EXCEL").Controls ==> Désactiv

Ok, je ne trouve pas grand chose sur la désactivation de ce ruban... Si j'ai bien compris ce ruban s'appel Ribbon ? et on peu les manipuller qu'en xml ?

 

[Staple1600]

Re : application.CommandBars("MENU AU DESUS CLIC DROIT EXCEL").Controls ==> Désactiv

Re

cedvautrin25
Ne pas oublier le web anglophone
Notamment le talentueux Ron De Bruin (qui en plus n'est pas de nature anglophone)
Hide or Display Ribbon Tab/Group/Control with getVisible

 

[PMO2]

Re : application.CommandBars("MENU AU DESUS CLIC DROIT EXCEL").Controls ==> Désactiv

Bonjour,

Une piste en interceptant l'événement Worksheet_BeforeRightClick.

1) Copiez le code suivant dans la fenêtre de code de la feuille concernée

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim CB As CommandBar
Dim CT As CommandBarControl
'--- Met tous les contrôles invisibles ---
Set CB = Application.CommandBars("Cell")
For Each CT In CB.Controls
  CT.Visible = False
Next CT
'--- Les boutons personnalisés ---
With Application.CommandBars("Cell")
  '/// Mettre les boutons qui vont bien ///
  Set CT = .Controls.Add(Type:=msoControlButton, ID:=23, temporary:=True)
  Set CT = .Controls.Add(Type:=msoControlButton, ID:=4, temporary:=True)
  '////////////////////////////////////////
  .ShowPopup
End With
'---
Cancel = True
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub

2) Copiez le code suivant dans la fenêtre de code de ThisWorkbook

Private Sub Workbook_Deactivate()
Application.CommandBars("Cell").Reset
End Sub

 

[Staple1600]

Re : application.CommandBars("MENU AU DESUS CLIC DROIT EXCEL").Controls ==> Désactiv

Bonjour PMO

Mea culpa
J’avais mal identifié la copie d'écran.
Je m'étais arrêté sur le préfixe du post [XL 2013]

Désolé pour la fausse route, cedvautrin25

 

[cedvautrin25]

Re : application.CommandBars("MENU AU DESUS CLIC DROIT EXCEL").Controls ==> Désactiv

Merci PMO2 !
C'est exactement ce qu'il me fallait, je ne touvais pas la méthode CommandBar.ShowPopup...

Merci pour la réactivité !

Sraple1600, pas grave, le lien cité plus haut à l'air très intéressant !