Como excluir a pasta de trabalho ativa (arquivo atual) no Excel?

Este método apresentará um código VBA para excluir a pasta de trabalho que está aberta/ativa sem fechá-la no Excel. Por favor, siga os passos abaixo:

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, copie o seguinte código VBA e cole na janela do módulo aberto.

VBA: Excluir Pasta de Trabalho Ativa sem fechá-la no 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. Pressione a tecla F5 ou o botão Executar para executar este VBA.

Observações:

(1) Este VBA pode excluir a pasta de trabalho ativa, mas não pode fechar a janela do Excel. Se não houver nenhuma pasta de trabalho aberta após a exclusão da pasta de trabalho ativa, feche a janela do Excel manualmente.

(2) Se a pasta de trabalho ativa nunca foi salva antes, este VBA não será capaz de excluí-la. No entanto, você pode excluir essa pasta de trabalho não salva diretamente ao fechá-la.