[已解决]怎么样禁用快捷键ctrl+pageup

9910343

怎么样禁用快捷键ctrl+pageup和ctrl+pagedown,主要作用是我把工作表签隐藏了，只能用宏来在各个工作表之间进行切换，而不能使用其他方法，谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-1 14:33

1. sub test()
   
2.     Application.OnKey "^{PGDN}",""
   
3.     Application.OnKey "^{PGUP}",""
   
4. end sub
   

复制代码

这样简单点。

跳转到最佳答案楼层

hwc2ycy

写个空教程，把过程注册到这两个快捷键。

hwc2ycy

Application.OnKey 方法
当按特定键或特定的组合键时运行指定的过程。

9910343

hwc2ycy 发表于 2012-10-1 13:57
Application.OnKey 方法
当按特定键或特定的组合键时运行指定的过程。

不怎么懂，能否把代码写出来，谢谢

hwc2ycy

1. Sub donothing()
   
2.     MsgBox "test" '测试
   
3. End Sub
   
4. 
   
5. Sub test()
   
6.     Application.OnKey "^{PGDN}", "donothing"
   
7.     Application.OnKey "^{PGUP}", "donothing"
   
8.     '如果要取消application.onkey "^{PGDN}"
   
9.     '如果要取消application.onkey "^{PGUP}"
   
10. End Sub

复制代码

执行TEST后，你按CTRL+PAGEDOWN,PAGEUP试试

hwc2ycy

1. sub test()
   
2.     Application.OnKey "^{PGDN}",""
   
3.     Application.OnKey "^{PGUP}",""
   
4. end sub
   

复制代码

这样简单点。

hwc2ycy

如果要恢复那两个快捷键的话，就是

1. 
   
2. sub test()
   
3. Application.OnKey "^{PGDN}"
   
4. Application.OnKey "^{PGUP}"
   
5. end sub
   

复制代码