Per chiudere tutte le cartelle aperte, puoi utilizzare il codice VBA seguente:
Sub CHIUDITUTTELECARTELLE()
Dim fs, f, f1, fc, s
' Crea un oggetto "fileSystemObject"
Set fs = CreateObject("Scripting.fileSystemObject")
' Ottieni la cartella "F:\"
Set f = fs.Getfolder("F:\")
' Ottieni tutte le sottocartelle di "F:\"
Set fc = f.Subfolders
' Itera su ogni sottocartella
For Each f1 In fc
' Chiudi la sottocartella
f1.Close
Next
End Sub
In questo esempio, il metodo Close viene utilizzato per chiudere ogni sottocartella di F:\.