Se você estiver trabalhando em várias pastas de trabalho ao mesmo tempo e precisar de uma macro para ajudá-lo a ocultar todas as pastas de trabalho inativas, este artigo certamente o ajudará.
Neste artigo, vamos nos concentrar em como podemos ocultar várias pastas de trabalho que você não está usando no momento.
Pergunta: Preciso ocultar rapidamente todos os arquivos do Excel, exceto o que estou usando no momento, para que possa alternar entre outros aplicativos sem problemas. Eu gostaria de buscar o código VBA para este meu requisito exclusivo.
Para obter o código para ocultar todas as pastas de trabalho inativas, precisamos seguir as etapas abaixo para iniciar o editor VB
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
- Copie o seguinte código no módulo de planilha
Sub HideInactiveExcelWorkbooks () Application.ScreenUpdating = False Dim aWin As Window Definir aWin = ActiveWindow Dim win As Window para cada win.Visible = False Next win aWin.Visible = True Application.ScreenUpdating = True End Sub
- O código acima irá esconder todas as pastas de trabalho inativas imediatamente
Observação: a macro acima não ocultará a pasta de trabalho ativa.
Para reexibir todas as pastas de trabalho, precisamos seguir as etapas abaixo:
- Clique na guia Exibir
- Clique em Unhide
- Isto irá mostrar as pastas de trabalho reexibidas
- Selecionar cada um e clicar no botão Ok exibirá a pasta de trabalho
Conclusão: Podemos ocultar centenas de pastas de trabalho que não estão ativas com um único clique usando o código de macro acima.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail