With Application.CommandBars 'désactive la commande Collage special .Item(1).FindControl(ID:u5, Recursive:=True).Enabled = False 'Désactive la commande couper .Item(1).FindControl(ID:!, Recursive:=True).Enabled = False End With End Sub '--------------------------
Salutations!
"Pierre57" a écrit dans le message de news:
Bonjour à tous,
Sur proposition de code de René Delcour (fil CTRL X), j'ai pu interdire l'utilisation du CTRL X et dérouter le CTRL V.
Quelqu'un peut-il m'indiquer comment "griser" dans le menu Edtion les fonctions "Couper" et "Collage Spécial" pour interdire l'utilisation ?
Merci pour votre expertise, Salutations,
Bonjour Pierre57,
'--------------------------
Sub DesactiverMenu()
With Application.CommandBars
'désactive la commande Collage special
.Item(1).FindControl(ID:u5, Recursive:=True).Enabled = False
'Désactive la commande couper
.Item(1).FindControl(ID:!, Recursive:=True).Enabled = False
End With
End Sub
'--------------------------
Salutations!
"Pierre57" <Pierre57@discussions.microsoft.com> a écrit dans le message de news:
E0735DF0-9CE4-40B2-B4F7-E2A2313C3AB3@microsoft.com...
Bonjour à tous,
Sur proposition de code de René Delcour (fil CTRL X), j'ai pu interdire
l'utilisation du CTRL X et dérouter le CTRL V.
Quelqu'un peut-il m'indiquer comment "griser" dans le menu Edtion les
fonctions "Couper" et "Collage Spécial" pour interdire l'utilisation ?
With Application.CommandBars 'désactive la commande Collage special .Item(1).FindControl(ID:u5, Recursive:=True).Enabled = False 'Désactive la commande couper .Item(1).FindControl(ID:!, Recursive:=True).Enabled = False End With End Sub '--------------------------
Salutations!
"Pierre57" a écrit dans le message de news:
Bonjour à tous,
Sur proposition de code de René Delcour (fil CTRL X), j'ai pu interdire l'utilisation du CTRL X et dérouter le CTRL V.
Quelqu'un peut-il m'indiquer comment "griser" dans le menu Edtion les fonctions "Couper" et "Collage Spécial" pour interdire l'utilisation ?