XL 2016 Menu contextuel

[Don pépé]

Bien le bonjour le forum 😉

Voila je suis entrain de modifier le menu contextuel du clic droit sur une feuille, mais j'ai un petit problème,
j'ai l'option de collage qui s'affiche pourtant j'ai tout désactiver avec :

For Z = 1 To CommandBars("Cell").Controls.Count
With CommandBars("Cell")
    .Controls(Z).visible = False
    End With
Next

j'ai chercher des réponses un peux partout mais rien qui m'enlève l'option de collage.

merci a vous 😉

 

[mapomme]

Bonjour Don pépé,

Attention! Pas testé 😱!

Vu sur la toile:

Sub Delmenu()
  Set CtrlMenu = Application.CommandBars("Cell")
  For Each Item In CtrlMenu.Controls
    Item.Delete
  Next
End Sub

Sub ResetMenu()
    Application.CommandBars("Cell").Reset
End Sub

 

[Don pépé]

parfait merci a toi mapomme 😉