Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to hide all worksheets except the specified or active one in Excel?

For keeping workbook clean and easy to navigate, you may want to hide all worksheets except current active one in Excel. In this article, we will show you two methods of hiding all worksheets but specified or active one in Excel.

Hide all worksheets but the specified one in Excel with VBA code

Hide all worksheets but the active one with Kutools for Excel (just several clicks)


Easily hide all worksheets in current workbook except the active one in Excel:

You can easily hide all worksheets in current workbook except the active one in Excel with the Hide Unselected Sheets utility of Kutools for Excel

hide

Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download the free trial Now!

arrow blue right bubble Hide all worksheets but the specified one in Excel with VBA code



You can hide all worksheets except the specified one with VBA code in Excel. Please do as follows.

1. In current opened workbook, shift to the worksheet you want to show only, and then press Alt + F11 simultaneously to open the Microsoft Visual Basic Application window.

2. In the Microsoft Visual Basic Application window, click Insert > Module. See screenshot:

3. Then copy and paste the below VBA code into the Code editor.

VBA code: hide all sheets except specified one

Sub SheetHidden()
	Dim xWs As Worksheet
	Dim xName As String
	xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> xName Then
			xWs.Visible = xlSheetHidden
		End If
	Next
End Sub

4. Press the F5 key to run the code.

5. After running the code, a dialog box pops up with active sheet name displaying in the Range box, then click the OK button.

Then all worksheets are hidden immediately except the current one in your workbook.

Note: For displaying the hidden worksheets, please copy and paste following VBA code into the Module and then press the F5 key to run the code.

VBA code: show hidden worksheets

Sub SheetUnHidden()
	Dim xWs As Worksheet
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Visible = True
	Next
End Sub

arrow blue right bubble Hide all worksheets but the active one with Kutools for Excel (only one click)

After installing Kutools for Excel , you can hide all sheets except the specified or active one with just one click in Excel.

1. Get into the specified sheet which you want it to be shown only in current workbook.

2. Then click Kutools > Show / Hide > Hide Unselected Sheets. See screenshot:

Then all sheets in current workbook are hidden except the active one.

Note: If you want to display all hidden worksheets, please click Kutools > Show / Hide > Unhide All Sheets. See screenshot:

Tip.If you want to have a free trial of this utility, please go to download the software freely first, and then go to apply the operation according above steps.


Recommended Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 71%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 82% Excel problems.

  •  Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  •  Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  •  Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  •  Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  •  No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  •  Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  •  60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  •  Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.