verrouiller le clavier

Question

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
Configuration: Windows / Chrome 61.0.3163.100

Patrice33740 · Answer

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

xicamaria · Answer

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

Verrouiller le clavier

2 réponses

Discussions similaires

Newsletters