excel里怎么样在关闭前加个提示。

来源：百度知道 编辑：UC知道 时间：2024/09/20 18:27:24
我想在我的一个1.xls文档里加个功能
就是当我关闭这个文档时，提示我是否要打开另一个2.xls文档进行编辑。
1.xls和2.xls不在同一个目录下。
当我选“是”，就给我打开，我就可以开始编辑2.xls了，“否”就正常关闭。
请问这个功能vba怎么实现。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
a = MsgBox("您是否要打开另一个文件？", vbYesNo + vbQuestion, "正在关闭")
If a = vbYes Then
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\My Documents\test.xls"
End If
End Sub

把这个贴到thisworkbook的代码区里