Boa noite!!

Tente algo do tipo.

Sub Visivel()
Dim mySheet As Worksheet
For Each mySheet In Worksheets
mySheet.Visible = True
Next mySheet
End Sub

....

Sub Visivel2()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub

Alexandre,
Boa noite !

Tentei os 2 código e ainda nada .

Já tentei de tudo e nada de conseguir exibir essa outra planilha ,

Boa noite!!

A melhor recomendação é, poste seu arquivo COMPACTADO!!!

Alexandre,

Essa planilha não posso postar aqui no fórum pq/ contém algumas informações confidências da minha empresa . Se tivesse como eu postar um esboço, mais nem isso consigo por causa disso .

Mesmo assim vou postar a imagem, quem sabe vc/ não mata o que estar acontecendo .

Veja:

Boa noite!!

Eu não posso adivinha o que contém nela, poste as macros inseridas na mesma, tente verifica na propriedade onde tem o campo Visible para saber se vai está escrito xlVeryHidden e altere para xlVeryVisible, isso só funcionar se não tiver macro capaz de inverte a mantendo oculta.

Att

Segue uma outra planilha de exemplo :

veja se pode me ajudar, acontece a mesma coisa da minha outra plan .

Baixe:

Bom dia!!!

Esse projeto é de sua autoria??..porque não me mandou ele livre, o mesmo está criptografado!!!

Seu livro está protegido, se o projeto é seu,então ao desproteger o livro, vai poder exibir a planilha!!

Att

Boa tarde!

Consegui resolver seu problema.

Deixe seu e-mail que te ajudo.

Muito provavelmente o arquivo (workbook) está protegido. A reexibição das planilhas somente serão possível após a "Desproteção" do mesmo.
Se não lembrar a senha, existem na net diversos programas que se propõe a isso. Veja um em www.straxx.com , é um site comercial, porem disponibiliza um add in grátis para teste/uso individual.