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.


29 comentários:

  1. EXCELENTE! Muito obrigado!

    ResponderExcluir
  2. Anderson
    Oh deu certinho cara!!!!!!

    Valeu mesmo

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

    ResponderExcluir
  4. 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

    ResponderExcluir
  5. 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.

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

    ResponderExcluir
  7. Outra variação simples:

    Sub Macro1()
    '
    ' Macro1 Macro
    '

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

    End Sub

    ResponderExcluir
  8. Muito Bom! Obrigada!!!

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

    ResponderExcluir
  10. 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?

    ResponderExcluir
  11. 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?

    ResponderExcluir
  12. Mandou bem colego, muito obrigado!

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

    Obrigada!!!

    ResponderExcluir
  14. Muito bom! estão de parabéns.

    ResponderExcluir
  15. 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

    ResponderExcluir
  16. 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...

    ResponderExcluir
  17. Parabéns e obrigado por compartilhar conhecimento.

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

    Poderia me ajudar

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

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

    ResponderExcluir
  21. VLw cara, muito obrigado...

    ResponderExcluir
  22. Melhor que achei
    400 abas era p matar.

    ResponderExcluir
  23. Não seria mais fácil a Microsoft adicionar um botão "Reexibir todas" na janela?

    ResponderExcluir