Como limpar filtros ao abrir, salvar ou fechar a pasta de trabalho no Excel?
Suponha que você tenha várias planilhas contendo dados filtrados em sua pasta de trabalho. Para limpar todos os filtros, você precisa verificar a lista filtrada em diferentes planilhas e depois limpá-los manualmente um por um. Isso é irritante! Neste artigo, mostraremos vários métodos para limpar filtros ao abrir, salvar ou fechar uma pasta de trabalho no Excel.
Limpar filtros ao abrir a pasta de trabalho no Excel
Limpar filtros ao salvar a pasta de trabalho no Excel
Limpar filtros ao fechar/sair da pasta de trabalho no Excel
Limpar filtros ao abrir a pasta de trabalho no Excel
Esta seção trata da limpeza de filtros em todas as planilhas ao abrir uma pasta de trabalho. Por favor, siga os passos abaixo.
1. Em uma pasta de trabalho onde você precisa limpar automaticamente todos os filtros ao abrir, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em ThisWorkbook no painel Projeto à esquerda, e então copie e cole o código VBA abaixo na janela ThisWorkbook (Código). Veja a captura de tela:
Código VBA: Limpar todos os filtros ao abrir a pasta de trabalho
Private Sub Workbook_Open()
'Updated by Extendoffice 20221012
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.ShowAllData
End If
Next ws
End Sub3. Pressione as teclas Alt + Q para sair da janela Microsoft Visual Basic for Applications.
4. Clique em Arquivo > Salvar Como. Na caixa de diálogo Salvar Como que aparece, especifique uma pasta para salvar esta pasta de trabalho, nomeie-a conforme necessário na caixa Nome do arquivo, selecione a opção Pasta de Trabalho Habilitada para Macro na lista suspensa Especificar Formato de Salvamento e, finalmente, clique no botão Salvar.
A partir de agora, ao abrir esta Pasta de Trabalho Habilitada para Macro, todos os filtros nesta pasta de trabalho serão limpos automaticamente.
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Limpar filtros ao salvar a pasta de trabalho no Excel
Você pode limpar todos os filtros da pasta de trabalho atual toda vez que salvá-la.
1. Na pasta de trabalho da qual você precisa limpar automaticamente todos os filtros, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em ThisWorkbook no painel Projeto à esquerda, e então copie e cole o código VBA abaixo na janela ThisWorkbook (Código). Veja a captura de tela:
Código VBA: Limpar filtros ao salvar a pasta de trabalho
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updated by Extendoffice 20221012
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.ShowAllData
End If
Next ws
End Sub3. Pressione as teclas Alt + Q para sair da janela Microsoft Visual Basic for Applications.
A partir de agora, ao salvar a pasta de trabalho, todos os filtros serão limpos automaticamente.
Limpar filtros ao fechar/sair da pasta de trabalho no Excel
Na última seção, mostraremos como limpar todos os filtros nas planilhas ao fechar ou sair da pasta de trabalho.
1. Abra a pasta de trabalho da qual você precisa limpar automaticamente todos os filtros, depois pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em ThisWorkbook no painel Projeto à esquerda, e então copie e cole o código VBA abaixo na janela ThisWorkbook (Código). Veja a captura de tela:
Código VBA: Limpar todos os filtros nas planilhas ao fechar/sair da pasta de trabalho
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.AutoFilterMode = False
End If
Next ws
End SubObservação: Se você quiser apenas limpar os filtros na planilha atual, use o seguinte código VBA.
Código VBA: Limpar filtro na planilha ativa ao fechar a pasta de trabalho
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20221012
Dim ws As Worksheet
Set ws = ActiveSheet
If ws.AutoFilterMode Then
ws.ShowAllData
End If
End Sub3. Pressione as teclas Alt + Q para sair da janela Microsoft Visual Basic for Applications.
A partir de agora, todos os filtros serão limpos automaticamente após clicar no botão Fechar na pasta de trabalho.
Artigos relacionados:
- Como limpar o cache de filtro (itens antigos) da Tabela Dinâmica no Excel?
- Como limpar filtros de todas as planilhas na pasta de trabalho ativa no Excel?
- Como filtrar dados com base em caixas de seleção no Excel?
- Como preencher uma série de números em uma coluna de lista filtrada no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins