Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2193|回复: 8

[已解决]怎么禁用按键?

[复制链接]
发表于 2013-8-21 20:21 | 显示全部楼层 |阅读模式
本帖最后由 sfaasdada 于 2013-8-22 17:30 编辑

怎么用代码禁用F4???
最佳答案
2013-8-22 16:14
sfaasdada 发表于 2013-8-22 13:21
为什么不能永久禁止?

想永久禁止的话
一.个人宏工作簿
二.应用程序级事件(加载宏)
发表于 2013-8-21 20:35 | 显示全部楼层
回复

使用道具 举报

发表于 2013-8-21 20:38 | 显示全部楼层
插入一个模块
Public Sub NOF4()

End Sub

在thisworkbook写WORKBOOK OPEN事件
Private Sub Workbook_Open()
    Application.OnKey "{F4}", "nof4"
End Sub
回复

使用道具 举报

发表于 2013-8-21 20:40 | 显示全部楼层
在THISWORKBOOK里再加上BEFORCLOSE事件。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{F4}"
End Sub
回复

使用道具 举报

 楼主| 发表于 2013-8-21 20:46 | 显示全部楼层
hwc2ycy 发表于 2013-8-21 20:38
插入一个模块
Public Sub NOF4()

Private Sub Workbook_Open()
    Application.OnKey "{F4}", ""
End Sub
这样行不行?
回复

使用道具 举报

发表于 2013-8-21 21:33 | 显示全部楼层
sfaasdada 发表于 2013-8-21 20:46
Private Sub Workbook_Open()
    Application.OnKey "{F4}", ""
End Sub

行不行,你试了不就知道了。
回复

使用道具 举报

发表于 2013-8-21 21:34 | 显示全部楼层
其实是可以的,比我的设置一个空过程更好。
回复

使用道具 举报

 楼主| 发表于 2013-8-22 13:21 | 显示全部楼层
hwc2ycy 发表于 2013-8-21 21:34
其实是可以的,比我的设置一个空过程更好。

为什么不能永久禁止?
回复

使用道具 举报

发表于 2013-8-22 16:14 | 显示全部楼层    本楼为最佳答案   
sfaasdada 发表于 2013-8-22 13:21
为什么不能永久禁止?

想永久禁止的话
一.个人宏工作簿
二.应用程序级事件(加载宏)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:11 , Processed in 0.835221 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表