Workbook.BeforeClose 事件 (2007 system)
更新：2007 年 11 月
在关闭工作簿前发生。如果工作簿已更改，则此事件在要求用户保存更改前发生。
命名空间： Microsoft.Office.Tools.Excel
程序集： Microsoft.Office.Tools.Excel.v9.0（在 Microsoft.Office.Tools.Excel.v9.0.dll 中）
语法
声明
Public Event BeforeClose As WorkbookEvents_BeforeCloseEventHandler
用法
Dim instance As Workbook
Dim handler As WorkbookEvents_BeforeCloseEventHandler
AddHandler instance.BeforeClose, handler
public event WorkbookEvents_BeforeCloseEventHandler BeforeClose
示例
下面的代码示例演示 BeforeClose 事件的处理程序。如果工作簿自上次保存以来进行了更改，该事件处理程序会提示用户是保存更改，不保存更改，还是取消关闭操作。如果用户不保存更改，则工作簿的 Saved 属性设置为 true，以便在关闭操作继续时 Microsoft Office Excel 不会提示用户保存工作簿。如果用户取消关闭操作，则 WorkbookEvents_BeforeCloseEventHandler 事件处理程序的 Cancel 参数设置为 true，以便 Microsoft Office Excel 不关闭工作簿。
此示例针对的是文档级自定义项。
Sub ThisWorkbook_BeforeClose(ByRef Cancel As Boolean) _
Handles Me.BeforeClose
If Not Me.Saved Then
Dim result As DialogResult = _
MessageBox.Show("Do you want to save the " & _
"changes you made to " & Me.Name & "?", _
"Example", MessageBoxButtons.YesNoCancel)
Select Case result
Case DialogResult.Yes
Me.Save()
Case DialogResult.Cancel
Cancel = True
' The following code ensures that the default Save File
' dialog is not displayed.
Case DialogResult.No
Me.Saved = True
End Select
End If
End Sub
private void WorkbookBeforeClose()
{
this.BeforeClose +=
new Excel.WorkbookEvents_BeforeCloseEventHandler(
ThisWorkbook_BeforeClose);
}
void ThisWorkbook_BeforeClose(ref bool Cancel)
{
if (!this.Saved)
{
DialogResult result = MessageBox.Show("Do you want to save the " +
"changes you made to " + this.Name + "?", "Example",
MessageBoxButtons.YesNoCancel);
switch (result)
{
case DialogResult.Yes:
this.Save();
break;
case DialogResult.Cancel:
Cancel = true;
break;
// The following code ensures that the default Save File
// dialog is not displayed.
case DialogResult.No:
this.Saved = true;
break;
}
}
}
权限
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息，请参见通过部分受信任的代码使用库。