VBA控制excel在关闭时候弹出对话框？？

[north00]

请教高手，如何能让excel在关闭的时候弹出对话框 MsgBox "OK"

有类似于 ThisWorkBook 里 Private Sub Workbook_Open() 相反的东西吗？？
谢谢了～～

[jhone99]

Private Sub Workbook_Deactivate()
MsgBox "ok"
End Sub

[fvflove]

Private Sub Workbook_BeforeClose(Cancel As Boolean)  '如果你想在关闭之前对工作表进行操作用这个
    Sheets("Sheet1").Range("A1").Value = "fvflove"   '会赋值成功
End Sub

Private Sub Workbook_Deactivate()                     '如果你想在关闭之后显示.这时你不能对工作表进行操作了.
   Sheets("Sheet1").Range("A1").Value = "fvflove"    '会赋值失败
End Sub

[dlmeijianyu]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "ok"
End Sub
workbook有open事件,也有beforeclose事件.

[dlmeijianyu]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "ok"
End Sub
workbook有open事件,也有beforeclose事件.

[dlmeijianyu]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "ok"
End Sub
workbook有open事件,也有beforeclose事件.

[north00]

想请教大牛们，这些事件在哪里可以查看到，因为我对VBA完全刚开始，所以很多东西不知道在哪里添加，也不知道有没有这个事件的 :)

谢谢了～

[fvflove]

打开 Excel

点击菜单 工具 => 宏 => Visual Basic 编辑器

进入 Visual Basic 编辑器

按 F2
或
点击菜单 视图 => 对象浏览器

在左边找到 Workbook 类.

在右边 一个个有 闪电 一样图标的都是事件.

[jiaxsheng]

Workbook_BeforeClose可以 用