Vô hiệu và Khôi phục các phím tắt

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự

18/9/07

Xin gửi các bạn đoạn code Vô hiệu và Khôi phục các phím tắt trong Excel

Mã:

Dim Keys(10) As String '(0-1)

Sub InitKeys()
    Keys(0) = "^i"
    Keys(1) = "^1"
    Keys(2) = "^{F3}"
    Keys(3) = "^g"
    Keys(4) = "^h"
    Keys(5) = "^f"
    Keys(6) = "^b"
    Keys(7) = "^u"
    Keys(8) = "+{F2}"
    Keys(9) = "+{F3}"
    Keys(10) = "%{F4}"
    '...
End Sub

'-------------------------------------------------------------

Sub SetKeys(ByVal bEnable As Boolean)
Dim i As Long
    InitKeys
    For i = LBound(Keys, 1) To UBound(Keys, 1)
        If bEnable Then
            Application.OnKey Keys(i)
        Else
            Application.OnKey Keys(i), "DoNothing"
        End If
    Next i
End Sub

'-------------------------------------------------------------

Sub DoNothing()
    
End Sub

'-------------------------------------------------------------

Sub DisableKeys()
Dim i As Long, tmpKey As String
    
    SetKeys False
    
    S = "Cac phim tat sau da bi huy bo:"
    For i = LBound(Keys, 1) To UBound(Keys, 1)
        tmpKey = Replace(Keys(i), "+", "SHIFT+")
        tmpKey = Replace(tmpKey, "^", "CTRL+")
        tmpKey = Replace(tmpKey, "%", "ALT+")
        tmpKey = Replace(tmpKey, "{", "")
        tmpKey = Replace(tmpKey, "}", "")
        S = S & Chr(13) & UCase(tmpKey)
    Next i
    
    MsgBox S, vbExclamation, "DisableKeys"
    
End Sub

'-------------------------------------------------------------

Sub EnableKeys()
Dim i As Long, tmpKey As String
    
    SetKeys True
    
    S = "Cac phim tat sau da duoc khoi phuc:"
    For i = LBound(Keys, 1) To UBound(Keys, 1)
        tmpKey = Replace(Keys(i), "+", "SHIFT+")
        tmpKey = Replace(tmpKey, "^", "CTRL+")
        tmpKey = Replace(tmpKey, "%", "ALT+")
        tmpKey = Replace(tmpKey, "{", "")
        tmpKey = Replace(tmpKey, "}", "")
        S = S & Chr(13) & UCase(tmpKey)
    Next i
    
    MsgBox S, vbInformation, "EnableKeys"

End Sub