Como seguir um hiperlink para uma planilha oculta no Excel?
Se você tem uma pasta de trabalho com várias planilhas e deseja usar hiperlinks em uma planilha mestre para navegar até planilhas ocultas, perceberá que os hiperlinks se tornam inativos assim que as planilhas são ocultadas. Para resolver isso, você pode usar o código VBA para garantir que, ao clicar em um hiperlink, a planilha oculta correspondente seja aberta automaticamente. Este artigo fornece instruções passo a passo para alcançar essa funcionalidade e até oferece a opção de reocultar a planilha após retornar à planilha mestre.
Seguir hiperlink para abrir planilha oculta com código VBA
Seguir hiperlink para abrir planilha oculta e depois ocultá-la novamente com código VBA
Seguir hiperlink para abrir planilha oculta com código VBA
O seguinte código VBA pode ajudá-lo a abrir a planilha oculta ao clicar no hiperlink relacionado; siga estas etapas:
1. Clique com o botão direito na guia da planilha onde deseja seguir o hiperlink para a planilha oculta e escolha Visualizar Código no menu de contexto. Na janela Microsoft Visual Basic for Applications que aparecerá, copie e cole o seguinte código no módulo em branco:
Código VBA: Seguir hiperlink para abrir planilha oculta:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column = 1 Then
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End If
Application.ScreenUpdating = True
End Sub
Observação: No código acima, o número 1 neste script If Target.Column = 1 Then indica o número da coluna que contém os hiperlinks; altere-o conforme necessário.
2. Em seguida, salve e feche esta janela de código. Agora, quando você clicar em um hiperlink vinculado a uma planilha oculta específica, a planilha será aberta imediatamente.
Seguir hiperlink para abrir planilha oculta e depois ocultá-la novamente com código VBA
Às vezes, você precisa seguir o hiperlink para abrir a planilha oculta e, ao voltar para a planilha mestre, quer que a planilha aberta seja ocultada novamente. O código VBA abaixo pode ajudá-lo nisso:
1. Clique com o botão direito na guia da planilha onde deseja seguir o hiperlink para a planilha oculta e escolha Visualizar Código no menu de contexto. Na janela Microsoft Visual Basic for Applications que aparecerá, copie e cole o seguinte código no módulo em branco:
Código VBA: Seguir hiperlink para abrir planilha oculta e, ao voltar, ocultá-la novamente:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub
2. Em seguida, salve e feche a janela de código. Quando você clicar no hiperlink, a planilha oculta vinculada será aberta imediatamente, mas, se você voltar para a planilha mestre que contém os hiperlinks, a planilha aberta será ocultada automaticamente novamente.
Observação: Esses códigos só se aplicam a nomes de planilhas que correspondem ao texto do hiperlink.
Demonstração: Seguir hiperlink para abrir planilha oculta com código VBA
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!