Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como seguir hiperlink para folha oculta no Excel?

Por exemplo, eu tenho uma pasta de trabalho que contém várias planilhas, a primeira folha mestre possui hiperlinks para outras folhas, e agora escondo todas as folhas, exceto a primeira. Nesse caso, os hiperlinks que se relacionam com folhas ocultas não estão disponíveis. Mas, como você pode fazer esses hiperlinks funcionarem com sucesso? Quando você clica em um hiperlink, a folha escondida vinculada será aberta de uma vez como a próxima captura de tela mostrada:

Doc hiperlink para folha oculta 1

Siga o hiperlink para abrir a folha oculta com o código VBA

Siga o hiperlink para abrir a folha oculta e, em seguida, esconda-o novamente com o código VBA


Liste todos os nomes das planilhas e vincule a cada folha:

Com Kutools for Excel's Criar lista de nomes de folhas utilitário, você pode listar rapidamente todos os nomes das planilhas em uma nova folha com hiperlinks ou botões de macro, conforme você precisa.

nomes de planilha com hiperlinks nomes de planilha com botões de macro
doc-list-worksheet-names2  2 doc-list-worksheet-names2  2 doc-list-worksheet-names2

Siga o hiperlink para abrir a folha oculta com o código VBA


O seguinte código VBA 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 folha que deseja seguir o hiperlink para a folha oculta e escolha Ver código no menu de contexto, no surgido 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 folha oculta:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161109
    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

Doc hiperlink para folha oculta 2

notas: 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, mude sua necessidade.

2. Em seguida, salve e feche esta janela de código, agora, quando você clica no hiperlink que liga à folha escondida específica, a folha oculta será aberta de uma só vez.


Siga o hiperlink para abrir a folha oculta e, em seguida, esconda-o novamente com o código VBA

Às vezes, você precisa seguir o hiperlink para abrir a folha oculta, e quando você voltar a folha mestre, você deseja que a folha aberta seja escondida novamente. O código VBA abaixo pode fazer você um favor:

1. Clique com o botão direito na guia da folha que deseja seguir o hiperlink para a folha oculta e escolha Ver código no menu de contexto, no surgido 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 folha oculta quando voltar esconder novamente:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    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

Doc hiperlink para folha oculta 3

2. Em seguida, guarde o anúncio, feche a janela do código, quando você clicar no hiperlink, a folha escondida vinculada será aberta imediatamente, mas, se você voltar a folha mestre que contém os hiperlinks, a folha aberta será escondida automaticamente novamente.

notas: Estes códigos só são aplicados aos nomes das folhas que correspondem ao seu texto de hiperlink.


Demo: siga o hiperlink para abrir a folha oculta com o código VBA

Kutools for Excel: com mais de 200 complementos úteis do Excel, grátis para tentar sem limitação nos dias 60. Baixe e teste grátis agora!


Kutools for Excel - A Melhor Ferramenta de Produtividade no Escritório Aumenta Sua Produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair texto, Adicionar texto, remover por posição, Remover espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salve e aplique esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro especial por negrito, itálico ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 60.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    I would like to use this code but only want it to apply to column A. I have other web address links in other cells which cause a problem when running this code.
  • To post as a guest, your comment is unpublished.
    DNKP · 2 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 2 years ago
    I'm using the code on two different sheets. It works for one of about 40 hyperlinks on one sheet and it opens two of about 10 hyperlinks one she second, the sheets on the second which do open do go back into hiding when I return to the sheet.

    The error I get when it will not open a sheet is Run-time error"9": script out of range and the code it points me to - Sheets(strLinkSheet).Visible = True

    Any ideas as to what change is needed make the code work on all of the sheets?

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    HelzBelz · 2 years ago
    I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

    Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)
    • To post as a guest, your comment is unpublished.
      Bumi · 2 years ago
      [quote name="HelzBelz"]I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

      Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)[/quote]
      Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I have a sheet that is hidden that contains a hyperlink. I would like to be able go to the hidden sheet and have it close when I go back to the original sheet. I used the code but it does not work.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.