添加表单控件后Excel全局变量莫名重置问题求助

这问题我之前踩过类似的坑，大概率是Excel VBA的隐性代码上下文重置在搞鬼！

核心原因：控件修改触发VBA项目重置 #

Excel在对用户表单进行控件修改（添加、删除、调整任何控件，哪怕是你说的框架里的选项按钮）时，会触发一个容易被忽略的操作——VBA项目的隐性重置：

• 全局变量（比如你在标准模块里声明的Public变量）的生命周期是从工作簿打开，到VBA项目被重置或工作簿关闭。一旦VBA项目被重置，所有全局变量都会被清空，回到初始值（比如空字符串、0）。
• 原文件之所以没问题，是因为它经过多次编辑编译，Excel对其VBA项目的缓存状态稳定；而副本是新生成的，添加控件时，Excel需要重新生成表单的控件绑定信息，这个过程会强制重置VBA项目，导致Workbook_Open里设置的全局变量直接丢失。
• 哪怕你没选择新添加的控件也会出问题，因为只要修改了表单控件结构，不管有没有使用该控件，Excel都会触发表单代码模块的重新关联，进而触发VBA项目重置。

解决办法：替换全局变量的存储方式 #

要彻底解决这个问题，最好用持久化存储替代全局变量，避免VBA项目重置导致数据丢失：

• 用隐藏工作表存储值：创建一个隐藏工作表，把需要全局使用的值存在该表的单元格中。比如：

  ' Workbook_Open里赋值
  Private Sub Workbook_Open()
      Sheets("HiddenSettings").Range("A1").Value = "你原来的全局变量值"
  End Sub
  
  ' 提交表单时读取
  Private Sub btnSubmit_Click()
      Dim storedValue As String
      storedValue = Sheets("HiddenSettings").Range("A1").Value
      ' 后续对比逻辑
  End Sub
  

• 用工作簿自定义属性存储：如果不想用工作表，也可以把值存在Workbook的自定义属性里：

  ' Workbook_Open里赋值
  Private Sub Workbook_Open()
      ' 先判断属性是否已存在，避免重复添加报错
      On Error Resume Next
      ThisWorkbook.CustomDocumentProperties("GlobalValue")
      If Err.Number <> 0 Then
          ThisWorkbook.CustomDocumentProperties.Add _
              Name:="GlobalValue", LinkToContent:=False, _
              Type:=msoPropertyTypeString, Value:="你的值"
      End If
      On Error GoTo 0
  End Sub
  
  ' 提交表单时读取
  Private Sub btnSubmit_Click()
      Dim storedValue As String
      storedValue = ThisWorkbook.CustomDocumentProperties("GlobalValue").Value
      ' 后续逻辑
  End Sub
  

• 临时应急方案：修改控件后，保存文件并关闭重新打开，Workbook_Open会重新执行赋值，但这只是权宜之计，下次修改控件还是会触发问题。

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