如何阻止Workbook A中的宏意外调用Workbook B中的公共函数

这种情况我之前帮同事踩过类似的坑，虽然你说两个工作簿既没有同名项也没预设交互，但大概率是VBA的作用域解析或者隐式事件触发在搞鬼，给你几个实用的排查和解决方向：

• 给所有自定义函数/对象加上明确的作用域限定
  单独开Workbook A时，VBA只会在当前工作簿的命名空间里找东西，但同时打开B后，全局命名空间会包含所有已打开工作簿的公共标准模块内容。哪怕函数名不一样，如果你在A的宏里直接写了未限定的函数调用（比如GetResult()），万一循环过程中上下文不小心切换到了B（比如误激活了B的工作表），VBA可能会出现意外的解析偏差。保险起见，把所有自定义函数调用都加上工作簿和模块的限定：

  ' 原来的写法
  total = CalculateTotal()
  ' 修改后的限定写法
  total = ThisWorkbook.MyModule.CalculateTotal()
  

  同样，所有单元格、工作表这类对象引用也要限定到当前工作簿，比如用ThisWorkbook.Sheets("数据源").Range("A1")代替Range("A1")，避免上下文跳到其他工作簿。

• 检查Workbook B的公共函数是否被事件触发
  你说每次循环迭代都会调用B的函数，很大概率是A的宏在循环里做了某些操作（比如切换工作表、修改单元格值），触发了B里的工作表/工作簿事件（比如Worksheet_Change、Worksheet_Activate），而这些事件刚好调用了那个公共函数。你可以打开B的VBA编辑器，检查这几个地方：

  • 各个工作表模块里的事件代码
  • 工作簿模块里的Workbook_SheetChange这类全局事件
    找到对应的代码后，可以先临时注释掉再测试，看看是不是就不会触发调用了。

• 排查宏里的隐式跨工作簿调用
  有时候代码里的Application.Run、ExecuteExcel4Macro这类动态调用方法，可能会不小心“捞”到其他工作簿的函数，哪怕你没明确指定。比如如果你的宏里有Application.Run("ComputeValue")，万一B里刚好也有同名函数？哦不对你说没有同名项，但还是检查一下这类代码，确保限定了工作簿：

  ' 容易出问题的写法
  Application.Run("ComputeValue")
  ' 安全的写法，明确指定当前工作簿
  Application.Run("'" & ThisWorkbook.Name & "'!ComputeValue")
  

• 用隔离测试缩小问题范围
  可以做两个简单测试定位根源：

  1. 打开A和B时按住Shift键（禁用B的宏），再运行A的宏，如果不再调用B的函数，说明问题出在B的宏代码触发上。
  2. 把A的宏代码复制到一个空白工作簿，和B同时打开运行，如果问题消失，说明是A的工作簿本身有特殊设置导致的。

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