求助：定位.xlsb工作簿自动创建自定义Ribbon的代码位置

• 逐个检查工作表的代码模块：打开VBA编辑器（按Alt+F11），在工程资源管理器里右键每个工作表对象，选择「查看代码」，检查是否存在包含Sheets.Add或Worksheets.Add的代码——部分场景下，工作表的激活事件（如Worksheet_Activate）可能被绑定了自动建表逻辑。

• 排查Excel加载项：代码可能不在当前工作簿，而是在启用的加载项中。通过「文件>选项>加载项」查看所有启用的加载项（重点看Excel加载项.xlam/.xla格式），打开对应加载项的VBA编辑器，搜索建表相关关键词。

• 用VBA代码遍历所有模块（含隐藏模块）：
  先在「文件>选项>信任中心>信任中心设置>宏设置」里勾选「信任对VBA项目对象模型的访问」，然后在VBA编辑器中插入新模块，粘贴以下代码并运行，它会自动搜索所有模块中的建表语句：

  Sub SearchAllCode()
      Dim vbComp As VBComponent
      Dim codeMod As CodeModule
      Dim lineNum As Long
      Dim searchText As String
      
      searchText = "Sheets.Add" '可替换为"Worksheets.Add"扩大搜索范围
      
      For Each vbComp In ThisWorkbook.VBProject.VBComponents
          Set codeMod = vbComp.CodeModule
          lineNum = codeMod.Find(searchText, 1, 1, -1, -1)
          If lineNum > 0 Then
              MsgBox "找到代码在模块: " & vbComp.Name & "，行号: " & lineNum
          End If
      Next vbComp
  End Sub
  

• 检查独立自动运行宏：打开「开发工具>宏」，查看是否存在Auto_Open这类名称的宏——这类宏无需绑定到ThisWorkbook，工作簿打开时会自动执行，双击宏即可查看代码。

• 查看隐藏模块：在VBA编辑器中右键工程资源管理器里的任意模块，选择「属性」，检查是否勾选了「隐藏」；也可通过上面的遍历代码直接定位隐藏模块中的目标代码。

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