发新话题
打印

[VBA] [求助] 如何屏蔽ctrl+c快捷键和右键???

屏蔽右键好像很难,因为Excel每个工作表都是一个Windows窗体,需要拦截N个窗体的右键事件。
换个头像,看见广告就眼红,直接封ID。

TOP

For Each bar In xlbook.Application.CommandBars
    If bar.Type <> 0 Then
        bar.Enabled = False
    End If
    Debug.Print bar.Type
Next
这样就可以了,在Form_Load的最后面。
换个头像,看见广告就眼红,直接封ID。

TOP

原理是 把xlbook.Application.CommandBars所有的命令菜单的.Enabled 设置成 False。当然就不出了。关于这个,我是通过在VB中按F2调出对象查看器,然后只在Excel库中,查看Excel属性找到的,因为我也不知道是哪个,所以直接屏蔽了全部的。

ctrl+c这个我是没办法了。因为这个是Windows系统的操作,没办法屏蔽。还有,能做的是键盘钩子,当一调到这个界面,屏蔽ctrl+c 离开这个界面,取消屏蔽。关于键盘钩子,你可以查看我以前的贴子。
换个头像,看见广告就眼红,直接封ID。

TOP

发新话题