Excel VBA如何实现单元格为空时禁止保存但允许保存空白模板

现有Excel模板通过VBA的BeforeSave事件实现必填项为空时禁止保存，但存在两个核心使用问题：

• 管理员无法保存空白的模板源文件
• 收件用户无法将空白模板保存到本地
  原有代码还存在三类逻辑bug：

1. 多单元格区域直接取.Value判断的写法无效，Range("D34,E34,F34").Value仅会返回区域左上角D34单元格的值，无法同时校验三个单元格是否填写
2. 单元格位置提示错误：校验J33单元格时，提示文本错写为J38
3. 没有区分保存场景，对所有保存操作无差别拦截，导致空白模板无法正常存储

利用BeforeSave事件自带的SaveAsUI参数做场景区分：

• 当参数值为True时，代表用户触发了「另存为」操作，此时跳过必填校验，既支持管理员保存空白源模板，也支持用户将收到的空白模板另存到本地
• 当参数值为False时，代表用户点击了普通「保存」按钮，此时执行必填项校验，漏填则拦截保存
  同时修复原有代码的多单元格判断bug、提示文本bug，额外增加校验不通过时自动定位到对应单元格的逻辑，降低用户填报成本。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 另存为场景跳过校验，允许保存空白模板
    If SaveAsUI Then Exit Sub
    
    ' 校验尺寸信息：D34/E34/F34需全部填写
    If WorksheetFunction.CountA(ws.Range("D34, E34, F34")) < 3 Then
        Cancel = True
        MsgBox "Please fill in the dimensions in cells D34, E34 and F34", vbExclamation
        ws.Range("D34").Select
        Exit Sub
    End If
    
    ' 校验商品重量G34
    If ws.Range("G34").Value = "" Then
        Cancel = True
        MsgBox "Please fill in the commodity weight in cell G34", vbExclamation
        ws.Range("G34").Select
        Exit Sub
    End If
    
    ' 校验商品占比J33（修复原提示错写为J38的问题）
    If ws.Range("J33").Value = "" Then
        Cancel = True
        MsgBox "Please fill in the commodity percentage in cell J33", vbExclamation
        ws.Range("J33").Select
        Exit Sub
    End If
    
    ' 校验月度账单承诺值C22
    If ws.Range("C22").Value = "" Then
        Cancel = True
        MsgBox "Please fill in the monthly bill commitment in cell C22", vbExclamation
        ws.Range("C22").Select
        Exit Sub
    End If
End Sub

• 上述代码必须放置在VBA编辑器的ThisWorkbook模块内，才能正常响应工作簿保存事件
• 管理员更新空白源模板后，通过「另存为」即可正常保存空白版本，不会触发校验拦截
• 用户收到模板后，首次保存空白文件到本地时选择「另存为」指定桌面路径即可，后续填报过程中点击普通保存时，若存在必填项漏填会被直接拦截提示

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