Débloquage des touches F1 à F11

[Pumbaa]

Bonjour,

Afin de protéger une application sous VBA excel 2007 dans le cadre d'un projet tuteuré, j'ai voulu bloquer les touches de F1 à F11

Voici le code :

Private Sub Workbook_Activate()
'Empêche l'utilisateur, d'accéder aux paramètres du programme'
If userform1.textbox1.Value <> "2008" Then
With Application
For i = 1 To 12
.OnKey "{F" & i & "}", ""
.OnKey "%{F" & i & "}", ""
Next
End With
Else
With Application
For i = 1 To 12
.OnKey "{F" & i & "}"
.OnKey "%{F" & i & "}"
Next
End With
End If
End Sub

Problème, c'est qu'on arrive pas à débloquer ces touches après 😕
L'idéal serait de pouvoir les déloquer en entrant un code.

Voilà, si vous avez des propositions, on est preneur.
Merci d'avance.

 

[SergiO]

Re : Débloquage des touches F1 à F11

Bonjour Pumbaa,

Tu peux rajouter ce code:

Private Sub Workbook_Deactivate()
With Application
For i = 1 To 12
.OnKey "{F" & i & "}"
.OnKey "%{F" & i & "}"
Next
End With
End Sub

@+

 

[Pumbaa]

Re : Débloquage des touches F1 à F11

Merci beaucoup 😉