主 题: | 仿Excel 关闭前保存文档对话框 |
版 本: | Excel2000及其以后版本 |
说 明: | 本示例主要仿建了一个Excel 关闭前保存文档对话框，让用户可以自定义标题和显示消息。（Code By wangminbai） |
在Excel中当用户更改了一个文档之后在关闭文档时就会显示一个询问用户是否保存文档的对话框，但此对话框的标题和显示消息总是一成不变的，久了就会觉得没有味道。而且当用户在工作薄的Workbook_BeforeClose过程中设置了代码时，即使用户了点击询问对话框的“取消”按钮来取消关闭文档的操作时，你也会发现Workbook_BeforeClose过程的中的代码已经被执行，用户的很多设置已经被更改。而这往往是用户不愿意看到的。所以应在执行这些代码之前显示一个对话框来询问用户是否保存文档还是取消操作。这个对话框用VBA的MsgBox函数就可以做到，但是如果你是Windows XP的用户你就会发现VB的MsgBox函数显示的对话框的风格和Excel本身所显示的对话框的风格很不一样（前提是你选择的不是Windows的经典外观）。这就显得不协调，见下图：
Excel对话框
VBA的MsgBox函数对话框
为了协调起见，我们就用Excel5的宏对话框来创建一个对话框，使其的风格样式和Excel对话框几乎没有分别，而且可以自定义对话框的标题及显示的消息。效果见下图：
Excel对话框
自定制的宏对话框
在这里我就介绍一下定制的过程。
在你需要建立对话框的文档里插入一个 Ms Excel 5.0 对话框。方法是点击任意工作表标签，然后选择弹出菜单中的 插入 菜单，在 插入 对话框中选择 Ms Excel 5.0 对话框。单击 确定 按钮。然后将其命名为“关闭前对话框”。
在对话框表中右键单击对话框的外框，选择 设置控件格式 菜单，将其控件格式设置为下图：
在窗体原有的两个按钮的基础上添加一个按钮，然后将按钮的标题分别更改为 是(Y) 、 否(N) 和 取消。
右键分别单击这三个按钮，选择 设置控件格式 菜单，将三个控件的大小格式设置如下图：
分别设置 是(Y) 、否(N) 和 取消 控件的其它格式如图：