批量修改多工作簿VBA代码：替换ActiveX控件实现求助

以下是可直接运行的主控VBA宏，完成你需要的所有批量处理步骤：

' 声明解锁VBA项目所需的API
#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub BatchUpdateWorkbooks()
    Dim targetFolder As String
    Dim dongleBasPath As String
    Dim vbaProtectPassword As String
    Dim existingVbaPassword As String ' 已有VBA项目保护的密码
    Dim fileName As String
    Dim wb As Workbook
    Dim vbProj As VBProject
    Dim vbComp As VBComponent
    Dim codeMod As CodeModule
    Dim i As Long
    Dim lineText As String
    
    ' 配置参数 - 请根据实际情况修改
    targetFolder = "C:\YourTargetFolder\" ' 存放旧电子表格的文件夹
    dongleBasPath = "C:\PathToYourDongle\Dongle.bas" ' Dongle.bas的完整路径
    vbaProtectPassword = "YourNewVBAPassword" ' 新的VBA保护密码
    existingVbaPassword = "ExistingVBAPassword" ' 已有VBA项目的密码（无则留空）
    
    ' 检查Dongle.bas文件是否存在
    If Dir(dongleBasPath) = "" Then
        MsgBox "Dongle.bas文件不存在，请检查路径！", vbCritical
        Exit Sub
    End If
    
    ' 遍历目标文件夹中的Excel文件
    fileName = Dir(targetFolder & "*.xls*")
    Do While fileName <> ""
        On Error Resume Next
        ' 打开工作簿（处理打开密码，若打开密码与VBA密码不同可单独修改）
        Set wb = Workbooks.Open(Filename:=targetFolder & fileName, Password:=existingVbaPassword, ReadOnly:=False)
        If Err.Number <> 0 Then
            MsgBox "打开文件 " & fileName & " 失败：" & Err.Description, vbExclamation
            fileName = Dir
            Err.Clear
            On Error GoTo 0
            Continue Do
        End If
        On Error GoTo 0
        
        Set vbProj = wb.VBProject
        
        ' 解锁VBA项目（如果已有保护）
        If vbProj.Protection = vbext_pp_locked Then
            UnlockVBProject vbProj, existingVbaPassword
        End If
        
        ' 删除UserForm1（如果存在）
        On Error Resume Next
        Set vbComp = vbProj.VBComponents("UserForm1")
        If Err.Number = 0 Then
            vbProj.VBComponents.Remove vbComp
        End If
        Err.Clear
        On Error GoTo 0
        
        ' 导入Dongle.bas文件
        On Error Resume Next
        vbProj.VBComponents.Import dongleBasPath
        If Err.Number <> 0 Then
            MsgBox "导入Dongle.bas到 " & fileName & " 失败：" & Err.Description, vbExclamation
        End If
        Err.Clear
        On Error GoTo 0
        
        ' 替换ThisWorkbook中的代码行
        Set codeMod = vbProj.VBComponents("ThisWorkbook").CodeModule
        For i = 1 To codeMod.CountOfLines
            lineText = codeMod.Lines(i, 1)
            ' 匹配目标代码行并替换
            If InStr(1, lineText, "UserForm1mpg1prefectdongle1.CheckSTCLDongle(9, True)", vbTextCompare) > 0 Then
                codeMod.ReplaceLine i, "Dongle.CheckDongle()"
                Exit For ' 找到后退出循环，避免重复替换
            End If
        Next i
        
        ' 设置VBA项目保护密码
        vbProj.Protect Password:=vbaProtectPassword, Locked:=True
        
        ' 保存并关闭工作簿
        wb.Save
        wb.Close SaveChanges:=False
        
        ' 处理下一个文件
        fileName = Dir
    Loop
    
    MsgBox "批量处理完成！", vbInformation
End Sub

' 解锁受保护的VBA项目
Sub UnlockVBProject(vbProj As VBProject, password As String)
    Dim objCodeWindow As Object
    
    ' 打开VBA编辑器
    Application.VBE.MainWindow.Visible = True
    Set objCodeWindow = vbProj.VBE.Windows(1)
    objCodeWindow.SetFocus
    
    ' 模拟输入密码解锁
    SendKeys "%{F11}", True
    Sleep 200
    SendKeys password & "{ENTER}", True
    Sleep 500
    
    ' 隐藏VBE窗口
    Application.VBE.MainWindow.Visible = False
End Sub

关键部分说明 #

• VBA项目解锁：针对已有保护的文件，通过模拟按键操作解锁，运行过程中不要手动干扰VBE窗口。
• UserForm删除：先判断窗体是否存在，避免因窗体不存在触发报错。
• Bas文件导入：必须使用绝对路径，之前导入失败大概率是路径错误或未开启VBA项目对象模型访问权限。
• 代码替换：遍历ThisWorkbook代码行，精确匹配目标字符串后替换，若需替换多行可移除Exit For。

注意事项 #

1. 开启VBA项目对象模型访问：Excel选项→信任中心→信任中心设置→宏设置，勾选「信任对VBA项目对象模型的访问」，否则代码会触发权限报错。
2. 先测试单个文件：先拿一个测试文件验证所有步骤正常后，再执行批量处理。
3. 备份原文件：批量处理前务必备份所有旧电子表格，防止数据丢失。
4. 区分密码类型：如果文件打开密码与VBA保护密码不同，需单独修改Workbooks.Open中的Password参数。

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