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

我的用户表单有两个按钮，一个用于取消隐藏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。非常感谢你的帮助吗？谢谢

使用

工作簿_open

即使在

本工作簿中

---

即使在

本工作簿中，也要使用打开的
工作簿

只需将
工作表（“Page1”）.列（“A:A”）.Hidden=False
代码包含在
工作簿打开事件中即可。（或者，由于在工作簿完全打开之前触发，
Open
事件有时会出现问题，因此可能会将其包含在
workbook\u BeforeSave
事件中。）您好，因此，在保存之前写入工作簿，而不是使用OptionButton4\u Click（）？如果我这样做，我的按钮就不会工作了。谢谢，在保存之前，只需在
工作簿中添加代码即可，这样您就可以在
选项按钮4上单击
并在
工作簿中执行该行。（如果不止一行，我建议只从这两个地方调用一个子例程，但对于一行来说，这不值得——只需复制这一行即可。）只需在
工作簿打开事件中包含
工作表（“Page1”）。列（“A:A”）。Hidden=False
代码。（或者，由于在工作簿完全打开之前触发，
Open
事件有时会出现问题，因此可能会将其包含在
workbook\u BeforeSave
事件中。）您好，因此，在保存之前写入工作簿，而不是使用OptionButton4\u Click（）？如果我这样做，我的按钮就不会工作了。谢谢，在保存之前，只需在
工作簿中添加代码即可，这样您就可以在
选项按钮4上单击
并在
工作簿中执行该行。（如果不止一行，我建议只从这两个位置调用一个子例程，但对于一行来说，这并不值得——只需复制该行即可。）