Uma macro do Excel para ocultar tudo, exceto a planilha ativa

Você pode querer ocultar as planilhas inativas com esta macro. O Excel não permite ocultar todas as planilhas de uma pasta de trabalho; pelo menos um deve ser exibido. No entanto, você pode ocultar tudo, exceto a planilha ativa.

Como funciona a macro

A macro aqui percorre as planilhas e combina cada nome de planilha com o nome da planilha ativa. Cada vez que a macro faz um loop, ela oculta qualquer planilha incomparável.

Sub Macro1 ()
'Passo 1: Declare suas variáveis
    Dim ws como planilha
'Etapa 2: comece a percorrer todas as planilhas
    Para cada ws neste livro de trabalho.Fichas de trabalho
'Etapa 3: Verifique o nome de cada planilha
    Se ws.Name <> ThisWorkbook.ActiveSheet.Name Then
'Passo 4: Ocultar a folha
    ws.Visible = xlSheetHidden
    Fim se
'Etapa 5: Loop para a próxima planilha
    Próximo ws
End Sub

A etapa 1 declara um objeto chamado ws. Esta etapa cria um contêiner de memória para cada planilha que a macro percorre.

A etapa 2 inicia o loop, informando ao Excel para avaliar todas as planilhas nesta pasta de trabalho. Observe a diferença entre ThisWorkbook e ActiveWorkbook. O objeto ThisWorkBook se refere à pasta de trabalho que contém o código. O objeto ActiveWorkBook se refere à pasta de trabalho atualmente ativa. Eles geralmente retornam o mesmo objeto, mas se a pasta de trabalho que executa o código não for a pasta de trabalho ativa, eles retornam objetos diferentes. Nesse caso, você não quer correr o risco de ocultar planilhas em outras pastas de trabalho, então use ThisWorkBook.

Na etapa 3, a macro simplesmente compara o nome da planilha ativa com a planilha que está sendo executada no momento.

Se os nomes das planilhas forem diferentes, a macro ocultará a planilha na Etapa 4.

Na Etapa 5, você volta para obter a próxima folha. Depois que todas as folhas são avaliadas, a macro termina.

Observe que você usa xlsheetHidden em sua macro. Esta propriedade aplica o estado de ocultação padrão que você normalmente obteria ao clicar com o botão direito do mouse em uma folha e selecionar Ocultar. Neste estado de ocultar padrão, um usuário pode clicar com o botão direito em qualquer guia e escolher Reexibir, que exibe todas as folhas ocultas. Mas outro estado de esconder é mais clandestino do que o padrão. Se você usar xlSheetVeryHidden para ocultar suas planilhas, os usuários não conseguirão vê-las de forma alguma - mesmo se clicarem com o botão direito do mouse em uma guia e escolher Reexibir. A única maneira de reexibir uma planilha oculta dessa maneira é usar o VBA.

Como usar a macro

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

Ative o Editor do Visual Basic pressionando Alt + F11.

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

Escolha Inserir → Módulo.

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

Leave a Comment

12 Atalhos de teclas de função do Word 2016

12 Atalhos de teclas de função do Word 2016

Descubra os principais atalhos de teclado do Word 2016 para melhorar sua produtividade. Desde o uso das teclas de função até rápidas combinações de atalhos.

Apagar desenhos de caneta e marca-texto nos slides do PowerPoint

Apagar desenhos de caneta e marca-texto nos slides do PowerPoint

Aprenda como apagar desenhos de caneta e marca-texto nos slides do PowerPoint para manter suas apresentações sempre organizadas e profissionais.

Como remover campos e itens calculados de uma tabela dinâmica do Excel

Como remover campos e itens calculados de uma tabela dinâmica do Excel

Você pode remover facilmente campos e itens calculados de uma tabela dinâmica do Excel. Siga os passos simples para gerenciar seus dados de forma eficiente!

Como usar o recurso de documento mestre do Word 2019

Como usar o recurso de documento mestre do Word 2019

Descubra como usar o recurso de documento mestre do Word 2019 para organizar grandes documentos de forma eficiente e otimizar a edição. Ideal para romances e textos longos.

Smartsheet 9.1.1

Smartsheet 9.1.1

Smartsheet é uma plataforma de trabalho dinâmica que permite gerenciar projetos, criar fluxos de trabalho e colaborar com sua equipe.

SharePoint

SharePoint

SharePoint é um sistema de colaboração baseado na web que usa uma variedade de aplicativos de fluxo de trabalho, bancos de dados de “lista” e outros componentes da web, bem como recursos de segurança para dar controle ao trabalho conjunto de grupos empresariais.

Calendário Perpétuo 1.0.38/1.0.36

Calendário Perpétuo 1.0.38/1.0.36

Van Nien Calendar é um aplicativo de visualização de calendário em seu telefone, ajudando você a ver rapidamente a data lunisolar em seu telefone, organizando assim seu trabalho importante.

Microsoft Outlook 2021

Microsoft Outlook 2021

O Microsoft Outlook é um aplicativo comercial e de produtividade desenvolvido pela Microsoft Corporation.

Clique para cima

Clique para cima

ClickUp é uma das plataformas de produtividade mais bem avaliadas para qualquer empresa. Grandes empresas como Google, Booking.com, San Diego Padres e Uber usam ClickUp para aumentar a produtividade no local de trabalho.

Visualizador PDF-XChange 2.5.322.10

Visualizador PDF-XChange 2.5.322.10

PDF se tornou um formato comumente usado para leitura, criação e envio de documentos de texto. Por sua vez, tem havido um aumento no número de programas utilizados para este tipo de documentação. PDF-XChange Viewer está entre um número crescente de visualizadores de PDF.