Come nascondere tutti i fogli di lavoro tranne quello specificato o attivo in Excel?

Per mantenere la cartella di lavoro pulita e facile da navigare, potresti voler nascondere tutti i fogli di lavoro tranne quello attualmente attivo in Excel. In questo articolo, ti mostreremo due metodi per nascondere tutti i fogli di lavoro tranne quello specificato o attivo in Excel.

Nascondere tutti i fogli di lavoro tranne quello specificato in Excel con il codice VBA
Nascondere tutti i fogli di lavoro tranne quello attivo con Kutools per Excel (solo pochi clic)

Nascondere tutti i fogli di lavoro tranne quello specificato in Excel con il codice VBA

Puoi nascondere tutti i fogli di lavoro tranne quello specificato con il codice VBA in Excel. Procedi come segue.

1. Nella cartella di lavoro attualmente aperta, passa al foglio di lavoro che desideri mantenere visibile, quindi premi contemporaneamente Alt + F11 per aprire la finestra Microsoft Visual Basic Application.

2. Nella finestra Microsoft Visual Basic Application, fai clic su Inserisci > Modulo. Vedi screenshot:

3. Quindi copia e incolla il seguente codice VBA nell'editor del Codice.

Codice VBA: nascondere tutti i fogli tranne quello specificato

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. Premi il tasto F5 per eseguire il codice.

5. Dopo aver eseguito il codice, apparirà una finestra di dialogo con il nome del foglio attivo visualizzato nella casella Intervallo, quindi fai clic sul pulsante OK.

Quindi, tutti i fogli di lavoro verranno nascosti immediatamente tranne quello corrente nella tua cartella di lavoro.

Nota: Per visualizzare i fogli di lavoro nascosti, copia e incolla il seguente codice VBA nel Modulo e poi premi il tasto F5 per eseguire il codice.

Codice VBA: mostra i fogli di lavoro nascosti

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

Nascondere tutti i fogli di lavoro tranne quello attivo con Kutools per Excel (con un solo clic)

Puoi nascondere tutti i fogli tranne quello specificato o attivo con un solo clic in Excel.

1. Accedi al foglio specificato che desideri venga mostrato solo nella cartella di lavoro corrente.

2. Quindi fai clic su Kutools > Mostra e Nascondi > Nascondi Fogli Non Selezionati.

Quindi, tutti i fogli nella cartella di lavoro corrente verranno nascosti tranne quello attivo.

Nota: Se vuoi visualizzare tutti i fogli di lavoro nascosti, fai clic su Kutools > Mostra / Nascondi > Mostra Tutti i Fogli. Vedi screenshot: