vba在打开工作簿时取消隐藏列

Question

我的用户表单有两个按钮，一个用于取消隐藏列A，另一个用于隐藏列A，以便用户可以选择仅查看所需数据以及何时需要。这个代码如下。

  Private Sub OptionButton3_Click()
  'Hide column A
  Worksheets("Page1").Columns("A:A").Hidden = True
  End Sub


  Private Sub OptionButton4_Click()
  'UnHide column A
  Worksheets("Page1").Columns("A:A").Hidden = False
  End Sub

但是，我希望每次用户打开工作簿时，A列都是可见的（取消隐藏）。例如，即使用户保存了隐藏了列A的工作簿，我希望下次有人打开相同的电子表格时默认情况下会自动显示列A.我不确定如何修改上面的vba。任何帮助非常感谢？谢谢

Answer 1

甚至在workbook_open

内使用ThisWorkbook