XL 2019 Excel : Desactiver tous les SendKeys

pat66 · 15 Octobre 2021

Bonjour Le forum,

je dois désactiver pas mal de sendKeys, ci après la longue liste qui n'est pas encore exaustive,
Pourriez vous me dire si il existe la possibilité de les désactiver tous avec une phrase en sachant que le clavier et le pavé doivent rester actifs pour saisir des caractères ou des chiffres

Merci

Sub desact_Rac()
With ActiveWorkbook.Application
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "^{INSERT}", ""
.OnKey "+{INSERT}", ""
.OnKey "+{DEL}", ""
.OnKey "{TAB}", ""
.OnKey "+{ESCAPE}", ""
.OnKey "{ESCAPE}", ""
.OnKey "%{F12}", ""
.OnKey "^%j", "montreX"
.OnKey "^%k", "OuvreVBA"
.OnKey "^y", "SuppScroll"
.OnKey "^u", "Scroll"
.OnKey "{NUMLOCK}",""
.OnKey "%{F11}", ""
.OnKey "+{F10}", ""
.OnKey "^s", ""
.OnKey "^q", ""
.OnKey "^f",""
.OnKey "%{F8}", ""
.OnKey "%{F2}", ""
.OnKey "^{F2}", ""
.OnKey "^{F3}", ""
.OnKey "^{F5}", ""
.OnKey "^{F9}", ""
.OnKey "^{F10}", ""
.OnKey "^{F11}", ""
.OnKey "^{F12}", ""
.OnKey "^h", ""
.OnKey "%{F1}", ""
.OnKey "%{F10}", ""
.OnKey "+%{F2}", ""
.OnKey "^p", ""
.OnKey "^o", ""
.OnKey "^d", ""
.CellDragAndDrop = False
.CommandBars("Ply").Enabled = False
' Application.OnKey "{DELETE}", ""
End With
End Sub

dysorthographie · 15 Octobre 2021

Bonjour,
Dans l'éditeur VBA tu tapes sur le raccourci clavier [CTRL] + [H]
Dans la première cellule tu écris .OnKey
Dans la deuxième '.OnKey
Et enfin tu click sur remplacer tous !

Dans la fenêtre recherche et replace tu peux définir la procédure active, le module actif ou encore le projet actif!

Si tu as 3500 .OnKey ils vont tous ce retrouvé en commandait

TooFatBoy · 15 Octobre 2021

Bonjour,

dysorthographie à dit:
Bonjour,
Dans l'éditeur VBA tu tapes sur le raccourci clavier [CTRL] + [H]
Dans la première cellule tu écris .OnKey
Dans la deuxième '.OnKey
Et enfin tu click sur remplacer tous !

Est-ce que .OnKey "{ESCAPE}", "" ne correspond pas à la désactivation du SendKeys "Escape" ?

Et donc, le mettre en commentaire ferait l'inverse de ce qui est demandé par @pat66 ?

dysorthographie · 15 Octobre 2021

Si tu n'active pas quelque chose tu n'as pas à le désactiver, mais j'ai sans doute pas bien compris ta demande !
Deplus tu as la possibilité de faire un rechercher remplacer pour ce '.OnKey spécifique !

Notes que les clavier moderne sont tous pouvu te la touche Escap

pat66 · 15 Octobre 2021

Re,

merci pour votre aide

En fait je souhaite dans le classeur actif pouvoir utiliser uniquement les Onkeys personnalisés que j'ai créé et qui correspondent à des macros :
.OnKey "^%j", "montreX"
.OnKey "^%k", "OuvreVBA"
.OnKey "^y", "SuppScroll"
.OnKey "^u", "Scroll"

mais pouvoir désactiver tous les Onkeys originaux, c'est à dire activés naturellement, exemples :
.OnKey "^s", ""
.OnKey "^q", ""
.OnKey "^f", ""
.OnKey "%{F8}", ""
.OnKey "%{F2}", ""
.OnKey "^{F2}", ""
.OnKey "^{F3}", ""
.OnKey "^{F5}, ""
.OnKey "^v", ""
.OnKey "^x", ""

merci à tous

TooFatBoy · 15 Octobre 2021

dysorthographie à dit:
Si tu n'active pas quelque chose tu n'as pas à le désactiver, mais j'ai sans doute pas bien compris ta demande !

Je crois que @pat66 veut désactiver l'utilisation de certains "raccourcis-clavier", qui sont activés par défaut, comme par exemple l'appui sur la touche "Escape", "^X", "^C", ou "^V".

dysorthographie à dit:
Deplus tu as la possibilité de faire un rechercher remplacer pour ce '.OnKey spécifique.

Je crois comprendre que son code fourni plus haut ne comporte que quelques lignes parmi toutes celles qu'il faudrait pour désactiver tous les raccourcis-clavier existant, et qu'il demande comment désactiver facilement quasiment tous les raccourcis-clavier existant pour ne garder que ceux qu'il veut.

dysorthographie à dit:
Notes que les clavier moderne sont tous pouvu te la touche Escap

D'où l'intérêt de désactiver l'action menée à la suite de l'appui sur cette touche, me semble-t-il.

pat66 · 15 Octobre 2021

re,

merci c'est exactement cà Marcel32 a tout compris et je m'excuse si je n'ai pas employé les bonnes expressions

TooFatBoy · 15 Octobre 2021

Perso, je ne sais hélas pas répondre à ton problème. Désolé

Au départ mon intervention n'était qu'une question par rapport à ton code, pour savoir si j'avais bien compris ce que faisait .OnKey "{ESCAPE}", ""

Mais au final ta question m'a donné la réponse à une question que je ne me posais même pas et qui risque pourtant bien de me rendre énormément service : désactiver les raccourcis "couper", "copier" et "coller".
Un immense merci à toi, et j'espère que tu trouveras une réponse à ton problème.

XL 2019 Excel : Desactiver tous les SendKeys

pat66

XLDnaute Impliqué

dysorthographie

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

pat66

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc