禁用关闭工作簿的按钮

阿童木

这是一个很有趣的功能，只有通过点击指定按钮才能关闭工作簿，如动画所示。


需要注意的是这个时候程序退出按钮也不起作用了。

实现方法
1、按Alt+F11打开VBE
2、添加一个模块，输入以下代码：

1. '定义一个公共变量用来标记是否点击了
   
2. Public bPD As Boolean
   
3. '指定按钮的单击过程
   
4. Sub 退出()
   
5.     '当点击的指定按钮后，将标志为设为已点击，然后再关闭工作簿
   
6.     bPD = True
   
7.     ThisWorkbook.Close
   
8. End Sub
   

复制代码

3、在Thisworkbook中添加以下代码：

1. '工作簿关闭事件，当工作簿关闭前触发
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3.     '当标志变量为False时，即未点击指定按钮
   
4.     If Not bPD Then
   
5.         '提示
   
6.         MsgBox "只有点击Sheet1中的退出按钮才能关闭工作簿"
   
7.         '取消关闭的操作
   
8.         Cancel = True
   
9.     End If
   
10. End Sub
    

复制代码

4、在Sheet1中添加一个按钮，指定宏设置为“退出”过程。

示例附件下载：
只能点击指定按钮关闭工作簿.rar (7.7 KB, 下载次数: 37, 售价: 1 个金币)

2011-1-12 11:11 上传

点击文件名下载附件

ilyou2049

留个脚印，我来学习了

那么的帅

跟着木师学代码

Thenea

学习代码，好好学习~

终点

学习 学习

放浪形骸

这个好像就和FORM的退出代码差不多的
Cancel As Boolean

天意fe

{:35:}{:35:}

笨妖儿

好历害,竟然有这个功能.

lslly

学习               

crtao

有趣啊，值得学习。