Como fechar rapidamente todos os livros exceto o ativo?
Se tem vários livros abertos no seu computador e pretende fechar todos, exceto o livro ativo, será que existem formas rápidas de o fazer sem ter de os encerrar um a um? Neste artigo, revelo-lhe algumas soluções simples para resolver este problema com apenas um clique.
Fechar todos os livros exceto o ativo com código VBA
Fechar todos os livros exceto o ativo com Office Tab
Fechar todos os livros exceto o ativo com código VBA
Com o seguinte código VBA, pode fechar rapidamente todos os livros abertos, exceto o livro ativo. Siga estes passos:
1. Ative o livro que pretende manter aberto.
2. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Fechar todos os livros exceto o ativo
Private Sub CloseOtherWorkbook()
'Updateby Extendoffice
Dim xWB As Workbook
Application.ScreenUpdating = False
For Each xWB In Application.Workbooks
If Not (xWB Is Application.ActiveWorkbook) Then
xWB.Close
End If
Next
Application.ScreenUpdating = True
End Sub
4. Em seguida, prima a tecla F5 para executar este código. Assim que o fizer, todos os outros livros serão fechados imediatamente, permanecendo apenas o livro ativo.
Fechar todos os livros exceto o ativo com Office Tab
Se estiver interessado num novo produto – Office Tab – este permite-lhe abrir vários documentos ou ficheiros numa única janela com separadores. Com ele, pode fechar todos os livros exceto o ativo com apenas um clique. Saiba mais e descarregue o Office Tab.
Após instalar o Office Tab, verá que todos os livros abertos são apresentados numa única janela com separadores, conforme mostra a imagem:
Em seguida, clique no Nome da Pasta de Trabalho que pretende manter aberto, clique com o botão direito do rato no respetivo separador e escolha Fechar Outrosno menu de contexto, conforme mostra a imagem:
Depois disso, verá que apenas o seu livro de trabalho atual está aberto.
Artigo relacionado:
Como fechar rapidamente todos os livros abertos no Excel?
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