Verrouiller le clavier
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
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
2 réponses
-
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
