2.在任何模塊的代碼窗口中輸入以下代碼。
Sub xyf()
Sheet1。Visible = xlSheetHidden
末端接頭
然後將光標定位在Sub和End Sub之間，並按快捷鍵F5運行代碼，這樣可以隱藏第壹個工作表。
3.如果要取消隱藏工作表，可以使用下面的代碼。
Sub xyf()
Sheet1。Visible = xlSheetVisible
末端接頭
通過修改worksheet對象的Visible屬性，可以在隱藏和取消隱藏之間切換。
4.如果需要批量隱藏或取消隱藏多個工作表，可以使用下面的代碼。
Sub xyf()
定義工作表變量對象。
作為工作表隱藏
對於Excel中的每個oWS。ThisWorkbook .工作表
批量取消隱藏
oWS。Visible = xlSheetVisible
然後
末端接頭
通過？對於每壹個.。。Next循環遍歷每個工作表，並遍歷
Visible屬性的設置可以實現工作表的批量取消隱藏或批量隱藏。
如下圖所示
5.運行上述代碼模式批量隱藏工作表時，會彈出錯誤提示。
Sub xyf()
定義工作表變量對象。
作為工作表隱藏
對於Excel中的每個oWS。ThisWorkbook .工作表
散裝皮革
oWS。Visible = xlSheetHidden
然後
末端接頭
這是因為任何工作簿都必須至少有壹個可見的工作表，並且不能隱藏所有的工作表。可以通過添加壹些條件判斷碼來解決。