excel利用msgbox函数来避免误操作关闭程序

1、首先让我们打开一个工作样表作为例子。

2、按下alt+f11进入vba编辑模式， 并插入一个新模块命名为msg。并在模块内定义 a=msgbox()， 按下 F5运行后， 会弹出一个空白的对话框。

(资料图片)

3、 msgbox的参数与inputbox的参数类似 ，这里需要提出来的是： Value=MsgBox(prompt[，buttons][，title][ ，helpfile，context]) ，这里面buttons参数为数组组合，并且有规定的常量或数值，大家需要熟记一下。当然也可以借助vba的自动提示功能来辅助记忆。

4、为了防止excel工作表被误关闭，我们需要这样做 。首先在左侧工程编辑栏中选择通用表格 。

5、双击thisworkbook后在右侧对象选项和动作选项中分别选择workbook和beforeclose来创建一个模块。

6、输入以下代码

Dim intreturn As Integer

intReturn = MsgBox("退出程序吗?"， vbYesNo + vbQuestion， "提示")

If intReturn <> vbYes Then Cancel = True

这里解释一下定义return变量为一个整数值，当变量RETURN不为yes时，则所有操作取值取消。

7、输入完成好，我们切换回excel工作表，点击右上角x关闭工作表，会弹出提示。至此本次操作正确。

标签：