[已解决]如果不用点击按钮怎么知道宏的快捷键F8被启用了

东方智彩

以下这个代码是点击后拦截工具＞宏＞宏的快捷键F8，请问高手如果不采用点击按钮的方式又怎么能启用拦截工具＞宏＞宏的快捷键F8的作用，我的本意是如果表格复制到别人电脑上后，他是不会自已来点击按钮拦截工具＞宏＞宏的快捷键F8的，那我用什么方法能自动启用拦截功能，当外人预查看代码时，这个拦截就再调用工作薄自杀来保护代码，请高手指教？谢谢！

Private Sub CommandButton1_Click() '点击后拦截工具＞宏＞宏的快捷键F8
    Application.OnKey "%{F8}", "Sheet1.拦截"
End Sub

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-15 15:20

放到Thisworkbook里面，打开时启用，关闭后则恢复

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "%{F8}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "%{F8}", "Sheet1.拦截"
End Sub

跳转到最佳答案楼层

amulee

放到Thisworkbook里面，打开时启用，关闭后则恢复

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "%{F8}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "%{F8}", "Sheet1.拦截"
End Sub

东方智彩

谢谢amulee老师,明白了!

zsd5237

学习[em02][em02]

血海狂风

散热口位于右侧我个人觉得并不影响使用,因为我鼠标放在本本前面o(∩_∩)o...哈哈