上一章给大家分享了关于Workbook事件的中的Open事件的的运行,该怎么使用等,今天继续给大家分享一下关于Workbook事件中的另外一个事件Beforeclose该怎么使用,需要注意什么?

单从单词的字面意思就可以看出肯定是在关闭操作动作之前运行的。

实际上就是在关闭工作薄以前就会自动运行程序。如果你在工作簿当中进行了修改操作,那么在关闭工作簿之前Beforeclose事件就会第一时间咨询你是否保存之前的修改操作。

Beforeclose事件中有一个必须的参数Cancel 它的数据类型是布尔变量只有二个FALSE或者True。

当参数结果是FALSE时就表示会执行事件。

当参数的结果是True时就表示不会执行事件,也不会关闭工作薄

下面就使用一个简单的实例具体说明一下:

我这个例子就是需要自己输入一个数字如果数字大于50就不会关闭工作簿,如果小于50 就会给单元格一个值,并且关闭工作薄把工作薄另存

VBA中Workbook事件的beforeclose事件,该怎么使用?-天天办公网

 

注意:这里面的参数默认的就是False的值。

代码1:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim shuzi As Integer

shuzi = InputBox(“请输入一个数据:”)

If shuzi >= 50 Then

Cancel = True

Else

Worksheets(1).Cells(1, 1) = 111111

ActiveWorkbook.SaveAs “C:\Users\Administrator\Desktop\今天测试的表格.xlsm”

End If

End Sub