Come mostrare tutti i fogli utilizzando vba (con esempio)

È possibile utilizzare la proprietà Visible in VBA per visualizzare un foglio in una cartella di lavoro di Excel.

Per visualizzare tutti i fogli in una cartella di lavoro, è possibile utilizzare la seguente sintassi:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

Utilizzando un semplice ciclo For Each e specificando Visible = True , diciamo a Excel di visualizzare tutti i fogli nella cartella di lavoro.

L’esempio seguente mostra come utilizzare questa sintassi nella pratica.

Esempio: come visualizzare tutti i fogli utilizzando VBA

Supponiamo di avere una cartella di lavoro Excel con quattro fogli:

Supponiamo ora di fare clic con il pulsante destro del mouse su Foglio4 e quindi fare clic su Nascondi :

Diciamo di ripetere questo processo con Sheet2 in modo che gli unici fogli visibili siano ora Sheet1 e Sheet3 .

Diciamo che vogliamo utilizzare VBA per visualizzare tutti i fogli della cartella di lavoro.

Per fare ciò possiamo creare la seguente macro:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

Una volta eseguita questa macro, verranno visualizzati tutti i fogli della cartella di lavoro:

Nota : è possibile trovare la documentazione completa per la proprietà Visible in VBA qui .

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

VBA: come trovare l’ultima riga utilizzata
VBA: come trovare l’ultima colonna utilizzata
VBA: come bloccare i riquadri