Come verificare rapidamente se un file (cartella di lavoro) è aperto o chiuso in Excel?
Nel lavoro quotidiano con Excel, capita spesso di avere aperte contemporaneamente diverse cartelle di lavoro, ma quando si arriva a centinaia di file, diventa facile confondersi e difficile ricordare se una cartella specifica è aperta o chiusa. Dimentica il metodo tradizionale di controllare i file uno per uno: ecco alcuni trucchi efficaci per individuare in un attimo se una cartella di lavoro è aperta o meno.
Verificare se una cartella di lavoro è aperta o chiusa con VBA
Verificare se una cartella di lavoro è aperta o chiusa con Kutools per Excel 
Verificare se una cartella di lavoro è aperta o chiusa con VBA
Ecco un codice VBA che puoi eseguire per verificare se una determinata cartella di lavoro è aperta o chiusa.
1. Premi Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo e poi copia e incolla il codice VBA nel nuovo Modulo.
VBA: Verifica se una cartella di lavoro è aperta o chiusa
Function IsWorkBookOpen(Name As String) As Boolean
Dim xWb As Workbook
On Error Resume Next
Set xWb = Application.Workbooks.Item(Name)
IsWorkBookOpen = (Not xWb Is Nothing)
End Function
Sub Sample()
Dim xRet As Boolean
xRet = IsWorkBookOpen("combine.xlsx")
If xRet Then
MsgBox "The file is open", vbInformation, "Kutools for Excel"
Else
MsgBox "The file is not open", vbInformation, "Kutools for Excel"
End If
End Sub3. Premi quindi F5 per eseguire questa macro VBA: apparirà una finestra di dialogo che ti indicherà se la cartella specificata è aperta o meno.
Suggerimento: Nel codice VBA riportato sopra, “combine” è il nome della cartella di lavoro che desideri verificare; puoi modificarlo in base alle tue esigenze.
Verificare se una cartella di lavoro è aperta o chiusa con Kutools per Excel
Se non hai familiarità con VBA, puoi verificare se una cartella di lavoro è aperta grazie a Kutools per Excel e al suo riquadro Navigazione, che ti permette di visualizzare chiaramente tutte le cartelle aperte nella sezione «Elenco cartelle di lavoro» del riquadro.
Dopo aver installato gratuitamente Kutools per Excel, procedi come segue:
1. Fai clic su Kutools > Navigazione per attivare la Navigazione. Vedi screenshot:
2. Quindi fai clic sul pulsante Cartella di lavoro e Foglio per espandere il riquadro e accedere alla sezione Cartella di lavoro e Foglio. Potrai così visualizzare tutte le cartelle aperte nell’elenco superiore. Vedi screenshot:
Grazie al riquadro Navigazione, puoi passare rapidamente tra le diverse cartelle di lavoro o i fogli presenti nell’elenco.
Clicca qui per scoprire tutto sulla Navigazione.
Demo: Come creare un elenco dinamico dei nomi dei fogli in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi