Excel VBA：从ThisWorkbook调用模块子过程失效问题咨询

先把你的问题场景梳理清楚，方便定位排查：

你在Workbook_BeforeSave事件中实现了保存时调用ModulCheck.CheckForEmptyCells的逻辑，但这里的调用会失效，且该子过程的For Each循环会中途停止；但从其他位置手动调用这个子过程却完全正常。相关代码如下：

Workbook_BeforeSave事件代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With Sheets("Einstellungen")
        If .Cells(17, "C").Value = "ja" Then
            Call ModulCheck.CheckForEmptyCells '<- 此处调用失效，但其他位置调用正常
        End If
    End With
End Sub

ModulCheck模块的CheckForEmptyCells子过程（片段）：

Sub CheckForEmptyCells()
    'check for empty cells
    Dim LastRow As Integer
    Dim c As Range
    With Sheets("Probeninv...

下面是我总结的几个大概率原因和对应的解决方法：

1. 事件执行时的Excel状态冲突 #

当触发Workbook_BeforeSave时，Excel正处于"准备保存"的临界状态，如果你的CheckForEmptyCells涉及弹窗、修改单元格或者占用资源的操作，很容易被Excel的保存机制中断，导致循环停止或者调用直接失效。

解决办法： #

先禁用事件避免递归，必要时先取消保存，完成检查后再手动触发：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' 禁用事件防止递归触发保存
    Application.EnableEvents = False
    
    With Sheets("Einstellungen")
        If .Cells(17, "C").Value = "ja" Then
            Cancel = True ' 先取消当前保存请求
            ModulCheck.CheckForEmptyCells ' 直接调用，Call可以省略
            
            ' 检查完成后手动执行保存
            If SaveAsUI Then
                Me.SaveAs ' 弹出另存为窗口
            Else
                Me.Save ' 直接保存
            End If
        End If
    End With
    
    ' 恢复事件
    Application.EnableEvents = True
End Sub

2. 子过程中的对象引用不明确 #

手动调用时，你的活动工作表/工作簿可能正好是目标对象，但在事件触发时，Excel的活动对象可能不一样，导致Sheets("Probeninv...")的引用失效，循环自然就停了。

解决办法： #

用工作表的CodeName替代显示名称：
在VBE的属性窗口里找到你的"Probeninv..."工作表，它的(Name)属性就是CodeName（比如Sheet3），然后修改子过程的引用：

Sub CheckForEmptyCells()
    'check for empty cells
    Dim LastRow As Integer
    Dim c As Range
    With Sheet3 ' 这里用CodeName，不管显示名称怎么改都不会出错
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ' 明确引用当前工作表的行
        For Each c In .Range("A1:A" & LastRow)
            ' 你的空单元格检查逻辑
        Next c
    End With
End Sub

这样就能避免因活动对象变化导致的引用错误。

3. 循环中隐藏的错误导致停止 #

手动调用时，如果循环里出现错误（比如单元格值类型不匹配、访问受保护单元格），Excel会弹出错误提示，你处理后可以继续；但在事件上下文里，错误可能被静默压制，直接导致循环停止，看起来就像"调用失效"。

解决办法： #

给子过程加上错误捕获，把错误信息打出来：

Sub CheckForEmptyCells()
    'check for empty cells
    Dim LastRow As Integer
    Dim c As Range
    
    On Error GoTo ErrorCatch ' 开启错误捕获
    
    With Sheets("Probeninv...")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For Each c In .Range("A1:A" & LastRow)
            Debug.Print c.Address & "的值：" & c.Value ' 把每个单元格的信息输出到立即窗口
            ' 你的检查逻辑
        Next c
    End With
    
    Exit Sub ' 正常结束时跳过错误处理
ErrorCatch:
    ' 弹出错误提示，同时输出到立即窗口
    MsgBox "循环出错了：" & Err.Number & " - " & Err.Description
    Debug.Print "错误代码：" & Err.Number & "，描述：" & Err.Description
End Sub

触发保存后，打开VBE的立即窗口（Ctrl+G），就能看到具体是哪个单元格出了问题，针对性修复即可。

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