How to toggle between hidden and visible sheets in Excel?
Supposing you have some sheets with important data that you don’t want others to see, hiding worksheets can be a simple way to protect data in Excel. But sometimes, you need to show the hidden sheets and then hide them again, normally you need to unhide them one by one, if you usually apply this operation, it will be troublesome and time-consuming. In this article, I will introduce you some quick ways to toggle the worksheets between hidden and unhidden.
Supposing you have a workbook with Sheet1, Sheet2 and Sheet3 are hidden, the following VBA code can help you quickly display them and the second click will hide them again. Please do as follows:
1. Click Developer > Visual Basic, and a new Microsoft Visual Basic for applications window will display, click Insert > Module, and then input the following code in the module.
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ShtNames() As Variant
Set wb = ActiveWorkbook
ShtNames = Array("Sheet1", "Sheet2", "Sheet3")
For i = 0 To UBound(ShtNames)
wb.Sheets(ShtNames(i)).Visible = Not wb.Sheets(ShtNames(i)).Visible
Application.ScreenUpdating = True
In the above code, the ShtNames = Array("Sheet1", "Sheet2", "Sheet3") is a variable, you can change the hidden worksheet names as you need.
2. Then press F5 key to run the code, and the hidden sheets have been displayed, if you want to hide them again, please press F5 key once again.
Toggle the sheets between hidden and unhidden with Kutools for Excel
With Toggle Hidden Worksheets Visibility function of Kutools for Excel, you can easily toggle sheets between hidden and unhidden by clicking Worksheets command.
Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
More than 300 powerful features. Supports Office/Excel
2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features
30-day free trial. 60-day money back guarantee.