无需信任中心权限，通过代码修改Excel UserForm控件标题的方法

不需要开启“信任对VBA项目对象模型的访问”，可以通过以下几种直接操作窗体实例的方法实现控件标题修改：

1. 在UserForm自身代码模块内修改 #

这是最直接的方式，在窗体的事件或自定义方法中直接操作控件：

' 放置在UserForm1的代码模块中
Private Sub UserForm_Initialize()
    ' 窗体初始化时设置按钮标题
    Me.CommandButton1.Caption = "New Caption"
End Sub

' 也可以写一个公共方法供外部调用
Public Sub UpdateButtonCaption(newCaption As String)
    Me.CommandButton1.Caption = newCaption
End Sub

外部调用示例（标准模块中）：

Sub ChangeButtonText()
    Dim uf As UserForm1
    Set uf = New UserForm1
    ' 调用窗体的公共方法修改标题
    uf.UpdateButtonCaption "Updated Caption"
    uf.Show ' 按需显示窗体
    Set uf = Nothing
End Sub

2. 利用Tag属性传递参数 #

通过窗体的Tag属性传递标题内容，在初始化事件中读取并设置：

' 标准模块中
Sub SetButtonCaptionViaTag()
    Dim uf As UserForm1
    Set uf = New UserForm1
    ' 将目标标题存入Tag属性
    uf.Tag = "New Caption"
    uf.Show
    Set uf = Nothing
End Sub

' UserForm1的代码模块
Private Sub UserForm_Initialize()
    If Me.Tag <> "" Then
        Me.CommandButton1.Caption = Me.Tag
    End If
End Sub

3. 自定义窗体属性 #

在UserForm模块中定义自定义属性，通过设置属性来修改控件标题：

' UserForm1的代码模块
Private m_btnCaption As String

Public Property Let ButtonCaption(newText As String)
    m_btnCaption = newText
    Me.CommandButton1.Caption = newText
End Property

' 标准模块中调用
Sub UseCustomProperty()
    Dim uf As UserForm1
    Set uf = New UserForm1
    ' 通过自定义属性设置标题
    uf.ButtonCaption = "Custom Caption"
    uf.Show
    Set uf = Nothing
End Sub

以上方法均无需访问VBA项目对象模型，仅通过操作运行时的窗体实例控件即可实现标题修改，完全符合安全要求。

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