Come nascondere più fogli che utilizzano VBA in Microsoft Excel 2010
In questo articolo imparerai come nascondere più fogli usando il codice VBA.
Facci capire con un esempio:
{vuoto} D) Ho circa 100 fogli nella mia cartella di lavoro di Excel. Solo sheet1 dovrebbe essere visibile all’utente e rest dovrebbe essere invisibile. Non voglio che l’utente scopra i fogli facendo clic con il pulsante destro del mouse e li riveli.
Fare clic sulla scheda Sviluppatore Dal gruppo Codice, selezionare Visual Basic
Fare clic su Inserisci, quindi su Modulo
Questo creerà un nuovo modulo.
Inserisci il seguente codice nel Modulo
Sub HideSheets ()
Dim sh come foglio di lavoro
For Eachsh In ThisWorkbook.Worksheets
Se sh.Name <> “Sheet1” Allora
sh.Visible = xlSheetVeryHidden
End If
Avanti
End Sub
Il codice sopra verificherà il nome di ogni foglio di lavoro e se il nome è diverso da “Foglio1”, verrà eseguito e nasconderà il foglio.
Dopo aver eseguito la macro; otterremo Sheet1 come visibile a noi e il resto sarà nascosto.
Per poter visualizzare foglio1 e foglio2 solo su 100 fogli, è necessario il seguente codice
Sottotitoli HideSheets2 ()
Dim sh come foglio di lavoro
For Eachsh In ThisWorkbook.Worksheets
Se sh.Name <> “Sheet1” Allora
sh.Visible = xlSheetVeryHidden
End If
Altrimenti
If sh.Name <> “Sheet2” Then
sh.Visible = xlSheetVeryHidden
End If
Avanti
End Sub
La macro HideSheet2 non nasconde “Sheet1” e “Sheet2” e garantisce che tutti gli altri fogli vengano nascosti.
In questo modo, possiamo nascondere i fogli che non vogliamo che l’utente visualizzi.