求助：将指定VBA代码批量应用到Excel工作簿所有工作表或通过ThisWorkbook实现

我懂你现在的困扰——每次更新Contents工作表里的VBA代码后，还要手动复制粘贴到其他所有工作表，太麻烦了；之前想通过ThisWorkbook实现全局生效却没成功。下面给你两种靠谱的解决办法，按需选就行：

方案一：自动复制代码到所有其他工作表 #

如果就是想把Contents里的代码同步到其他工作表，不用手动复制，可以写个小宏一键完成：

1. 打开VBA编辑器（按Alt+F11）
2. 右键点击左侧的VBAProject，选择「插入」→「模块」
3. 把下面的代码粘贴到模块里，按F5运行即可：

Sub CopyCodeToAllSheets()
    Dim sourceModule As Object
    Dim targetModule As Object
    Dim ws As Worksheet
    
    ' 获取Contents工作表的代码模块
    Set sourceModule = ThisWorkbook.VBProject.VBComponents("Contents").CodeModule
    
    ' 遍历所有工作表，跳过Contents
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Contents" Then
            Set targetModule = ThisWorkbook.VBProject.VBComponents(ws.Name).CodeModule
            
            ' 清空目标工作表的原有代码（可选，根据需求调整）
            targetModule.DeleteLines 1, targetModule.CountOfLines
            
            ' 复制Contents的代码到目标工作表
            targetModule.AddFromString sourceModule.Lines(1, sourceModule.CountOfLines)
        End If
    Next ws
    
    MsgBox "代码已同步到所有工作表！", vbInformation
End Sub

注意：运行前确保你已经启用了对VBA项目对象模型的访问（文件→选项→信任中心→信任中心设置→宏设置→勾选「信任对VBA项目对象模型的访问」），否则会报错。

方案二：通过公共模块实现全局逻辑（解决你之前ThisWorkbook失败的问题） #

其实更高效的方式是把核心逻辑抽离到公共模块里，让所有工作表的事件调用这个公共逻辑——这样以后只要更新公共模块的代码，所有工作表都会自动生效，完全不用复制代码。步骤如下：

第一步：创建公共模块 #

1. 同样打开VBA编辑器，插入一个新模块（命名为ModuleCommon方便识别）
2. 把下面的代码粘贴进去（补充了你没写完的ComboBox1_Change逻辑，你可以根据实际数据调整）：

' 处理按钮点击，激活选中的工作表
Public Sub ActivateSelectedSheet(cbo1 As ComboBox, cbo2 As ComboBox, cbo3 As ComboBox)
    If cbo3.Value <> "" Then
        Worksheets(cbo3.Value).Activate
    ElseIf cbo2.Value <> "" Then
        Worksheets(cbo2.Value).Activate
    Else
        Worksheets(cbo1.Value).Activate
    End If
End Sub

' 当ComboBox2变化时，更新ComboBox3的选项
Public Sub RefreshComboBox3(cbo2 As ComboBox, cbo3 As ComboBox)
    Dim rngMenu2 As Range
    Dim rngList As Range
    Dim strSelected As String
    Dim LastRow As Long
    
    If cbo2.ListIndex <> -1 Then
        cbo3.Clear
        strSelected = cbo2.Value
        LastRow = Worksheets("Contents").Range("F" & Rows.Count).End(xlUp).Row
        Set rngList = Worksheets("Contents").Range("F1:F" & LastRow)
        
        For Each rngMenu2 In rngList
            If rngMenu2.Value = strSelected Then
                cbo3.AddItem rngMenu2.Offset(, 1)
            End If
        Next rngMenu2
    End If
End Sub

' 当ComboBox1变化时，清空并更新ComboBox2和ComboBox3的选项
Public Sub RefreshComboBox2And3(cbo1 As ComboBox, cbo2 As ComboBox, cbo3 As ComboBox)
    Dim rngMenu1 As Range
    Dim rngList As Range
    Dim strSelected As String
    Dim LastRow As Long
    
    If cbo1.ListIndex <> -1 Then
        cbo2.Clear
        cbo3.Clear
        strSelected = cbo1.Value
        LastRow = Worksheets("Contents").Range("D" & Rows.Count).End(xlUp).Row
        Set rngList = Worksheets("Contents").Range("D1:D" & LastRow)
        
        ' 根据ComboBox1的选中值，给ComboBox2添加对应选项（你原来的代码没写完，这里是示例逻辑）
        For Each rngMenu1 In rngList
            If rngMenu1.Value = strSelected Then
                cbo2.AddItem rngMenu1.Offset(, 1)
            End If
        Next rngMenu1
    End If
End Sub

第二步：修改每个工作表的事件代码 #

在每个需要应用逻辑的工作表（包括Contents）的代码模块里，只需要保留简短的事件调用代码：

Private Sub CommandButton1_Click()
    ' 调用公共模块的逻辑
    ActivateSelectedSheet Me.ComboBox1, Me.ComboBox2, Me.ComboBox3
End Sub

Private Sub ComboBox2_Change()
    RefreshComboBox3 Me.ComboBox2, Me.ComboBox3
End Sub

Private Sub ComboBox1_Change()
    RefreshComboBox2And3 Me.ComboBox1, Me.ComboBox2, Me.ComboBox3
End Sub

这样一来，所有工作表的事件都会指向同一个公共逻辑，以后要修改功能，只需要更新ModuleCommon里的代码就行，再也不用复制粘贴到每个工作表了。

为什么之前用ThisWorkbook没成功？因为ThisWorkbook的事件是针对工作簿级别的（比如打开、关闭工作簿），没办法直接捕获单个工作表上的控件点击或下拉框变化事件，上面的公共模块方案才是更适合你需求的全局逻辑实现方式。

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