Uma macro do Excel para excluir tudo, exceto a planilha ativa - manequins

Às vezes, você pode querer excluir tudo, exceto a planilha ativa em uma pasta de trabalho do Excel. Nessas situações, você pode usar a seguinte macro.

Como a macro funciona

A macro aqui faz um percurso nas planilhas, combinando cada nome da planilha com o nome da folha ativa. Cada vez que os loops macro, ele exclui qualquer planilha incomparável. Observe o uso da propriedade DisplayAlerts na Etapa 4. Isso efetivamente desativa os avisos do Excel para que você não precise confirmar cada exclusão.

Sub Macro1 () 'Etapa 1: Declare suas variáveis ​​Dim ws As Worksheet' Etapa 2: Comece a fazer o loop em todas as planilhas para cada ws no ThisWorkbook. Folhas de trabalho Etapa 3: Verifique cada nome da planilha Se ws. Nome ThisWorkbook. ActiveSheet. Nome e depois 'Etapa 4: Desative avisos e exclua o aplicativo. DisplayAlerts = falso ws. Excluir o aplicativo. DisplayAlerts = True End If 'Etapa 5: Loop para a próxima planilha Próxima ws End Sub

A macro primeiro declara um objeto chamado ws. Esta etapa cria um recipiente de memória para cada planilha que acompanha.

Na Etapa 2, a macro começa a se desligar, dizendo ao Excel que avaliará todas as planilhas neste livro. Existe uma diferença entre o ThisWorkbook e o ActiveWorkbook. O objeto ThisWorkBook refere-se ao livro que contém o código. O objeto ActiveWorkBook refere-se à pasta de trabalho atualmente ativa. Eles geralmente retornam o mesmo objeto, mas se a pasta de trabalho executando o código não for a pasta de trabalho ativa, eles retornam objetos diferentes. Nesse caso, você não deseja arriscar a exclusão de folhas em outras pastas de trabalho, então você usa o ThisWorkBook.

Na etapa 3, a macro simplesmente compara o nome da folha ativa com a folha que está sendo feita em loop.

Na etapa 4, se os nomes das folhas são diferentes, a macro exclui a folha. Conforme mencionado, você usa DisplayAlerts para suprimir todas as verificações de confirmação do Excel. Se você quiser ser avisado antes de excluir as folhas, você pode omitir o aplicativo. DisplayAlerts = False. Omitir a indicação DisplayAlerts assegurará que você receba a mensagem mostrada, permitindo que você anule a decisão de excluir planilhas.

Na etapa 5, a macro segue para obter a próxima folha. Depois de todas as folhas serem avaliadas, a macro termina.

Omita a instrução Display-Alerts para ver mensagens de aviso.

Como usar a macro

Para implementar esta macro, você pode copiá-la e colá-la em um módulo padrão:

1. Ative o Editor do Visual Basic pressionando Alt + F11.

2. Clique com o botão direito do mouse no nome do projeto / pasta de trabalho na janela do projeto.

3. Escolha Inserir → Módulo.

4. Digite ou cole o código no módulo recém-criado.

Quando você usa o ThisWorkbook em vez do ActiveWorkbook em uma macro, você não pode executar a macro a partir da pasta de trabalho de macro pessoal. Por quê? Como o ThisWorkbook se referia à pasta de trabalho de macro pessoal, não ao livro a que a macro deveria aplicar.