Uma macro do Excel para fechar todos os livros de uma só vez
Uma das coisas mais irritantes em Excel está fechando muitas pastas de trabalho ao mesmo tempo. Para cada pasta de trabalho que você abriu, você precisa ativar o trabalho, fechá-lo e confirmar a poupança de mudanças. Excel não tem nenhuma maneira fácil de fechá-los todos de uma vez. Este pequeno macro cuida disso aborrecimento.
Como as obras de macro
Nesta macro, a coleção de pastas de trabalho percorre todos os livros abertos. À medida que a macro percorre cada livro, ele salva e fecha-los para baixo:
Sub Macro1 () 'Passo 1: Declare seu wb variablesDim Como Workbook'Step 2: Percorre as pastas de trabalho, salvar e closeFor Cada wb Em Workbookswb.Close SaveChanges: = TrueNext wbEnd Sub
Passo 1 declara uma variável de objeto que representa um objecto de livro. Isso permite que você enumerar através de todos os livros abertos, capturando seus nomes como você vai.
Passo 2 simplesmente percorre os livros abertos, salvar e fechá-los. Se você não quiser salvá-los, alterar o argumento SaveChanges de True para False.
Como usar o macro
O melhor lugar para armazenar esta macro está na sua pasta de trabalho macro pessoal. Desta forma, a macro está sempre disponível para você. A pasta de trabalho macro pessoal é carregado sempre que você iniciar o Excel. Na janela projeto do VBE, é nomeado Personal.xlsb.
Ative o Editor do Visual Basic pressionando Alt + F11.
direita; clique personal.xlb na janela do projeto.
Escolha Inserir-Module.
Digite ou cole o código no módulo recém-criado.
Se você não vê personal.xlb na janela do seu projeto, ele ainda não existe. Você terá que gravar uma macro usando pasta de trabalho macro pessoal como o destino.
Para gravar a macro na pasta de trabalho macro pessoal, abrir a caixa de diálogo Gravar Macro. No Macro loja na lista drop-down, selecione livro pessoal de macros. Em seguida, basta gravar alguns cliques de células e parar a gravação. Você pode descartar a macro gravada e substituí-lo com um presente.