Um excel macro para esconder tudo, mas a planilha ativa
Você pode querer esconder as planilhas inativas com este macro. O Excel não permitem ocultar todas as folhas em um workbook- pelo menos um tem de ser exibido. No entanto, você pode esconder tudo, mas a planilha ativa.
Conteúdo
Como as obras de macro
A macro aqui percorre as planilhas e coincide com o nome de cada planilha para o nome da folha activa. Cada vez que os laços macro, ele esconde qualquer planilha incomparável.
Sub Macro1 () `Passo 1: Declare seus ws variablesDim Como Worksheet`Step 2: Iniciar loop através de todos worksheetsFor Cada ws Em ThisWorkbook.Worksheets`Step 3: Verifique cada planilha nameif ws.Name lt; gt; ThisWorkbook.ActiveSheet.Name Then`Step 4: Ocultar o sheetws.Visible = xlSheetHiddenEnd If`Step 5: Loop para próxima worksheetNext wsEnd Sub
Passo 1 declara um objeto chamado ws. Esta etapa cria um recipiente de memória para cada planilha que a macro percorre.
Passo 2 começa o looping, dizendo Excel para avaliar todas as planilhas nesta pasta de trabalho. Observe a diferença entre ThisWorkbook e ActiveWorkbook. O objecto EsteLivro refere-se ao livro que contém o código. O objecto ActiveWorkbook refere-se à pasta de trabalho actualmente activa. Eles muitas vezes retornar o mesmo objeto, mas se o livro de executar o código não é a pasta de trabalho ativa, eles retornam objetos diferentes. Neste caso, você não quer correr o risco folhas escondendo em outras pastas de trabalho, para que você use ThisWorkbook.
No Passo 3, a macro simplesmente compara o nome da folha activa para a folha que está a ser enrolada.
Se os nomes das folhas são diferentes, a macro oculta a folha no Passo 4.
Na etapa 5, você loop de volta para obter a próxima folha. Depois de todas as folhas são avaliadas, a macro termina.
Video: Ocultar e Exibir Planilha Via Código VBA
Note-se que você usa xlsheetHidden em sua macro. Esta propriedade se aplica a pele padrão estado que normalmente começa quando você direita; clique uma folha e selecione Ocultar. Neste padrão hide estado, um usuário pode direita, clique em qualquer guia e escolha Unhide, que exibe todas as planilhas ocultas. Mas um outro hide Estado é mais clandestina do que o padrão. Se você usar xlSheetVeryHidden para esconder suas folhas, os usuários não serão capazes de vê-los em tudo - mesmo se eles direita; clique em uma guia e escolha Mostrar. A única maneira de mostrar uma folha escondida desta maneira é usar VBA.
Como usar o macro
Para implementar essa macro, você pode copiar e colá-lo em um módulo padrão:
Video: #92 - VBA - Planilhas Compartilhadas, proteção e salvamento dos dados
Ativar o Editor do Visual Basic pressionando Alt + F11.
direito; clique no nome do projeto / pasta de trabalho na janela do projeto.
Video: #26 - Curso de Macros e Excel VBA - Apagar registros
Escolha Inserir → Módulo.
Digite ou cole o código no módulo recém-criado.
Video: Curso de Excel Ocultar e Reexibir Guia Aba na Planilha