re :
Sub Test() 'désactive les raccoucis
For i = 65 To 90
Application.OnKey '^{' & i & '}', ''
Next
End Sub
Sub Test2() 'réactive les raccourcis
For i = 65 To 90
Application.OnKey '^{' & i & '}'
Next
End Sub
Sub Test3() 'désactive l'alphabet
For i = 65 To 90 'on doit pouvoir aller de 33 à 126... (a vérifier!)
Application.OnKey '{' & i & '}', ''
Next
End Sub
Sub Test4() 'réactive l'alphabet
For i = 65 To 90
Application.OnKey '{' & i & '}'
Next
End Sub
Sub Test5() 'désactive ...le reste (avec un peu d'imagination)
With Application
.OnKey '{F1}', ''
'...
.OnKey '{F12}', ''
.OnKey '^{F4}', ''
.OnKey '%{F4}', ''
.OnKey '^', ''
.OnKey '%', ''
.OnKey '{HOME}', ''
.OnKey '{FIN}', ''
.OnKey '{SUPPR}', ''
.OnKey '{TAB}', ''
.OnKey '{PGSUIV}', ''
.OnKey '{PGPREC}', ''
End With 'Prévoir la sortie !!!!!!!!!!!!!!!!!!!!!!!!!
End Sub
Ok ?
Message édité par: galopin01, à: 11/03/2005 15:52