Per nascondere tutti i fogli di lavoro ad eccezione del foglio attivo:
Sub HideAllWorksheetsExceptActive()
'Crea una variabile per gestire i fogli di lavoro
Dim ws As Worksheet
'Loop su ogni foglio della cartella di lavoro attiva
For Each ws In ActiveWorkbook.Worksheets
'Se il foglio nel loop non è il foglio attivo
If ActiveSheet.Name <> ws.Name Then
'Rende nascosto ogni foglio
ws.Visible = xlSheetHidden
End If
Next ws
End Sub
