[已解决]再请教操作了拦截程序后怎么调用killme的问题

东方智彩

打开表格后就启动了拦截控件工具箱＞查看代码、拦截Visual Basic＞VB编辑器等程序,当操作了被拦截的地方，程序就自动调用killme,再请高手给指教啊!
N1SEOAGJ.rar (4.95 KB, 下载次数: 2)

2009-12-17 09:41 上传

点击文件名下载附件
再请教操作了拦截程序后怎么调用killme的问题

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-17 10:16

这里禁用了两个按钮，不会删除。当运行Alt+F11的时候会删除。

说实话，没啥多大意义。当人家打开另一个文件先开好VBE，然后再打开这个照样可以看。

Private Sub Workbook_BeforeClose(Cancel As Boolean) '关掉的时候设定回来
    Application.OnKey "%{f11}"
    Application.CommandBars.FindControl(1, 1561).Enabled = True
    Application.CommandBars.FindControl(1, 1695).Enabled = True
End Sub

Private Sub Workbook_Open() '拦截控件工具箱＞查看代码、拦截Visual Basic＞VB编辑器
    Application.OnKey "%{f11}", "killme"
    Application.CommandBars.FindControl(1, 1561).Enabled = False
    Application.CommandBars.FindControl(1, 1695).Enabled = False
End Sub

Sub killme()    '删除前设定回来
    Application.OnKey "%{f11}"
    Application.CommandBars.FindControl(1, 1561).Enabled = True
    Application.CommandBars.FindControl(1, 1695).Enabled = True
    ActiveWorkbook.ChangeFileAccess xlReadOnly
    Kill ActiveWorkbook.FullName
    Application.Quit
End Sub

跳转到最佳答案楼层

amulee

这里禁用了两个按钮，不会删除。当运行Alt+F11的时候会删除。

说实话，没啥多大意义。当人家打开另一个文件先开好VBE，然后再打开这个照样可以看。

Private Sub Workbook_BeforeClose(Cancel As Boolean) '关掉的时候设定回来
    Application.OnKey "%{f11}"
    Application.CommandBars.FindControl(1, 1561).Enabled = True
    Application.CommandBars.FindControl(1, 1695).Enabled = True
End Sub

Private Sub Workbook_Open() '拦截控件工具箱＞查看代码、拦截Visual Basic＞VB编辑器
    Application.OnKey "%{f11}", "killme"
    Application.CommandBars.FindControl(1, 1561).Enabled = False
    Application.CommandBars.FindControl(1, 1695).Enabled = False
End Sub

Sub killme()    '删除前设定回来
    Application.OnKey "%{f11}"
    Application.CommandBars.FindControl(1, 1561).Enabled = True
    Application.CommandBars.FindControl(1, 1695).Enabled = True
    ActiveWorkbook.ChangeFileAccess xlReadOnly
    Kill ActiveWorkbook.FullName
    Application.Quit
End Sub

东方智彩

太感谢amulee老师了,我再慢慢研究吧,谢谢啦!