Empêcher un raccourci clavier de Windows

[chappyporfaro]

Bonjour les experts, un ami m'a demandé comment on ferait pour empêcher le raccourci clavier de Windows CTRL-X lorsque l'on est dans son application Excel.

Merci

Chappy

 

[MJ13]

Re : Empêcher un raccourci clavier de Windows

Bonjour,

Comme cela je verrai bien vers onkey, mais le plus simple, est de créer une macro avec le raccourci x qui ne fera rien.
exemple: (Penser ensuite à aller dans les options pour définir le raccourci clavier)

sub Macro_Qui_ne_fait_rien_x

End sub

 

[Cousinhub]

Re : Empêcher un raccourci clavier de Windows

Bonjour chappyporfaro, MJ13, le forum

pour empêcher toute forme de "couper" :

Sub InterdireCouper()
On Error Resume Next
With Application
.OnKey "^x", ""
.CommandBars("Edit").FindControl(ID:=21).Enabled = False
.CommandBars("Cell").FindControl(ID:=21).Enabled = False
.CommandBars("Column").FindControl(ID:=21).Enabled = False
.CommandBars("Row").FindControl(ID:=21).Enabled = False
.CommandBars("Button").FindControl(ID:=21).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:=21).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:=21).Enabled = False
.CommandBars("Standard").FindControl(ID:=21).Enabled = False
End With
End Sub

Sub RetablirCouper()
On Error Resume Next
With Application
.OnKey "^x"
.CommandBars("Edit").FindControl(ID:=21).Enabled = True
.CommandBars("Cell").FindControl(ID:=21).Enabled = True
.CommandBars("Column").FindControl(ID:=21).Enabled = True
.CommandBars("Row").FindControl(ID:=21).Enabled = True
.CommandBars("Button").FindControl(ID:=21).Enabled = True
.CommandBars("Formula Bar").FindControl(ID:=21).Enabled = True
.CommandBars("Worksheet Menu Bar").FindControl(ID:=21).Enabled = True
.CommandBars("Standard").FindControl(ID:=21).Enabled = True
End With
End Sub

que tu pourrais mettre dans le (pour l'interdiction) :

Private Sub Workbook_Open()

End Sub

et dans le (pour la remise en fonction) :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Bon Dimanche

 

[chappyporfaro]

Re : Empêcher un raccourci clavier de Windows

Le service est rapide!

Merci beaucoup, je vais lui transmettre l'info pour qu'il l'essaie. Je vous tiendrai au courant des développements.

Chappy

 

[chappyporfaro]

Re : Empêcher un raccourci clavier de Windows

Bonjour tout le monde,

Mon ami a essayé les sub de bhbh. Ça fonctionne très bien pour désactiver l'option "couper" dans le menu Edition mais la combinaison clavier reste en fonction. Il a ajouté l'idée d'une sub vide tel que proposé par MJ13 et le tout fonctionne parfaitement bien.

Merci pour le support

Chappy