Astuces Excel
  1. Astuces Excel
  3. Excel 2013 VBA Disable Escape Key
Intereting Posts
Comment faire ProductSum dans Excel? Problème Excel avec la suppression de CustomProperty en Coréen Excel Add-In ne fonctionne que lorsque vous activez et activez Protégez une feuille d'ouverture dans un classur Comment comparer des colonnes inégales et basées sur datatables tirées d'une colonne adjacente pour remplir une troisième Utilisation de VBA pour supprimer des milliers de cases à cocher Référencement d'une cellule en utilisant une formule pour get le nom de la cellule Le file Excel ne s'ouvre pas après l'écriture de caractères spéciaux ou illégaux par programmation Comment régler (ou réinitialiser) l'épaisseur et l'intensité de la ligne dans VBA Excel? Appeler une fonction dans la boucle 'For' lance un NameError Différence de version dans la fonction LINEST comment extraire des valeurs de XML multiples en excel? Comment se connecter à l'instance existante d'Excel à partir de PowerShell? La meilleure façon de structurer Excel VBA Code pour la maintenance, la clarté et la gestion des erreurs convertir toutes les dates dans une colonne en numéros

Excel 2013 VBA Disable Escape Key

De grandes excuses. J'ai cherché cette réponse pendant des heures et je ne peux pas la find.

J'ai essayé diverses façons de désactiver ma key d'échappement dans une feuille de calcul.

Tout en rien. Je me suis joint à la communauté en vue de requestr de l'aide, s'il vous plaît.

J'ai essayé 

Application.EnableCancelKey = xLDisabled

Et j'ai utilisé 

 Application.OnKey "{ESC}", ""

Je ne veux pas que la touche d'échappement soit désactivée dans l'intégralité du cahier de travail, juste la feuille de travail dans laquelle je suis.

J'aimerais recevoir de l'aide s'il vous plaît.

Je ne suis pas un écrivain VBA prolifique – c'est plus que je le fais pour le travail que pour vivre.

Je vous remercie

Noix de noix

Vous searchz quelque chose comme ça? 

 Private Sub Workbook_Open() If ActiveSheet.Name = "Sheet2" Then Application.OnKey "{ESC}", "" Else Application.OnKey "{ESC}" End If End Sub Private Sub Workbook_Activate() If ActiveSheet.Name = "Sheet2" Then Application.OnKey "{ESC}", "" Else Application.OnKey "{ESC}" End If End Sub Private Sub Workbook_Deactivate() Application.OnKey "{ESC}" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "{ESC}" End Sub