实际工作中,我们需要限制用户点击EXCEL的关闭按钮来关闭文件,让用户只能使用我们的代码来关闭文件的方法,一起来学习一下
- 例如:
有一个文件:
我们在该文件中加入一个我们需要用户点击关闭文件的图片:
- 这个方法可以自己在代码中扩展需要限制用户关闭的一些条件,很有用处哦,
- 下面我们来看一下具体的代码:
- 在工作簿关闭前的事件中放入如上代码:
- If Not 是否关闭 Then ‘是否关闭 为全局变量, 默认为 False
- Cancel = True ‘如果不允许关闭, 则取消关闭
- End If
- 是否关闭 = False ‘再次设置不允许关闭文件
- 另外在模块中放入如下代码:
图片 X 指定宏: 到该代码
- 是否关闭 = True ‘允许关闭
- ThisWorkbook.Save ‘保存文件
- ThisWorkbook.Close ‘关闭文件
- 本代码通过工作簿的事件和模块来改写关闭工作簿
- 本代码可收藏到代码助手,并且快速搜索随时调出
代码助手下载地址vbayyds.com
- 输入 是否+空格,即可快速调出代码