Excel工作簿关闭时，我想用VBA中的Auto_close()函数，同时使用Msgboxd出是否对话框

在EXCEL界面按ALT+F11

这样就打开了Visual Basic编辑器

再在Visual Basic编辑器界面按CTRL+R

这样就打开了工程资源管理器

双击工程资源管理器中的"拦氏ThisWorkbook"

在工程资源管理器右边出现的文本框中粘贴以下代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)

a = MsgBox("请问您真的要退出吗？", vbYesNo, "Microsoft Excel")

'塌侍d出窗口提示是否退出

If a = vbYes Then

ActiveWorkbook.Close

'如果用户选择了"是",则关闭当前工作薄

Else

Cancel = True

'如果用户团衡吵选择了"否",则取消当前 *** 作

'

End If

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If ThisWorkbook.Saved = False Then

        MsgBox "文件还未保存，不能和悄关闭"

      裂睁  Cancel 唤源渣= True

    End If

End Sub

在sub auto_close()好像不可以。

---