Kako skriti vse delovne liste razen navedenega ali aktivnega v Excelu?

Da bo delovni zvezek čist in lahek za krmarjenje, boste morda želeli skriti vse delovne liste, razen trenutno aktivnega v Excelu. V tem članku vam bomo prikazali dva načina skrivanja vseh delovnih listov, vendar določenega ali aktivnega v Excelu.

Skrij vse delovne liste, razen določenega v Excelu s kodo VBA
Skrij vse delovne liste, razen aktivnega, s programom Kutools za Excel (le nekaj klikov)

Skrij vse delovne liste, razen določenega v Excelu s kodo VBA

V Excelu lahko skrijete vse delovne liste, razen določenega, s kodo VBA. Naredite naslednje.

1. V trenutno odprtem delovnem zvezku se premaknite na delovni list, ki ga želite prikazati samo, in pritisnite druga + F11 hkrati odpreti Aplikacija Microsoft Visual Basic okno.

2. V Ljubljani Aplikacija Microsoft Visual Basic okno, kliknite Vstavi > Moduli. Oglejte si posnetek zaslona:

3. Nato kopirajte in prilepite spodnjo kodo VBA v urejevalnik kod.

Koda VBA: skrij vse liste razen določenega

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. Pritisnite F5 tipko za zagon kode.

5. Po zagonu kode se prikaže pogovorno okno z aktivnim imenom lista, prikazanim v Območje , nato kliknite OK gumb.

Nato se vsi delovni listi takoj skrijejo, razen trenutnega v vašem delovnem zvezku.

Opombe: Za prikaz skritih delovnih listov kopirajte in prilepite naslednjo kodo VBA v modul in nato pritisnite tipko F5, da zaženete kodo.

Koda VBA: prikaži skrite delovne liste

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

Skrij vse delovne liste, razen aktivnega, s Kutools za Excel (samo en klik)

Z enim samim klikom v Excelu lahko skrijete vse liste, razen navedenega ali aktivnega.

1. Pojdite na navedeni list, za katerega želite, da je prikazan samo v trenutnem delovnem zvezku.

2. Nato kliknite Kutools > Pokaži in skrij > Skrij neizbrane liste.

Potem so vsi listi v trenutnem delovnem zvezku skriti, razen aktivnega.

Opombe: Če želite prikazati vse skrite delovne liste, kliknite Kutools > Pokaži / Skrij > Razkrij vse liste. Oglejte si posnetek zaslona: