帮忙修改下VBA

AA5242

1、每次要点击最后的红框工作薄才能全部退出Excel
2、VBA程序后面二者工作薄都有的。
3、怎样修改VBA能在绿框里，直接关闭Excel就完全退出Excel呢


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False '禁止弹出警告和提示
ThisWorkbook.Save '保存【当前工作薄】
If ThisWorkbook.Worksheets("00").Range("A3") <> 0 Then
fname = Split(ThisWorkbook.Name, ".")(0) '当前工作薄名（不含后缀名）
ThisWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\" & fname, FileFormat:=xlOpenXMLWorkbook
'另存在桌面且默认格式xlsx
End If
Application.Quit '彻底退出Excel
End Sub

microyip

表示对自言自语的内容不知所谓，又没附件

lsc900707

上传附件，说明问题！

AA5242

lsc900707 发表于 2019-8-24 10:22
上传附件，说明问题！

老师，，已经上传了