上一章给大家分享了关于Workbook事件的中的Open事件的的运行,该怎么使用等,今天继续给大家分享一下关于Workbook事件中的另外一个事件Beforeclose该怎么使用,需要注意什么?
单从单词的字面意思就可以看出肯定是在关闭操作动作之前运行的。
实际上就是在关闭工作薄以前就会自动运行程序。如果你在工作簿当中进行了修改操作,那么在关闭工作簿之前Beforeclose事件就会第一时间咨询你是否保存之前的修改操作。
Beforeclose事件中有一个必须的参数Cancel 它的数据类型是布尔变量只有二个FALSE或者True。
当参数结果是FALSE时就表示会执行事件。
当参数的结果是True时就表示不会执行事件,也不会关闭工作薄
下面就使用一个简单的实例具体说明一下:
我这个例子就是需要自己输入一个数字如果数字大于50就不会关闭工作簿,如果小于50 就会给单元格一个值,并且关闭工作薄把工作薄另存
注意:这里面的参数默认的就是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