Como seguir um hiperlink para uma planilha oculta no Excel?
Por exemplo, eu tenho uma pasta de trabalho que contém várias planilhas, a primeira planilha mestre tem hiperlinks para outras planilhas e agora, oculto todas as planilhas, exceto a primeira. Nesse caso, os hiperlinks vinculados a planilhas ocultas não estão disponíveis. Mas, como você poderia fazer esses hiperlinks funcionarem com sucesso? Quando você clica em um hiperlink, a página oculta vinculada é aberta de uma só vez, conforme mostrado a seguir:
Siga o hiperlink para abrir a página oculta com o código VBA
Siga o hiperlink para abrir a folha oculta e, em seguida, esconda-a novamente com o código VBA
Siga o hiperlink para abrir a página oculta com o código VBA
O código VBA a seguir pode ajudá-lo a abrir a planilha oculta ao clicar em seu hiperlink relativo, faça o seguinte:
1. Clique com o botão direito na guia da planilha que você deseja seguir o hiperlink para a planilha oculta e escolha Ver código a partir do menu de contexto, no pop-out Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código no módulo em branco:
Código VBA: siga o hiperlink para abrir a 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
Note: No código acima, o número 1 neste Se Target.Column = 1 Then script indica o número da coluna que contém os hiperlinks, altere-o conforme sua necessidade.
2. Em seguida, salve e feche esta janela de código, agora, ao clicar no hiperlink que vincula à folha oculta específica, a folha oculta será aberta imediatamente.
Siga o hiperlink para abrir a folha oculta e, em seguida, esconda-a novamente com o código VBA
Às vezes, você precisa seguir o hiperlink para abrir a planilha oculta e, ao voltar para a planilha mestre, deseja que a planilha aberta fique oculta novamente. O código VBA abaixo pode lhe fazer um favor:
1. Clique com o botão direito na guia da planilha que você deseja seguir o hiperlink para a planilha oculta e escolha Ver código a partir do menu de contexto, no pop-out Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código no módulo em branco:
Código VBA: siga o hiperlink para abrir a página oculta quando voltar e 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 o anúncio e feche a janela de código, ao clicar no hiperlink, a planilha oculta vinculada será aberta imediatamente, mas, se você voltar à planilha mestre que contém os hiperlinks, a planilha aberta será ocultada automaticamente novamente.
Note: Esses códigos são aplicados apenas aos nomes das planilhas que correspondem ao texto do hiperlink.
Demonstração: siga o hiperlink para abrir a folha oculta com o código VBA
Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
