如何用vba代码终止excel的关闭？

Question

我在要在excel关闭前运行一个小程序：检测C2单元格是否填写，若未填写则出现提示，并终止excel的关闭。代码如下：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("C" & 2) = "" Then
MsgBox "请输入单位或项目名称！", 48
Range("C" & 2).Select
(在这里如何编写代码终止EXCEL的关闭？)
Exit Sub
End If
End Sub
求大神指教！

Answer 1

代码中，只是关闭了一个Excel文件。
事实上，应该关闭整个Excel软件。
VBA代码可以修改为：

Sub 完成工作()
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
'或者Application.Quit
End Sub
即可。

Answer 2

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
If Range("C" & 2) = "" Then
MsgBox "请输入单位或项目名称！", 48
Range("C" & 2).Select
Exit Sub
End If
End Sub

有一个问题就是，要求必须启用宏，有点难。

Answer 3

Cancel=true本回答被提问者采纳

Answer 4

抱歉，看错了