Excel VBA BeforeClose事件多条件校验阻止工作簿关闭方法

原代码问题 #

你写的代码无法生效核心是3个问题：

• 判断逻辑自相矛盾：同时判定B34>""和B34=""，两个条件不可能同时满足，判断块永远不会执行
• 完全没有编写J34单元格的校验逻辑，和需求不匹配
• 没有做边界场景兼容，遇到单元格为空、值类型不匹配时容易抛出运行时错误

实现逻辑拆解 #

按照需求，校验规则可以直接梳理为两个分支：

• 当Sheet1中B34值大于0时，必须保证J34填写了非0的有效值，否则阻止关闭、弹出提示
• 当B34为空/B34值不大于0时，无论J34是否填写，都允许正常关闭工作簿

可用代码 #

注意：以下代码必须放在VBA工程的ThisWorkbook模块内，放在普通Sheet模块或标准模块不会触发关闭事件

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim targetWs As Worksheet
    ' 容错绑定目标工作表，避免Sheet1被误删时报错
    On Error Resume Next
    Set targetWs = ThisWorkbook.Worksheets("Sheet1")
    On Error GoTo 0
    If targetWs Is Nothing Then Exit Sub
    
    With targetWs
        ' 用Val函数兼容空值、文本型数字场景，避免类型不匹配报错
        If VBA.Val(.Range("B34").Value) > 0 And VBA.Val(.Range("J34").Value) = 0 Then
            Cancel = True ' 拦截关闭操作
            MsgBox "请先在J34单元格填写对应总百分比后再关闭工作簿", vbExclamation, "必填信息缺失"
            .Range("J34").Select ' 自动定位到待填单元格，简化操作
        End If
    End With
End Sub

补充说明 #

• 代码用VBA.Val()函数读取单元格值，会自动把空单元格识别为0，同时兼容文本格式存储的数字，不会弹出类型不匹配的报错
• 触发拦截时会自动选中J34单元格，不需要用户手动查找待填位置
• 如果需要强制用户保存后再关闭，可以在拦截逻辑里根据需要增加保存相关的判断

内容的提问来源于stack exchange，提问作者MisterBeans