Come eliminare la cartella di lavoro corrente (il file attualmente aperto) in Excel?

Questo metodo introduce una macro VBA per eliminare la cartella di lavoro aperta – ossia la cartella di lavoro corrente – senza chiuderla in Excel. Procedere come segue:

1. Premere contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic, Applications.

2. Fare clic su Inserisci > Modulo, quindi copiare il seguente codice VBA e incollarlo nella finestra del modulo aperto.

VBA: Elimina Cartella di lavoro corrente senza chiuderla in Excel

Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub

3. Premere il tasto F5 oppure fare clic sul pulsante Esegui per eseguire questa macro VBA.

Note:

(1) Questa macro VBA può eliminare la cartella di lavoro corrente, ma non è in grado di chiudere la finestra di Excel. Se, dopo aver eliminato la cartella di lavoro corrente, non rimangono altre cartelle di lavoro aperte, chiudere manualmente la finestra di Excel.

(2) Se la cartella di lavoro corrente non è mai stata salvata in precedenza, questa macro VBA non potrà eliminarla. Tuttavia, puoi eliminarla direttamente chiudendola.