Uma macro do Excel para ocultar todas, mas o ativo planilha
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 folha activa.
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;> 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 neste livro. Observe a diferença entre ThisWorkbook e ActiveWorkbook. O objeto ThisWorkbook refere-se ao livro que contém o código. O objeto ActiveWorkbook refere-se à pasta de trabalho ativa no momento. 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.
Na Etapa 3, a macro simplesmente compara o nome da folha activa para a folha que está actualmente a ser enrolado.
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.
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 dessa maneira é usar VBA.
Como usar o macro
Para implementar essa macro, você pode copiar e colá-lo em um módulo padrão:
Ative o Editor do Visual Basic pressionando Alt + F11.
direita; clique no nome do projeto / pasta de trabalho na janela do projeto.
Escolha Inserir-Module.
Digite ou cole o código no módulo recém-criado.