Macro para fechar todas Pastas de Trabalho do Excel

Bem vindo (a) a mais uma super dica de Excel. Nesse pequeno artigo vou apresentar para você uma macro para fechar todas as Pastas de Trabalho do Excel.

O código é bem simples!

Primeiramente copie o código abaixo e cole em um módulo do seu VBE.

Caso não saiba como fazer isso, acesse esse link O que é e como usar o editor de VBA do Excel para uma pequena aula.

Sub FecharPastasDeTrabalho()
Dim wbs As Workbook
For Each wbs In Workbooks
wbs.Close SaveChanges:=True
Next wbs
End Sub

Explicando o código para fechar todas Pastas de Trabalho

Em primeiro lugar declaramos a variável wbs como uma Pasta de Trabalha (Workbook).

Em seguida usamos um loop For Each para que percorra todas as pastas de trabalho e feche todas com o método Close.

E para finalizar atribuímos à propriedade SaveChanges como True (Verdadeiro), para que caso haja alguma modificação no arquivo ele seja salvo antes.

Conclusão

Através deste código de Macro para fechar todas Pastas de Trabalho do Excel você poderá fechar com apenas um comando várias pastas de trabalho abertas.

E aí? Você conhece algum outro código parecido?

Comente aí embaixo, vamos adorar!

Abraços e até a próxima!

Tags: close | código | fechar | macro | pasta de trabalho | vba | workbook