Як приховати всі робочі аркуші, крім зазначеного або активного в Excel?

Для збереження чистоти книги та зручності в ній, можливо, вам захочеться приховати всі аркуші, крім поточного активного в Excel. У цій статті ми покажемо вам два способи приховування всіх аркушів, але вказаного або активного в Excel.

Приховати всі робочі аркуші, крім зазначеного, в Excel із кодом VBA
Hide all worksheets but the active one with Kutools for Excel (just several clicks)

---

Приховати всі робочі аркуші, крім зазначеного, в Excel із кодом VBA

---

Ви можете приховати всі робочі аркуші, крім зазначеного, за допомогою коду VBA в Excel. Будь ласка, виконайте наступне.

1. У поточній відкритій книзі перейдіть до аркуша, який ви хочете лише показати, а потім натисніть інший + F11 одночасно відкрити Додаток Microsoft Visual Basic вікна.

2 В Додаток Microsoft Visual Basic вікна, натисніть Insert > Модулі. Дивіться знімок екрана:

3. Потім скопіюйте та вставте наведений нижче код VBA в редактор коду.

Код VBA: приховати всі аркуші, крім зазначеного

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 Натисніть кнопку F5 клавіша для запуску коду.

5. Після запуску коду відкриється діалогове вікно з активним іменем аркуша, що відображається в Діапазон , а потім клацніть на OK кнопки.

Тоді всі аркуші негайно приховуються, крім поточного у вашій книзі.

примітки: Для відображення прихованих робочих аркушів, скопіюйте та вставте наступний код VBA в Модуль, а потім натисніть клавішу F5, щоб запустити код.

Код VBA: показати приховані аркуші

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

---

Hide all worksheets but the active one with Kutools for Excel (лише один клік)

Ви можете приховати всі аркуші, крім зазначеного або активного, лише одним клацанням миші в Excel.

1. Отримайте вказаний аркуш, який ви хочете, щоб він відображався лише у поточній книзі.

2 Потім натисніть Кутулс > Показати сховати > Сховати невиділені аркуші.

Тоді всі аркуші в поточній книзі приховані, крім активної.

примітки: Якщо ви хочете відобразити всі приховані аркуші, натисніть Кутулс > Показати / Приховати > Показати всі аркуші. Дивіться знімок екрана: