Verrouiller le clavier

Fermé

Clavier

xicamaria Messages postés 11 Date d'inscription mardi 18 juillet 2017 Statut Membre Dernière intervention 24 octobre 2017 - 12 oct. 2017 à 17:14
xicamaria Messages postés 11 Date d'inscription mardi 18 juillet 2017 Statut Membre Dernière intervention 24 octobre 2017 - 14 oct. 2017 à 13:03

Bonjour,

Je souhaite verrouiller le clavier lorsqu'on est sur une certaine feuille excel.
Pour cela j'utilise le code ci-dessous que j'ai trouvé et que j'essaie de tester. Mais j'obtiens l'erreur 1004 qui me dit que la Méthode onKey a échoué.

Private Sub Worksheet_Activate()
Dim k As Integer
For k = 32 To 122
Application.OnKey Chr(k), ""
Next
End Sub

Private Sub Worksheet_Deactivate()
Dim k As Integer
For k = 32 To 122
Application.OnKey Chr(k)
Next
End Sub

Si quelqu'un peut m'aider, Merci d'avance,

Xica

A voir également:

Verouiller clavier
Dessin clavier zizi ✓ - Forum Réseaux sociaux
Changer clavier qwerty en azerty - Guide
Télécharger clavier arabe samsung - Télécharger - Bureautique
J'aimerais verrouiller mon clavier. Comment faire ? ✓ - Forum Windows
Telecharger clavier arabe تنزيل لوحة المفاتيح العربية - Télécharger - Divers Web & Internet

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
13 oct. 2017 à 16:34

Bonjour,

Si le but est d'éviter toute interaction de l'utilisateur, tu peux bloquer le clavier et la souris avec BlockInput :

Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long
Sub MaMacro()
  BlockInput 1   'Désactive le clavier et la souris
  ' Instructions
  ' ...
  BlockInput 0   'Re-active le clavier et la souris
End Sub

Discussions similaires

Lenovo retroéclairage

Je ne peux plus taper mon mdp pour accéder à ma session

Écrire en gras, italique, souligner

Problème de clavier, Comment changer de couleur ..

comment désactiver la saisie vocale google sur Lenovo K5

Clavier séparé en deux

Discussions similaires

Newsletters