Como eliminar a pasta de trabalho atual (ficheiro atual) no Excel?
Imagine que descarregou um livro a partir de uma página web e este foi aberto automaticamente. Contudo, poderá não ser o ficheiro certo ou não conter a informação de que precisa — e agora pretende eliminá-lo. Por vezes, até se esquece da pasta predefinida onde os ficheiros descarregados são guardados automaticamente. Não se preocupe: é possível eliminar o ficheiro aberto — o Livro Atual — diretamente no Excel, sem precisar de o fechar primeiro.
Eliminar Workbook Atual (ficheiro atual) com VBA
Eliminar Workbook Atual (ficheiro atual) com VBA
Este método apresenta um código VBA para eliminar o ficheiro aberto — ou seja, a Livraria Atual — sem precisar de o fechar no Excel. Por favor, siga os passos abaixo:
1. Prima em simultâneo 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-o na janela do módulo aberta.
VBA: Eliminar Workbook Atual sem o fechar 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 Sub3. Prima a tecla F5 ou o botão Executar para executar este VBA.
Notas:
(1) Este VBA pode eliminar o livro atual, mas não consegue fechar a janela do Excel. Caso não reste nenhum livro aberto após a eliminação do livro atual, feche manualmente a janela do Excel.
(2) Se a pasta de trabalho atual nunca tiver sido guardada anteriormente, este VBA não a conseguirá eliminar. No entanto, pode eliminar diretamente esta pasta não guardada ao fechá-la.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos