Désactiver les touches de fonction

Y-a-t-il une astuce pour désactiver toutes les touches de fonctions pour un classeur donné?

sub Virer_Fx()
 With Application
 For i = 1 To 12
  .OnKey "{F" & i & "}", ""
 Next
 End With
 end sub
sub Rétab_Fx()
 With Application
 For i = 1 To 12
  .OnKey "{F" & i & "}"
 Next
 End With
 end sub

Tu peux mettre la 1° dans le Workbook_Open et la 2° dans le Workbook_BeforeClose

Auteur :

Mots clefs associés à cette page : , , ,

Une erreur?

Par Mistral13200, le mer 26/10/2011 - 09:00.

J'ai essayé de désactiver les touches fonction avec les procédures ci-dessus mais ça ne fonctionne pas.
Il me semble qu'il mannque le % dans .OnKey "{F" & i & "}"
qui devrai être .OnKey "%{F" & i & "}"

Es-ce exact?
Cordialement
Mistral