A
ArsennLupin
Guest
Salut à tous je cherche à désactiver les raccourcis claviers sous excel.
J'ai trouvé dans d'autres posts cette solution :
Private Sub Workbook_Open()
Dim K, I As Integer
On Error Resume Next
For Each K In Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 0 To 256
Application.OnKey Chr$(K) & Chr$(I), ""
Next I
Next K
End Sub
Mais voila, ça marche pas des masses. Avec :
Application.OnKey "^c", ""
ça empèche le ctrl-c, mais comment désactiver toutes les touches 'spéciales' (toutes seules ou en combinaison): ctrl, alt, tab, shift, Pg Up....
Par exemple, quand je fais alt-F4, ben ça ferme quand même la fenètre
Voila, si vous avez des suggestions...
J'ai trouvé dans d'autres posts cette solution :
Private Sub Workbook_Open()
Dim K, I As Integer
On Error Resume Next
For Each K In Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 0 To 256
Application.OnKey Chr$(K) & Chr$(I), ""
Next I
Next K
End Sub
Mais voila, ça marche pas des masses. Avec :
Application.OnKey "^c", ""
ça empèche le ctrl-c, mais comment désactiver toutes les touches 'spéciales' (toutes seules ou en combinaison): ctrl, alt, tab, shift, Pg Up....
Par exemple, quand je fais alt-F4, ben ça ferme quand même la fenètre
Voila, si vous avez des suggestions...
