Discussion :

[dodo69]

Bonjour à tous,

J'aimerai bloquer certaines touches de mon clavier pendant qu'un classeur est ouvert.

J'utilise donc le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub Workbook_Open()
 
sheets("Feuil1").Activate
Application.OnKey "{ESC}", "rienfaire"
Application.OnKey "{DELETE}", "rienfaire"
Application.OnKey "{TAB}", "rienfaire"
 
End Sub
-----------------------------------------------------------------------
-------------------------------------------------------------------------
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Application.OnKey "{ESC}"
Application.OnKey "{DELETE}"
Application.OnKey "{TAB}"
 
End Sub
 
----------------------------------------------------------------------
------------------------------------------------------------------------
Sub rienfaire() 'dans un module
 
End Sub

Malheureusement, lorsque j'appuie sur tab, ou ctrl, la touche marche belle et bien...

Pouvez vous me venir en aide svp
Merci d'avance
Cordialement
DoDo

[mercatog]

Code dans le module ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
 
Sheets("Feuil1").Activate
Application.OnKey "{ESC}", ""
Application.OnKey "{DELETE}", ""
Application.OnKey "{TAB}", ""
 
End Sub

J'ai testé ceci, en ayant enregistré, fermé et ré ouvert le classeur.
Les touches bel et bien inactives.

[dodo69]

Re mercatog,

Ca ne marche pas non plus
Peut être que l'activation d'un Userform ne marche pas avec Onkey alors...

Je m'explique, à l'ouverture du classeur j'ouvre un Userform,

--->je ne veux pas que l'utilisateur utilise "tab" pour changer de bouton...
--->je ne veux pas non plus que l'utilisateur utilise la touche "Ctrl", pour éviter les racourci du genre (ctrl+alt+suppr OU ctrl+Shift+Esc)

Oui je sais je suis pas gentil avec l'utilisateur

Merci d'avance