vba workbook触发事件

这种涉及到book的触发事件，就需要写在thisworkbook里面了

open

一打开那个book，就自动触发业务

Private Sub Workbook_Open()
MsgBox ("奥利给兄弟们")
End Sub

beforeclose

在关闭我的book之前，给我执行的操作

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if msgbox（“你确定要关闭工作薄？”，"vbyesno"）=vbno tehn
cancel=ture
end if
End Sub

sheetchange

当book里面的任何一个单元格发生改变的时候，触发事件

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

msgbox("当前工作表为"&sh.name chr(13) Target.address )
End Sub