Como fazer um hiperlink para uma planilha oculta?

Question

E aí pessoal!

To montando uma planilha aqui, mas nessa planilha, precisa abrir muitas abas com dados de relatórios. Eu tentei ocultar as planilhas, e criar um hiperlink pra elas, mas o hiperlink não abre as planilhas ocultas... Alguém sabe se tem uma jeito de fazer isso?

Valeu!

Answer 1

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim ws As Worksheet

If Not Intersect(Target.Parent, Range("A1")) Is Nothing Then

Set ws = ThisWorkbook.Sheets(Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1))

ws.Visible = xlSheetVisible

ws.Activate

End If

End Sub

Answer 2

Leonardo, uma vez precisei disto e resolvi usando um botão associado a uma macro que desprotege a planilha e a ativa.

A macro pode ser feita simplesmente usando o gravador, sem necessidade de escrever código.

Answer 3

(considerando que seu hyperlink está na célula A1, para o exemplo acima)

Answer 4

Esta codificação copio para cada pasta que ficará oculta?

Sou um pouco leigo em VBA ainda.

Obrigado!

Answer 5

Olá,

Fiz os testes e realmente não é possível, uma vez que a planilha, estando oculta, não é exibida como indicador ao criar um hiperlink.

Espero ter ajudado.

Até mais!!!