Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Excel : Desactiver tous les SendKeys

pat66

XLDnaute Impliqué
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

XLDnaute Accro
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
 
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
Bonjour,

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 ?
 
Dernière édition:

dysorthographie

XLDnaute Accro
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
 
Dernière édition:

pat66

XLDnaute Impliqué
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
 
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
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".

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.

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.
 
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
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.
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…