Nascondi cartelle di lavoro inattive tramite VBA

Sommario

Se stai lavorando su più cartelle di lavoro contemporaneamente e hai bisogno di una macro che ti aiuti a nascondere tutte le cartelle di lavoro inattive, questo articolo ti aiuterà sicuramente.

In questo articolo, ci concentreremo su come possiamo nascondere più cartelle di lavoro che attualmente non stai utilizzando.

Domanda: Ho bisogno di nascondere rapidamente tutti i file excel tranne quello che sto attualmente utilizzando in modo da poter passare da un'applicazione all'altra senza problemi. Vorrei cercare il codice VBA per questo mio requisito unico.

Per ottenere il codice per nascondere tutte le cartelle di lavoro inattive, dobbiamo seguire i passaggi seguenti per avviare l'editor VB

  • Fare clic sulla scheda Sviluppatore
  • Dal gruppo Codice seleziona Visual Basic

  • Copia il seguente codice nel modulo del foglio di lavoro
 Sub HideInactiveExcelWorkbooks() Application.ScreenUpdating = False Dim aWin As Window Set aWin = ActiveWindow Dim win As Window Per ogni vittoria in Application.Windows win.Visible = False Prossima vittoria aWin.Visible = True Application.ScreenUpdating = True End Sub 

  • Il codice sopra nasconderà immediatamente tutte le cartelle di lavoro inattive

Nota: la macro sopra non nasconderà la cartella di lavoro attiva.

Per mostrare tutte le cartelle di lavoro, dobbiamo seguire i passaggi seguenti:

  • Fare clic sulla scheda Visualizza
  • Fare clic su Scopri

  • Questo mostrerà le cartelle di lavoro scopri

  • Selezionando ognuno e facendo clic sul pulsante Ok verrà visualizzata la cartella di lavoro

Conclusione: Possiamo nascondere centinaia di cartelle di lavoro che non sono attive con un solo clic utilizzando il codice macro sopra.

Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica

Aiuterete lo sviluppo del sito, condividere la pagina con i tuoi amici

wave wave wave wave wave