Onkey的使用

glhfgtd

语法：Application.OnKey(Key, Procedure)
注意：
1) 过程名称是一个字符串，使用时必须加上引号
2) Key参数必须是Alt、Ctrl 或 Shift +任意键的组合键，不支持单键触发
3) 过程必须存在
我们可以用OnKey事件，让系统或Excel的快捷键失效，比如说禁止用Ctrl+C进行复制，禁止Ctrl+~切换“公式”与“结果”模式等等；
当Procedure参数，即子过程参数名为""（空）时，则取消此快捷键设置；

示例：
用Ctrl+M键，代替Ctrl+PageDown，向右循环切换工作表；
用Ctrl+N键，代替Ctrl+PageUp，向左循环切换工作表；

Private Sub Workbook_Open()
    Application.OnKey "^m", "ActNext"
    Application.OnKey "^n", "ActPre"
End Sub