Signaler

Verrouiller le clavier

Posez votre question xicamaria 8Messages postés mardi 18 juillet 2017Date d'inscription 14 octobre 2017 Dernière intervention - Dernière réponse le 14 oct. 2017 à 13:03 par xicamaria
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
Utile
+0
plus moins
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


Donnez votre avis
Utile
+0
plus moins
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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !