Vai al contenuto principale

Come passare da fogli nascosti a fogli visibili in Excel?

Supponendo che tu abbia alcuni fogli con dati importanti che non vuoi che altri vedano, nascondere i fogli di lavoro può essere un modo semplice per proteggere i dati in Excel. Ma a volte, devi mostrare i fogli nascosti e poi nasconderli di nuovo, normalmente devi scoprirli uno per uno, se di solito applichi questa operazione, sarà fastidioso e dispendioso in termini di tempo. In questo articolo, ti presenterò alcuni modi rapidi per alternare i fogli di lavoro tra nascosti e non nascosti.

Alterna i fogli tra nascosto e non nascosto con il codice VBA

Alterna i fogli tra nascosti e nascosti con Kutools per Excel


freccia blu freccia destra Alterna i fogli tra nascosto e non nascosto con il codice VBA

Supponendo che tu abbia una cartella di lavoro con Sheet1, Sheet2 e Sheet3 nascosti, il seguente codice VBA può aiutarti a visualizzarli rapidamente e il secondo clic li nasconderà di nuovo. Si prega di fare quanto segue:

1. Clic Costruttori > Visual Basic, E una nuova Microsoft Visual Basic per le applicazioni verrà visualizzata la finestra, fare clic su inserire > Modulie quindi immettere il codice seguente nel modulo.

Sub ToggleHideUnhideDataSheets()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ShtNames() As Variant
Set wb = ActiveWorkbook
ShtNames = Array("Sheet1", "Sheet2", "Sheet3")
For i = 0 To UBound(ShtNames)
wb.Sheets(ShtNames(i)).Visible = Not wb.Sheets(ShtNames(i)).Visible
Next i
Application.ScreenUpdating = True
End Sub

Nel codice sopra, il ShtNames = Array ("Sheet1", "Sheet2", "Sheet3") è una variabile, puoi modificare i nomi dei fogli di lavoro nascosti di cui hai bisogno.

2. Quindi premere F5 tasto per eseguire il codice e sono stati visualizzati i fogli nascosti, se si desidera nasconderli di nuovo, premere F5 chiave ancora una volta.


freccia blu freccia destra Alterna i fogli tra nascosti e nascosti con Kutools per Excel

Con Attiva / disattiva la visibilità dei fogli di lavoro nascosti funzione Kutools for Excel, puoi facilmente alternare i fogli tra nascosti e non nascosti facendo clic sul comando Fogli di lavoro.

Kutools for Excel include più di 300 utili strumenti Excel. Prova gratuita senza limitazioni per 30 giorni. Get it Now.

Dopo aver installato Kutools per Excel, puoi procedere come segue:

1. Apri la cartella di lavoro che deve contenere alcuni fogli di lavoro nascosti.

2. Clic Kutools > Fogli di lavoro, vedi screenshot:

doc-toggle-hidden-sheet1

Quando fai clic sul Fogli di lavoro una volta, tutti i fogli nascosti sono stati visualizzati, se vuoi nasconderli di nuovo, fai clic su Fogli di lavoro comando con una seconda volta. Vedi screenshot:

doc-toggle-hidden-sheet2
-1
doc-toggle-hidden-sheet3
-1
doc-toggle-hidden-sheet2

Note:: Questa funzione si applica anche ai fogli nascosti non continui.

Se vuoi saperne di più su questa funzione, fai clic su Attiva / disattiva la visibilità dei fogli di lavoro nascosti.


Articolo correlato:

Alterna tra le colonne nascoste e visibili in Excel

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Works great, but how would you modify this to use the sheet's CodeNames instead of "Sheet" names?

That way user can still change the Tab name and Tab order as needed.

Thanks!
This comment was minimized by the moderator on the site
At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)
This comment was minimized by the moderator on the site
[quote]At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)By Greg[/quote] Thanks for your feedback. We will change it soon. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations