Eliminare tutti i fogli nascosti

Per eliminare tutti i fogli nascosti:

 
Sub DeleteHiddenWorksheets()
'Se il foglio di lavoro è very hidden non sarà eliminato
'Crea la variabile per gestire i fogli di lavoro
Dim ws As Worksheet
'Impedisce la visualizzazione del messaggio di avviso
Application.DisplayAlerts = False
'Loop su ogni foglio di lavoro della cartella di lavoro attiva
For Each ws In ActiveWorkbook.Worksheets
     'Controlla se il foglio è nascosto
     If ws.Visible = xlSheetHidden Then
          'Elimina il foglio di lavoro
          ws.Delete
     End If
Next ws
'Ripristina i messaggi di avviso
Application.DisplayAlerts = True
End Sub 

 

NOTA

Fai attenzione che non ci siano interrelazioni tra i fogli rimanenti e quelli da eliminare. L’eliminazione dei fogli potrebbe causare l’interruzione delle formule o di altre funzionalità.

Tags: , , , , ,

Ti è stato utile?