Bonjour
Je recherche à supprimer la possibilité de faire des liens en faisant un clic droit sur une cellule j'ai bien essayé ce bout de code :
For Each Menu In Application.CommandBars("cell").Controls
If Menu.Caption = "Lien &hypertexte..." Then Menu.Enabled = False
Next Menu
ou encore
With Application.CommandBars("Cell")
Set Ctrl = .FindControl(ID:=1576)
Ctrl.Enabled = False
Set Ctrl = Nothing
End With
ou tout simplement
Application.CommandBars("cell").Controls("Lien &hypertexte...").Enabled = False
Qui fonctionne bien avec des fonctions que j'ai rajouté dans les menus mais pas pour les menus déjà existants.
Mais cela ne fonctionne plus dans les derniers Excel récents (j'ai 2016)
Si quelqu'un a une idée.
Merci bien et bonne journée