Excel VBA 如何实现Userform中Label Caption修改的永久保存？

问题根源 #

当前你对Label Caption的修改仅作用于运行时的Userform临时实例，窗体关闭后实例会被销毁，属性变更不会自动持久化存储到Excel文件中，因此下次打开窗体会自动恢复为设计阶段的默认值。

推荐实现方案（存储到隐藏工作表，易维护） #

步骤1：准备持久化存储位置 #

1. 插入一个新工作表，命名为配置存储
2. 在VBA编辑器的工程资源管理器中选中该工作表，将其Visible属性设置为xlSheetVeryHidden，普通用户无法在Excel界面看到该表
3. 在表中预留存储位置，初始值填写你设计时的默认标签内容：
   • A1：存储NameLabelProg的Caption
   • B1：存储MailLabelProg的Caption
   • A2：存储NameLabelTest的Caption
   • B2：存储MailLabelTest的Caption

步骤2：修改提交按钮代码，同步写入存储 #

修改你的cmdSubmit_Click代码，修改Caption后同步将值写入隐藏表（注：原有代码中optTester分支的赋值逻辑疑似写反，已调整，你可以根据实际业务核对）：

Private Sub cmdSubmit_Click()
    Dim storeSht As Worksheet
    Set storeSht = ThisWorkbook.Worksheets("配置存储")

    '重置参与人邮箱和姓名
    If Me.optProg.Value = True Then
        Me.NameLabelProg.Caption = Me.CB_Part.Value
        Me.MailLabelProg.Caption = Me.TB_Mail.Value
        ' 同步写入存储
        storeSht.Range("A1").Value = Me.NameLabelProg.Caption
        storeSht.Range("B1").Value = Me.MailLabelProg.Caption
    ElseIf Me.optTester.Value = True Then
        Me.NameLabelTest.Caption = Me.CB_Part.Value
        Me.MailLabelTest.Caption = Me.TB_Mail.Value
        ' 同步写入存储
        storeSht.Range("A2").Value = Me.NameLabelTest.Caption
        storeSht.Range("B2").Value = Me.MailLabelTest.Caption
    End If
End Sub

步骤3：添加窗体初始化事件，启动时读取存储值 #

在Userform的代码模块中添加Initialize事件，每次打开窗体时自动加载上次存储的值：

Private Sub UserForm_Initialize()
    Dim storeSht As Worksheet
    Set storeSht = ThisWorkbook.Worksheets("配置存储")
    
    ' 读取存储的标签值
    Me.NameLabelProg.Caption = storeSht.Range("A1").Value
    Me.MailLabelProg.Caption = storeSht.Range("B1").Value
    Me.NameLabelTest.Caption = storeSht.Range("A2").Value
    Me.MailLabelTest.Caption = storeSht.Range("B2").Value
End Sub

备选轻量方案（存储到自定义文档属性，无需新增工作表） #

如果需要存储的配置项很少，也可以用Excel内置的自定义文档属性存储，操作逻辑和上述方案一致，只是读写对象换成ThisWorkbook.CustomDocumentProperties，无需新增工作表。

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