CTRL + ALT + DELETE et ALT + F4

Question

Comment désactiver cette combinaison de touche car les renseignements que j'ai trouvé sur le site fonctionne pas! HELP!!

fabiin · Answer

va voir sur le site www.vbasic.org, il y a un exemple ki marche
(Sans vouloir faire de l'anti-vbfrance) 
vbfrance reste le meilleur des sites vb français  ;)

laurent207 · Answer

ne ne le trouve pas sur le site www.vbosi.org (faut dire quee je n'est pas cherché lontemp)

laurent207

Chris92H · Answer

Ces 2 macros sont radicales sous Excel :

Sub Désactiver_Jeu_Clavier()
    Dim K, Key, Key2, I As Integer
    On Error Resume Next

For Each Key In Array("+", "^", "%", "+^", "+%", "^%", "+^%")

K = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
  "{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
  "{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
  "{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}")
' Interdit toute association de touche de déplacement avec les touches de commandes de type ALT, CTRL :
    For Each Key2 In K
        Application.OnKey Key & Key2, ""
    Next Key2
' Interdit les actions de l'asscociation des touches du clavier (lettres ou chiffres) à d'autres
' touches (de type CTRL, ALT, SHIFT, etc) :
    For I = 0 To 255
        Application.OnKey Key & Chr$(I), ""
    Next I
' Interdit les actions des touches de fonctions, seules ou associées à d'autres touches :
    For I = 1 To 15
        Application.OnKey Key & "{F" & I & "}", ""
        Application.OnKey "{F" & I & "}", ""
    Next I
    Next
' Neutralisation des 2 touches Enter (clavier et pavé numérique) :
    Application.OnKey "{ENTER}", ""
    Application.OnKey "~", ""
End Sub
Sub Rétablir_Jeu_Clavier()
    Dim K, Key, Key2, I As Integer
    On Error Resume Next

For Each Key In Array("+", "^", "%", "+^", "+%", "^%", "+^%")

K = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
  "{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
  "{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
  "{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}")
' Rétablit les associations de touche de déplacement avec les touches de commandes de type ALT, CTRL :
    For Each Key2 In K
        Application.OnKey Key & Key2
    Next Key2
' Rétablit les actions d'asscociation des touches du clavier (lettres ou chiffres) à d'autres
' touches (de type CTRL, ALT, SHIFT, etc) :
    For I = 0 To 255
        Application.OnKey Key & Chr$(I)
    Next I
' Rétablit les actions des touches de fonctions, seules ou associées à d'autres touches :
    For I = 1 To 15
        Application.OnKey Key & "{F" & I & "}"
        Application.OnKey "{F" & I & "}"
    Next I

Next
' Restitution du rôle des 2 touches Enter (clavier et pavé numérique) :
    Application.OnKey "{ENTER}"
    Application.OnKey "~"
End Sub

Voilà,
Chris92H

CTRL + ALT + DELETE et ALT + F4

3 réponses

Discussions similaires