Excel VBA：关闭并重新打开用户窗体后保持Toggle Button处于开启状态

当然可以实现这个需求，核心思路是把ToggleButton的状态持久化存储，下次打开窗体时再读取并恢复。下面是两种常用的实现方案：

方案1：用工作表单元格存储状态 #

适合状态和当前工作簿绑定的场景，数据随工作簿保存：

1. 在工作簿中新增一个工作表（比如命名为Settings），可以右键工作表标签选择「隐藏」避免误操作
2. 打开用户窗体的代码模块，添加以下代码：
   • ToggleButton点击时保存状态：

     Private Sub ToggleButton1_Click()
         ' 将状态写入Settings工作表的A1单元格
         ThisWorkbook.Sheets("Settings").Range("A1").Value = Me.ToggleButton1.Value
     End Sub
     

   • 窗体初始化时读取状态：

     Private Sub UserForm_Initialize()
         ' 读取存储的状态，若单元格为空则默认关闭状态
         If Not IsEmpty(ThisWorkbook.Sheets("Settings").Range("A1").Value) Then
             Me.ToggleButton1.Value = ThisWorkbook.Sheets("Settings").Range("A1").Value
         End If
     End Sub
     

方案2：用Windows注册表存储状态 #

适合需要跨工作簿会话保存的场景，状态会保留在系统注册表中：
在用户窗体的代码模块添加以下代码：

• ToggleButton点击时保存状态：

  Private Sub ToggleButton1_Click()
      ' 自定义AppName、Section、Key名称，确保唯一即可
      SaveSetting AppName:="MyExcelTool", Section:="FormConfigs", Key:="ToggleState", Setting:=Me.ToggleButton1.Value
  End Sub
  

• 窗体初始化时读取状态：

  Private Sub UserForm_Initialize()
      ' 读取注册表中的状态，默认值设为False（关闭状态）
      Me.ToggleButton1.Value = GetSetting(AppName:="MyExcelTool", Section:="FormConfigs", Key:="ToggleState", Default:=False)
  End Sub
  

两种方案都能稳定实现需求，你可以根据实际使用场景选择：如果状态只需要和当前工作簿关联，选方案1；如果希望用户下次打开工作簿时仍保留之前的选择，选方案2。

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