導讀今年我們來聊點簡單的，但是很常見的問題如何批量取消工作薄中，所有隱藏的工作表目前Excel自帶的功能，無法實現批量，只能逐個取消，有興趣的同學可以去WPS看....

今年我們來聊點簡單的，但是很常見的問題如何批量取消工作薄中，所有隱藏的工作表目前Excel自帶的功能，無法實現批量，只能逐個取消，有興趣的同學可以去WPS看看，聽說可以

不過有很多MS OFFICE忠粉，如我，所以我們就來簡單實現以下這個功能

先看效果：

點擊按鈕，顯示出了所有隱藏

代碼截圖：

源碼粘貼可用（建議收藏，關鍵時候可幫大忙）：

作者：Excel辦公實戰-小易功能：過程名稱很明白------------------------------------Sub 取消全部隱藏工作表() Dim ws As Worksheet 檢查沒一個工作表 For Each ws In ThisWorkbook.Worksheets 取消隱藏-可見 ws.Visible = xlSheetVisible ws.Visible = xlSheetVeryHidden ws.Visible = xlSheetHidden NextEnd Sub

?

擴展：如果想通過代碼隱藏工作表，

那么可以只要把

ws.Visible = xlSheetVisible 修改為 ws.Visible = xlSheetHidden 或者 xlSheetVeryHidden

xlSheetVeryHidden 相對于hidden 更加安全，普通方法無法取消隱藏，必學在VBE中操作取消

小結：從實戰出發，只是簡單的幾句代碼，如何大量的隱藏工作表需要取消，可以大量節約我們的時間，以上代碼可以直接復制粘貼使用！