Nascondere tutti i fogli di lavoro eccetto il foglio attivo

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 

Tags: , , , , , ,

Ti è stato utile?