Hur döljer jag alla kalkylblad utom den angivna eller aktiva i Excel?

För att hålla arbetsboken ren och lätt att navigera, kanske du vill dölja alla kalkylblad utom den aktuella aktiva i Excel. I den här artikeln visar vi dig två metoder för att dölja alla kalkylblad men specificerade eller aktiva i Excel.

Dölj alla kalkylblad utom den angivna i Excel med VBA-kod
Dölj alla kalkylblad men den aktiva med Kutools för Excel (bara flera klick)

Dölj alla kalkylblad utom den angivna i Excel med VBA-kod

Du kan dölja alla kalkylblad utom den angivna med VBA-kod i Excel. Gör så här.

1. I den för närvarande öppnade arbetsboken byter du till det kalkylblad du vill behålla synligt och trycker sedan på andra + F11 samtidigt för att öppna Microsoft Visual Basic-applikation fönster.

2. I Microsoft Visual Basic-applikation fönstret klickar Insert > Modulerna. Se skärmdump:

3. Kopiera och klistra in nedanstående VBA-kod i kodredigeraren.

VBA-kod: dölj alla ark utom den angivna

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. tryck på F5 för att köra koden.

5. Efter att ha kört koden dyker en dialogruta upp med aktivt arknamn som visas i Mätområde och klicka sedan på OK knapp.

Sedan döljs alla kalkylblad omedelbart utom den nuvarande i din arbetsbok.

Anmärkningar: För att visa de dolda arbetsbladen, kopiera och klistra in följande VBA-kod i modulen och tryck sedan på F5-tangenten för att köra koden.

VBA-kod: visa dolda kalkylblad

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

Dölj alla kalkylblad men den aktiva med Kutools för Excel (bara ett klick)

Du kan dölja alla ark utom den angivna eller aktiva med bara ett klick i Excel.

1. Gå in i det angivna arket som du vill att det bara ska visas i aktuell arbetsbok.

2. Klicka sedan Kutools > Visa gömma > Dölj omarkerade ark.

Sedan döljs alla ark i den aktuella arbetsboken utom den aktiva.

Anmärkningar: Om du vill visa alla dolda kalkylblad, klicka Kutools > Visa / dölj > Ta bort alla ark. Se skärmdump: