Como seguir uma hiperligação para uma folha oculta no Excel?
Se tiver um livro com várias folhas de cálculo e quiser usar hiperligações numa folha principal para navegar até folhas ocultas, irá verificar que essas hiperligações ficam inativas assim que as folhas são ocultadas. Para resolver este problema, pode utilizar código VBA que garante que, ao clicar numa hiperligação, a respetiva folha oculta seja automaticamente tornada visível. Este artigo fornece instruções passo a passo para implementar esta funcionalidade e ainda oferece a opção de voltar a ocultar a folha após regressar à folha principal.
Seguir hiperligação para abrir folha oculta com código VBA
Seguir hiperligação para abrir folha oculta e voltar a ocultá-la com código VBA
Seguir hiperligação para abrir folha oculta com código VBA
O seguinte código VBA permite-lhe abrir a folha de cálculo oculta ao clicar na respetiva hiperligação. Siga estes passos:
1. Clique com o botão direito do rato no separador da folha a partir da qual pretende seguir a hiperligação para a folha oculta e, em seguida, selecione Ver Código no menu de contexto. Na janela do Microsoft Visual Basic for Applications que surge, copie e cole o seguinte código no módulo em branco:
Código VBA: Seguir hiperligação para abrir folha 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
Nota: No código acima, o número 1 presente na instrução If Target.Column = 1 Then indica o número da coluna que contém as hiperligações. Altere-o conforme necessário.
2. Em seguida, feche esta janela de código. Agora, ao clicar numa hiperligação que aponta para uma folha oculta específica, esta será imediatamente aberta.
Seguir hiperligação para abrir folha oculta e voltar a ocultá-la com código VBA
Por vezes, precisa de seguir uma hiperligação para abrir uma folha oculta e, ao regressar à folha principal, deseja que a folha previamente aberta volte a ficar oculta. O código VBA abaixo pode ajudá-lo:
1. Clique com o botão direito do rato no separador da folha a partir do qual pretende seguir a hiperligação para a folha oculta e, em seguida, selecione Ver Códigono menu de contexto. Na janela do Microsoft Visual Basic for Applicationsque surge, copie e cole o seguinte código no módulo em branco:
Código VBA: Seguir hiperligação para abrir folha oculta e voltar a ocultá-la ao regressar:
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, guarde e feche a janela de código. Ao clicar na hiperligação, a folha oculta associada será imediatamente aberta. No entanto, ao regressar à folha principal que contém as hiperligações, a folha aberta será automaticamente voltada a ocultar.
Nota: Estes códigos aplicam-se apenas a nomes de folhas que correspondam exatamente ao texto da hiperligação.
Demonstração: Seguir hiperligação para abrir folha oculta com código VBA
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos