Microsoft Excel 2010有Sheet1,Sheet2,Sheet3。如何使用VBA隱藏工作表?
在工作表1上,頁面被鎖定。它包含引用Sheet3的字段。
例如,A2上的Sheet1標題爲「Name」,B2具有= Sheet3!B2。
在Sheet3上,A2標題爲「Name」,B2除非用戶填寫,否則爲空白。當然,Sheet3 Cell B2會自動填充到Sheet1中。
在工作表3上,我有更多類似的字段可由用戶編輯,如地址和電話號碼。但是,我想通過創建隱藏Sheet3的按鈕來隱藏Sheet3。我不希望通過電子郵件發送該文件的人員看到帶有所有信息的Sheet3。它會混淆自動化系統。
我已經研究了所有可以找到的信息並將信息輸入到特定字段後隱藏表格的一些代碼,但我不確定如何將該代碼應用到按鈕。這個按鈕的用途並不是我的所有用戶都懂技術,所以這是一個讓他們無需大驚小怪就可以隱藏表格的快速方法。該按鈕也將在Sheet3上進行。
我發現了一個代碼,可以幫助如果有人知道一些VBA將其轉換爲使用按鈕。此代碼表示B6和B7隱藏表單。我真的失去了如何使用按鈕點擊命令與這個幾乎接近的公式。
Sub ShowHideWorksheets()
Dim Cell As Range
For Each Cell In Range("B6:B7")
ActiveWorkbook.Worksheets(Cell.Value).Visible = Not
ActiveWorkbook.Worksheets(Cell.Value).Visible
Next Cell
End Sub