Reexibir todas as planilhas ocultas - Excel

É estranho que ainda não tenha sido implementado a função de reexibir varias planilhas de uma só vez....

Mas se você é como eu e depende de varias planilhas para gerar um resultado, mas na hora de enviar essas bases de dados precisam estar ocultar e não que ficar tendo trabalho todo mês, vai precisar de uma solução, que diríamos é “pratica.


A solução aparentemente mais viável seria um 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 mínimo uma célula ativa”
Sheets(i).Visible = -1
Next i
End Sub

Lembrando que na parte do código que contem 0 "For i = 1 to 5" o 5 é referente a quantidade de planilhas que vão ser reexibidas, se este numero for maior que a quantidade de planilhas ocultas, pode dar uma mensagem de erro, mas sem problemas ele já fez o que deveria fazer.

Execute o Código

Agora feche o Construtor e confira o resultado obtido.

Todas as planilhas foram reexibidas.

Para ocultar, acredio que vale apenas se for realmente necessário, pois é possível selecionar e ocultar, somente as que são necessárias.