Discussion :

[thepunky89]

Bonjour,
J'aimerai pouvoir verrouillée la touche F11 (qui crée un graphique automatiquement) soit à l'ouverture du fichier soit au démarrage de Windows. J'ai recherché des scripts et à part du java, je n'ai rien trouvé en VBA... merci de m'aider si vous le pouvez .

[fring]

Bonjour,

Neutraliser = rendre inopérationnelle ?

Si oui essaye ceci :
à l'ouverture du fichier on neutralise F11

Code :

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

1
2
3
Private Sub Workbook_Open()
Application.OnKey "{F11}", ""
End Sub

à la fermeture du fichier on rend F11 à sa fonction initiale

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F11}"
End Sub

[ouskel'n'or]

Hello fring, j'avais testé, sans résultat.
J'aimerais bien savoir si ça fonctionne chez toi, j'avais mis F1 au lieu de F11 et j'ai plus l'aide en ligne

[ucfoutu]

Hello fring, j'avais testé, sans résultat.
J'aimerais bien savoir si ça fonctionne chez toi, j'avais mis F1 au lieu de F11 et j'ai plus l'aide en ligne

M'étonne pô !!!...

Faut éviter l'aide en ligne à certaines dates
It could really be very fishy tricky ...

[tomy7]

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
26
Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
 
Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub
 
Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
 
Application.OnKey K & Chr$(I)
Next I
Next K
End Sub
 
Ça ne désactive "que" les raccourcis utilisant une touche alphanumérique.

j ai ce code qui trainai dans un coinde mon pc qui vient d un autre siteweb.

peut etre que sa t interesse...

[thepunky89]

J'ai rentré ce qu'a écrit Fring, et ça marche . Merci beaucoup .

[fring]

Hello fring, j'avais testé, sans résultat.
J'aimerais bien savoir si ça fonctionne chez toi, j'avais mis F1 au lieu de F11 et j'ai plus l'aide en ligne