Supprimer déplacer ou copier dans le menu contextuel des feuilles

[Campagnou]

Bonjour à tous,

Je me permet de solliciter votre aide car je souhaiterais faire en sorte que lorsque j'effectue un clique droit sur l'une des feuilles du classeur, l'option déplacer ou copier soit supprimer ou inactif.

Pensez vous cela possible ?

Cdt

 

[job75]

Bonsoir Campagnou,

Je ne pense pas que ce soit possible car aucune de ces 2 instructions ne fonctionne :

CommandBars("Ply").Controls("&Déplacer ou copier...").Enabled = False
CommandBars("Ply").Controls("&Déplacer ou copier...").Visible = False

Par contre on peut empêcher l'affichage du menu contextuel :

CommandBars("Ply").Enabled = False 'True

A+

 

[Campagnou]

Bonjour Job75 et merci de votre réponse,

Entre temps j'ai trouvé ceci et sa fonctionne:

Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Enabled = True
End Sub

Cela ma permis comme vous l'avez suggéré de supprimer le menu contextuel des onglets feuilles. Néanmoins j'ai pu voir sur le travail d'autre personnes sur se forum un menu contextuel unique avec ses propre raccourcis, je me suis donc dis que si l'on pouvais en créer de nouveaux on pourrait aussi supprimer les anciens.

Cdt

 

[job75]

Bonjour Campagnou,

Je ne vois pas comment on pourrait remplacer la CommandBar "Ply" par une CommandBar personnalisée.

A+

 

[ChTi160]

Bonsoir Campagnou
Bonsoir le Fil
Pas sur d'avoir compris (soyez indulgents !) .
mais il y a de nombreuses discussions qui traitent de la Gestion des menus contextuels
j 'ai compris qu'il fallait inhiber les Couper/ Coller du Menu Click Droit

Sub EnabledFalse()
On Error Resume Next
With Application.CommandBars("Cell")
     .Controls(1).Enabled = False
     .Controls(2).Enabled = False
End With
Err.Clear
End Sub
Sub EnabledTrue()
On Error Resume Next
With Application.CommandBars("Cell")
     .Controls(1).Enabled = True
     .Controls(2).Enabled = True
End With
Err.Clear
End Sub

voir ce Lien :https://www.developpez.net/forums/d...ver-bouton-supprimer-menu-clic-droit-feuille/
Amicalement
jean marie