¿Cómo eliminar el libro de trabajo activo (archivo actual) en Excel?

Este método presentará una macro VBA para eliminar el libro de trabajo abierto/activo sin cerrarlo en Excel. Por favor, sigue los siguientes pasos:

1. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, copia el siguiente código VBA y pégalo en la ventana del módulo abierto.

VBA: Eliminar Libro de Trabajo Activo sin cerrarlo en 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. Presiona la tecla F5 o el botón Ejecutar para ejecutar esta macro VBA.

Notas:

(1) Esta macro VBA puede eliminar el libro de trabajo activo, pero no puede cerrar la ventana de Excel. Si no hay libros de trabajo abiertos después de eliminar el libro de trabajo activo, cierra la ventana de Excel manualmente.

(2) Si el libro de trabajo activo nunca ha sido guardado antes, esta macro VBA no podrá eliminarlo. Sin embargo, puedes eliminar este libro de trabajo no guardado directamente cerrándolo.