Hogyan lehet elrejteni az összes munkalapot, kivéve a megadott vagy az aktív Excel-t?

A munkafüzet tisztasága és könnyen kezelhetősége érdekében érdemes az Excel összes munkalapját elrejteni, a jelenlegi aktív kivételével. Ebben a cikkben két módszert mutatunk be az összes munkalap elrejtésére, de az Excelben megadottak vagy aktívak.

Az összes munkalap elrejtése, kivéve a megadottat az Excelben, VBA kóddal
Az összes munkalap elrejtése az aktív munkalapon kívül a Kutools for Excel segítségével (csak néhány kattintás)

Az összes munkalap elrejtése, kivéve a megadottat az Excelben, VBA kóddal

Az összes munkalapot elrejtheti az Excelben, a megadott kivételével, VBA kóddal. Kérjük, tegye a következőket.

1. Az aktuálisan megnyitott munkafüzetben lépjen a csak megjeleníteni kívánt munkalapra, majd nyomja meg az gombot más + F11 egyszerre nyissa meg a Microsoft Visual Basic alkalmazás ablak.

2. Ban,-ben Microsoft Visual Basic alkalmazás ablakban kattintson betétlap > Modulok. Lásd a képernyőképet:

3. Ezután másolja és illessze be az alábbi VBA kódot a Code editorba.

VBA kód: az összes lap elrejtése, kivéve a megadottat

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. megnyomni a F5 gombot a kód futtatásához.

5. A kód futtatása után megjelenik egy párbeszédpanel, amelyben az aktív lap neve látható Választék négyzetet, majd kattintson a gombra OK gombot.

Ezután az összes munkalap azonnal elrejtésre kerül, a munkafüzet aktuális kivételével.

Megjegyzések: A rejtett munkalapok megjelenítéséhez másolja és illessze be a következő VBA kódot a modulba, majd nyomja meg az F5 billentyűt a kód futtatásához.

VBA kód: rejtett munkalapok megjelenítése

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

Az összes munkalap elrejtése, kivéve az aktívat a Kutools for Excel segítségével (csak egy kattintás)

Az összes lapot a megadott vagy az aktív kivételével egyetlen kattintással elrejtheti az Excel programban.

1. Lépjen be a megadott lapra, amelyet csak az aktuális munkafüzetben szeretne megjeleníteni.

2. Ezután kattintson Kutools > Mutat elrejt > A kijelöletlen táblák elrejtése.

Ezután az aktuális munkafüzet összes lapja el lesz rejtve, az aktív kivételével.

Megjegyzések: Ha az összes rejtett munkalapot meg szeretné jeleníteni, kattintson a gombra Kutools > Megjelenítése / elrejtése > Az összes lap elrejtése. Lásd a képernyőképet: