Question

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

请问您真的要退出吗？是的，否。是的话退出excel工作簿，否的话返回活动页面。请问我想用VBA中的Auto_close()函数，和Msgbox能写一个程序出来吗？我写了一个，系统说我发现二义性的名称auto_close.请问该如何写这个程序呢？谢谢啦。
Sub Auto_close()
a = MsgBox("ÄúÊÇ·ñÒªÍ˳öϵͳ£¿", vbYesNo, "Microsoft Excel")
If a = vbYes Then
ActiveWorkbook.Close
End If
End Sub

Answer 1

在EXCEL界面按ALT+F11

这样就打开了Visual Basic编辑器

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

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

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

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
a = MsgBox("请问您真的要退出吗？", vbYesNo, "Microsoft Excel")
'弹出窗口提示是否退出
If a = vbYes Then
ActiveWorkbook.Close
'如果用户选择了"是",则关闭当前工作薄
Else
Cancel = True
'如果用户选择了"否",则取消当前操作
'

End If
End Sub

Answer 2

Private Sub Auto_close()
Application.DisplayAlerts = False
If MsgBox("请问您真的要退出吗？", vbYesNo, "Microsoft Excel") = vbYes Then
ActiveWorkbook.Close
End If
End Sub
这样就对了
你的msgbox重复了

Answer 3

1.我用excel2003运行没错
2.把auto_close改个名字试试