Verrouiller le clavier

xicamaria 11 Messages postés mardi 18 juillet 2017Date d'inscription 24 octobre 2017 Dernière intervention - 12 oct. 2017 à 17:14 - Dernière réponse : xicamaria 11 Messages postés mardi 18 juillet 2017Date d'inscription 24 octobre 2017 Dernière intervention
- 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
Afficher la suite 

2 réponses

Répondre au sujet
Patrice33740 6323 Messages postés dimanche 13 juin 2010Date d'inscription 15 décembre 2017 Dernière intervention - 13 oct. 2017 à 16:34
0
Utile
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


Commenter la réponse de Patrice33740
xicamaria 11 Messages postés mardi 18 juillet 2017Date d'inscription 24 octobre 2017 Dernière intervention - 14 oct. 2017 à 13:03
0
Utile
Merci Patrice, mais mon souhait est de bloquer juste le clavier pour que l'utilisateur intéragisse seulement au moyen de la souris. Il a en effet un ensemble de liste déroulantes à renseigner.
Salutations,
Xica
Commenter la réponse de xicamaria