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
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins