隐藏Excel工作簿时，如何更改/显示ComboBox的可选选项？

当工作簿隐藏时，用RowSource引用单元格区域会失效——这是因为RowSource依赖可见的工作表上下文，而单个单元格能正常访问是因为代码直接调用对象模型不受可见性影响。改用List属性加载选项是更可靠的方案，具体实现如下：

• 初始化UserForm时加载基础选项
  在UserForm的初始化事件里，把目标区域的值转成数组，直接赋值给ComboBox的List属性，无需依赖RowSource：

  Private Sub UserForm_Initialize()
      ' 仅隐藏当前工作簿窗口，不影响其他打开的Excel文件
      ThisWorkbook.Windows(1).Visible = False
      
      ' 加载第一个ComboBox的选项
      Dim optionArr As Variant
      optionArr = Sheet1.Range("A2:A4").Value
      ComboBox1.List = optionArr
  End Sub
  

• 动态变更ComboBox选项
  在ComboBox的选择变更事件中，根据当前选择确定要加载的单元格区域，同样用数组赋值给目标ComboBox的List：

  Private Sub ComboBox1_Change()
      Dim targetArr As Variant
      ComboBox2.Clear ' 先清空原有选项
      
      ' 根据选择匹配对应的数据源区域
      Select Case ComboBox1.Value
          Case "选项A"
              targetArr = Sheet1.Range("B2:B5").Value
          Case "选项B"
              targetArr = Sheet1.Range("C2:C6").Value
          ' 可根据需求添加更多分支
      End Select
      
      ' 加载新选项
      If Not IsEmpty(targetArr) Then
          ComboBox2.List = targetArr
      End If
  End Sub
  

• 关闭窗体时恢复工作簿可见性（可选）
  为了避免工作簿一直隐藏，可在窗体终止事件中恢复显示：

  Private Sub UserForm_Terminate()
      ThisWorkbook.Windows(1).Visible = True
  End Sub
  

这种方式把数据加载到控件的内存列表中，完全脱离对工作表可见性的依赖，能彻底解决工作簿隐藏后选项消失的问题。

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