VBA如何从Form2中将Form1的Private Sub Procedure1改为Public声明

VBA本身没有直接修改模块过程声明的内置语法，你需要通过VBA扩展对象模型来操作源代码模块实现需求，具体操作如下：

前置配置 #

• 开启VBA项目访问权限：打开Access选项→信任中心→信任中心设置→宏设置→勾选「信任对VBA工程对象模型的访问」，确认后生效。
• （可选）引用扩展库：在VBA编辑器顶部菜单点击「工具→引用」，勾选「Microsoft Visual Basic for Applications Extensibility 5.3」即可提前绑定类型，如果你不想提前引用，可以使用下方的晚绑定版本代码，无需提前配置引用。

功能实现代码 #

你可以直接把Form2中Procedure2_Click的代码替换为以下内容：

Private Sub Procedure2_Click()
    ' 提前绑定版本需要先引用扩展库，类型声明更友好
    Dim vbProj As VBProject
    Dim vbComp As VBComponent
    Dim codeMod As CodeModule
    Dim lineNum As Long
    Const TARGET_PROC As String = "Procedure1"
    Const TARGET_FORM As String = "Form_Form1"
    
    Set vbProj = CurrentProject.VBProject
    ' 定位Form1的代码模块
    For Each vbComp In vbProj.VBComponents
        If vbComp.Name = TARGET_FORM Then
            Set codeMod = vbComp.CodeModule
            Exit For
        End If
    Next
    
    If codeMod Is Nothing Then
        MsgBox "未找到目标窗体的代码模块", vbExclamation
        Exit Sub
    End If
    
    ' 获取目标过程的起始行号
    On Error Resume Next
    lineNum = codeMod.ProcStartLine(TARGET_PROC, vbext_pk_Proc)
    If Err.Number <> 0 Then
        MsgBox "未找到目标过程" & TARGET_PROC, vbExclamation
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 替换声明中的Private为Public
    Dim declareLine As String
    declareLine = codeMod.Lines(lineNum, 1)
    If InStr(1, declareLine, "Private Sub " & TARGET_PROC, vbTextCompare) > 0 Then
        declareLine = Replace(declareLine, "Private", "Public", Count:=1, Compare:=vbTextCompare)
        codeMod.ReplaceLine lineNum, declareLine
        MsgBox "过程声明修改成功", vbInformation
    ElseIf InStr(1, declareLine, "Public Sub " & TARGET_PROC, vbTextCompare) > 0 Then
        MsgBox "该过程已经是公有声明", vbInformation
    Else
        MsgBox "未匹配到有效的过程声明", vbExclamation
    End If
End Sub

如果要使用无需提前引用的晚绑定版本，把开头的变量声明替换为以下内容，同时把vbext_pk_Proc替换为0即可：

' 晚绑定版本无需提前引用扩展库
Dim vbProj As Object
Dim vbComp As Object
Dim codeMod As Object
Dim lineNum As Long
Const TARGET_PROC As String = "Procedure1"
Const TARGET_FORM As String = "Form_Form1"

' 对应修改行号获取的代码
lineNum = codeMod.ProcStartLine(TARGET_PROC, 0)

注意事项 #

• 操作前请务必备份数据库文件，修改源代码属于高危操作，误操作可能导致原有代码丢失。
• 执行修改前建议关闭Form1窗体，或确保Form1处于设计视图状态，否则可能修改失败。
• 该代码仅针对Access VBA环境编写，如果你使用的是其他Office组件的VBA，只需调整定位窗体模块的逻辑即可适配。

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