如何在VBA表单重载时保留文本框中的数值

嘿，这个场景我太熟悉了！表单重载时数值消失，本质是因为用户输入的内容只存在于表单的临时内存中，一旦表单关闭或重载，这些数据就被清空了。咱们只需要把数值存到一个持久化的地方，再在表单加载时读回来就行，给你两种简单好用的方案：

方案一：用工作表单元格存储（最直观） #

这个方法把文本框的值存在工作表的某个单元格里，表单重启时自动读取。步骤如下：

1. 修改你的按钮点击事件代码，添加保存逻辑：

Private Sub btnLock_Click()
    ' 把文本框的值保存到Sheet1的A1、A2单元格（可自行修改位置）
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = txtApple.Text
    ThisWorkbook.Sheets("Sheet1").Range("A2").Value = txtBanana.Text
    
    ' 原有的禁用逻辑保留
    txtApple.Enabled = False
    txtBanana.Enabled = False
End Sub

2. 给表单添加初始化事件，在加载时读取保存的值：

Private Sub UserForm_Initialize()
    ' 读取之前保存的数值，赋值给文本框
    If Not IsEmpty(ThisWorkbook.Sheets("Sheet1").Range("A1").Value) Then
        txtApple.Text = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    End If
    If Not IsEmpty(ThisWorkbook.Sheets("Sheet1").Range("A2").Value) Then
        txtBanana.Text = ThisWorkbook.Sheets("Sheet1").Range("A2").Value
    End If
    
    ' 可选：如果之前已经锁定过，表单加载时直接禁用文本框
    If ThisWorkbook.Sheets("Sheet1").Range("A1").Value <> "" Then
        txtApple.Enabled = False
        txtBanana.Enabled = False
    End If
End Sub

小提示：如果不想让用户看到这些存储用的单元格，可以右键单元格选择「设置单元格格式」→「保护」勾选「隐藏」，再给工作表设置保护，防止误改。

方案二：用命名范围存储（更易维护） #

和方案一原理一样，但用命名范围代替单元格地址，后期维护时不用找具体单元格位置，更清晰：

1. 先在Excel中创建两个命名范围：

   • 打开「公式」选项卡→「定义名称」，创建SavedAppleValue，指向Sheet1的A1；
   • 再创建SavedBananaValue，指向Sheet1的A2。

2. 修改按钮和初始化代码：

Private Sub btnLock_Click()
    ' 用命名范围保存值
    ThisWorkbook.Names("SavedAppleValue").RefersToRange.Value = txtApple.Text
    ThisWorkbook.Names("SavedBananaValue").RefersToRange.Value = txtBanana.Text
    
    txtApple.Enabled = False
    txtBanana.Enabled = False
End Sub

Private Sub UserForm_Initialize()
    Dim appleRange As Range, bananaRange As Range
    On Error Resume Next ' 兼容命名范围未创建的情况
    Set appleRange = ThisWorkbook.Names("SavedAppleValue").RefersToRange
    Set bananaRange = ThisWorkbook.Names("SavedBananaValue").RefersToRange
    On Error GoTo 0
    
    ' 读取并赋值，同时判断是否需要禁用
    If Not appleRange Is Nothing And Not IsEmpty(appleRange.Value) Then
        txtApple.Text = appleRange.Value
        txtApple.Enabled = False
    End If
    If Not bananaRange Is Nothing And Not IsEmpty(bananaRange.Value) Then
        txtBanana.Text = bananaRange.Value
        txtBanana.Enabled = False
    End If
End Sub

这两种方案都能实现「表单重载时保留数值+保持禁用状态」的需求，而且关闭Excel再打开也不会丢失数据，完全符合你的要求～

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