Navigation

Application.OnKey "^"

   Hej Forum.
Jeg aktiverer og deaktiverer F-tasterne i forskellige afskygninger, for at undgå de bliver brugt utilsigtet.
Dette, da mit ark er totalt lukket og låst og kun kan betjenes vha. hjemmelavet Ribbon og Userforme.

Mit problem er, jeg godt vil aktivere og deaktivere Ctrl- og Alt-tasterne alene - Med rødt i koderne.

Men koderne virker ikke.
Og   Application.OnKey "^"  -  Application.OnKey "%"   uden tuborg parentes, laver BUG.

Syntax her

Er det overhovedet muligt, at aktivere og deaktivere de to taster ?

Sub Aktivate_Keys()'---------'
' Aktiver '
'---------'
    Application.OnKey "{^}" '......................Ctrl-tasten
    Application.OnKey "{%}" '......................Alt-tasten

    For i = 1 To 15
        Application.OnKey "{F" & i & "}" '.........Kun F-taster
        Application.OnKey "%{F" & i & "}" '........Alt + F-taster
        Application.OnKey "^{F" & i & "}" '........Ctrl + F-taster
    Next i
End Sub

Sub Deaktivate_Keys()
'-----------'
' Deaktiver '
'-----------'
    Application.OnKey "{^}", "" '..................Ctrl-tasten
    Application.OnKey "{%}", "" '..................Alt-tasten

    For i = 1 To 15
        Application.OnKey "{F" & i & "}", "" '.....Kun F-taster
        Application.OnKey "%{F" & i & "}", "" '....Alt + F-taster
        Application.OnKey "^{F" & i & "}", "" '....Ctrl + F-taster
    Next i
End Sub

Mvh.
Ib

Navigation

Atkiver / Deaktiver Ctrl- og Alt-tasterne