Rendere i fogli selezionati “molto nascosti”

I fogli di lavoro che sono very hidden non vengono visualizzati nell’elenco dei fogli di lavoro nascosti. Possono essere visti e resi visibili solo utilizzando VBA.

Sub VeryHideAllSelectedSheets()

'Crea la variabile per contenere i fogli di lavoro
Dim ws As Worksheet

'Ignora errore se provi a nascondere l'ultimo foglio di lavoro
On Error Resume Next

'Loop su ogni foglio di lavoro nella cartella di lavoro attiva
For Each ws In ActiveWindow.SelectedSheets

     'Rende ogni fogli very hidden
     ws.Visible = xlSheetVeryHidden

Next ws

'Disabilita il gestore degli errori
On Error GoTo 0

End Sub 

 

NOTA

Excel richiede almeno un foglio attivo. Se sono selezionati tutti i fogli visibili, per evitare un errore, il codice VBA non nasconderà l’ultimo foglio.

Tags: , , , , ,

Ti è stato utile?