vba在打開工作簿時取消隱藏列

我的用戶表單有兩個按鈕，一個用於取消隱藏列A，另一個用於隱藏列A，以便用戶只能看到他們需要的數據以及他們需要的時間。代碼如下。vba在打開工作簿時取消隱藏列

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。任何幫助非常感謝？由於

來源

2017-08-27 thankseveryone

就包括'工作表（「第一頁」）列（「A：A」）。隱藏= FALSE'代碼'Workbook_Open'事件中。（或者，因爲在工作簿完全打開之前，由於「開放」事件有時會發生問題，所以可能將其包含在Workbook_BeforeSave事件中。） – YowE3K

嗨，而不是OptionButton4_Click（）來編寫Workbook_BeforeSave？如果我這樣做，不要以爲我的按鈕仍然可以工作。謝謝 – thankseveryone

不，只需在'Workbook_BeforeSave' **中添加代碼** - 這樣您就可以在'OptionButton4_Click'和'Workbook_BeforeSave'上執行該行。（如果它不僅僅是一行，我會建議只從這兩個地方調用一個子例程，但對於一行它不值得 - 只需複製該行。） – YowE3K

使用workbook_open即使在ThisWorkbook

來源

2017-08-27 23:15:50 ballsy26

vba在打開工作簿時取消隱藏列

回答

相關問題