Como fechar e reabrir a pasta de trabalho ativa?

Neste artigo, apresento alguns métodos para fechar e reabrir rapidamente a pasta de trabalho ativa.

Atalho para fechar e reabrir a pasta de trabalho ativa

VBA para fechar e reabrir a pasta de trabalho ativa

Atalho para fechar e reabrir a pasta de trabalho ativa

Aqui estão alguns atalhos que podem fechar e reabrir a pasta de trabalho atual.

Fechar a pasta de trabalho ativa

Alt + F + C

Se houver algumas alterações antes de você fechar a pasta de trabalho, uma caixa de diálogo aparecerá para lembrá-lo se deseja salvar. Pressione a tecla Enter para salvar e fechar a caixa de diálogo.

Reabrir a pasta de trabalho

Alt + F + R +1 para Microsoft Office Professional Plus 2010/2013/2016.

Alt + F+ R + Y1 + Enter para outras versões do Microsoft Office.

VBA para fechar e reabrir a pasta de trabalho ativa

O VBA também pode fechar e reabrir a pasta de trabalho ativa.

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

2. Clique em Inserir > Módulo e cole o código abaixo no script.

VBA: Salvar e fechar e reabrir a pasta de trabalho ativa

Sub SaveCloseReOpen()
'UpdatebyExtendoffice20171128
ThisWorkbook.save
Application.Workbooks.Open(ThisWorkbook.FullName)
End Sub

3. Pressione a tecla F5 para executar o código.

Observação:

Se você quiser fechar e reabrir diretamente a pasta de trabalho ativa sem salvar, use o código abaixo:

Sub Reopen()
'UpdatebyExtendoffice20171128
    ThisWorkbook.Saved = True
    ThisWorkbook.ChangeFileAccess xlReadOnly, , False
    Application.Wait Now + TimeValue("00:00:01")
    ThisWorkbook.ChangeFileAccess xlReadWrite, , True
End Sub