Quando scegli di nascondere i fogli di lavoro in una cartella di lavoro, Excel ti consente di nascondere più fogli con un’unica azione: tutto ciò che devi fare è selezionare i fogli prima di nasconderli. Tuttavia, scoprire i fogli di lavoro è una storia diversa. Excel ti consente solo di scoprirne uno alla volta.

Se hai molti fogli di lavoro che vuoi mostrare, questo può essere molto noioso.

L’unico modo per aggirare questo è utilizzare una macro per mostrare i fogli di lavoro. La seguente macro VBA mostrerà tutti i fogli di lavoro nella cartella di lavoro corrente:

Sub UnhideAllSheets()

Dim wsSheet As Worksheet

For Each wsSheet In ActiveWorkbook.Worksheets         wsSheet.Visible = xlSheetVisible     Next wsSheet End Sub

Se preferisci non mostrare tutti i fogli di lavoro contemporaneamente, puoi fare in modo che la macro chieda informazioni su ciascun foglio di lavoro nascosto e quindi scoprire ciascuno che accetti di mostrare. La seguente macro gestirà questo compito:

Sub UnhideSomeSheets()

Dim sSheetName As String     Dim sMessage As String     Dim Msgres As VbMsgBoxResult

For Each wsSheet In ActiveWorkbook.Worksheets         If wsSheet.Visible = xlSheetHidden Then             sSheetName = wsSheet.Name             sMessage = "Unhide the following sheet?" _               & vbNewLine & sSheetName             Msgres = MsgBox(sMessage, vbYesNo)

If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible         End If     Next wsSheet End Sub

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2603) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Unhiding Multiple Worksheets.