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

我的用户表单有两个button，一个取消隐藏列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

甚至可以在ThisWorkbook使用workbook_open