Reexibir Todas as Planilhas Ocultas

Hoje me deparei com o problema de ter que reexibir algumas planilhas que eu havia deixado ocultas,mas o problema é que aparentemente o Excel nos da a opção de reexibir apenas uma planilha por vez, o que daria maior trabalho no meu caso por ter varias planilhas.
A solução aparentemente mais viável seria código, abra seu Construtor de Código VBA (Alt + F11) e dê um clique duplo em "EstaPasta_de_trabalho".



Dentro do Construtor digite o seguinte código:

Sub reexibir()

Dim i As Integer
For i = 1 To 5 ' Quantidade de planilhas a ser exibida, Tem que ter no minimo uma célula ativa
Sheets(i).Visible = -1
Next i

End Sub


Lembrando que na parte do código ontem tem "For i = 1 to 5" o 5 é referente a quantidade de planilhas que vão ser reexibidas.
Execute o Código


Agora feche o Construtor e confira o resultado obtido.



Nome do Autor

Sobre o autor

John Vitor Editor Tecla TI. Possui conhecimento em redes de computadores, usuário avançado Windows, programação VBA, Java, Html, Css e especialista Microsoft Office. Trabalha atualmente no Serviço Nacional de Aprendizagem Industrial – SENAI. Leia Mais sobre o autor >>>

24 comentários:

Anderson
Oh deu certinho cara!!!!!!

Valeu mesmo

Muito bom!!!!!!!!!!!!! a 10m anos fico clicando em uma por um, valeu mesmo John Vitor

Se você quiser uma macro que pode ser copiada para qualquer arquivo do Excel sem precisar corrigir o número de planilhas, o código abaixo também funciona:

Sub reexibir()

Dim planilha As Worksheet
For Each planilha In Worksheets
planilha.Visible = xlSheetVisible
Next planilha

End Sub

Abs

Copie a sua macro para reexibir as planilhas ocultas. Está dando a seguinte mensagem:
Erro em tempo de execução 1004. Caso vc tenha a resposta, meu email é ch.conceicao@ig.com.br. Obrigado.

Estou com o mesmo erro: "Erro em tempo de execução 1004." O que devo fazer?
Obrigado

Outra variação simples:

Sub Macro1()
'
' Macro1 Macro
'

For Each planilha In Worksheets
planilha.Visible = True
Next planilha

End Sub

Salvador da pátria, excelente não aguentava mais reexibir 30 planilhas uma a uma....Parabéns

Não estou conseguindo consta a seguinte mensagem "erro de execução 1004", lembrando que as planilhas foram ocultas com senha, porém, devido ao tempo em desuso esqueci a senha é possível reverter?

Não estou conseguindo consta a seguinte mensagem "erro de execução 1004", lembrando que as planilhas foram ocultas com senha, porém, devido ao tempo em desuso esqueci a senha é possível reverter?

Mandou bem colego, muito obrigado!

ótimo!!!
Estou a tempos tentando achar essa função. rs

Obrigada!!!

Muito bom! estão de parabéns.

Gostaria de saber se tem um código que faço o inverso que esse código faz, ao invés de abrir ele feche todas as Abas da planilha.

jcarlosds00@hotmail.com ou jcarlosds1981@gmail.com.

obrigado

Parabéns!!! No meu caso, tinha umas 250 Abas ocultas!!! no lugar de 5 itens eu coloquei para exibir de 100 em 100 rsrsrsrs. Show...

Parabéns e obrigado por compartilhar conhecimento.

Não consigo resolver o meu problema com essa descrição.

Poderia me ajudar

Deu certinho... bem detalhado, mesmo para mim que não conheço muito de scripts.

S-E-N-S-A-C-I-O-N-A-L, meu amigo!
Obrigado!

muito bom, obrigado ajudou demais.

Postar um comentário