Mauro, recebeu o e-mail.

Consegui congelar a tela.
Agora estou com aquele problema dos hiperlinks, quando eu abro o tela novamente o hiperlink não funciona.
O que pode ser?

Alexandre,

Caso você puder me dar uma força eu agradeço, sobre os hiperlinks.

Ferreira, como eu citei anteriormente, eu não entendi onde e porque quer congelar as telas.

Mas vai uma dica importante: Devemos ter muito cuidado ao utilizar algumas Propriedades, tipo :
ScreenUpdating, EnableEvents entre outras, pois, uma vez definidas como FALSE no inicio, se não revetermos a condição na linha correta não obtemos o resultado esperado.

Então verifique onde colocou as "ScreenUpdating" como False e veja se não esqueceu de retornar como TRUE, na duvida desabilite todas as "ScreenUpdating" que adicionou e rode novamente, se os links funcionarem, é poruqe temos alguma instrução no lugar erraddo.

Lembre-se a Propriedade ScreenUpdating, conforme a ajuda VBA : "Desativa a atualização da tela para acelerar o código de sua macro. Você não poderá ver o que a macro está fazendo, mas ela será executada mais rapidamente.

Não se esqueça de definir a propriedade ScreenUpdating novamente para True quando a macro terminar.", ouseja, pode ser que o hyperlink esteja funcionando, mas como não defiiu com TRUE novamente da a impressão que não funcionou pois não é exibido o resultado.

[]s

Mestre Mauro

Eu congelei a tela pelo congelar painéis, sem código VBA. Funcionou certinho.
Acho eu, o seu nobre comentário foi retratando sobre o a trava em VBA da tela?

E agora, sabendo que esta sendo travado pelo congelar painéis, e mesmo antes, não esta funcionando os hiperlinks, ao não ser que eu entre em cada usuário, para ele ativar no cenário do edit do hiperlink.

Sobre a sua dica de a planilha executar um log de hiperlink, para deixar registro sempre, é possível realizar nesta planilha.
Devido todos os hiperlinks estarem em formato de forma, então terei problemas com todos, se eu fize-se os links em células direto, o problema iria persistir?

Ferreira, agora você acendeu uma luzinha no fim do túnel, veja você comentou sobre "Congelar Telas", o Alexandre postou a instrução sobre a propriedade "ScreenUpdating", você continuou o assunto sobre esta propriedade, e eu pensei que estavamos falando sobre isto, mas agora você disse que é a opção "congelar painéis", são duas coisas totalmente diferentes, neste caso eu recomendo utilizar a Propriedade ScrollArea, veja na ajuda do VBA :
"Retorna ou define o intervalo onde se permite rolagem, como uma referência de intervalo em estilo A1. As células fora da área de rolagem não podem ser selecionadas. String de leitura/gravação."

Exemplificando, na aba "DIRETORIA" adicione a rotina :

Private Sub Worksheet_Activate()
    Worksheets("DIRETORIA").ScrollArea = "A1:X31"
End Sub

A mesma impede que se selecione qualquer celula que esteja fora das definidas na rotina e consequentemente não é possivel utilizar as barras de rolagem, para retornar ao normal, apague os ranges na rotina eixando somente as Aspas.

Quanto ao Hyperlink, não é que o mesmo não funciona, o problema é que os links estão direcionando para abas que estão Ocultas, é preciso torna-las visiveis antes.

Quanto a questão dos Shapes, de fato a dica que passei sobre os links estarem direto nas celulas é mais interessantes do que deixa-las associadas às Autoformas, é mais simples lidar com os objetos ranges do que os Shapes, e como em seu modelo você utiliza vários Shapes, tem de se ter rotinas bem elaboradas para se capturar em qual Shape estamos clicando para depois redireciona-lo para alguma rotina. Você pode deixar os Hyperlinks nas Celulas e colocar os Shapes só para enfeitar, sem atividade.

[]s

Mauro

Irei congelar pelo seu código, Obrigado.

Eu refiz a planilha, e não desativei as abas, e ela esta funcionando corretamente.
O que eu fiz sobre as abas, eu selecionei a barra de rolagem, e coloquei por cima das abas.
O que eu posso fazer, sem ter o mesmo problema novamente.

Mauro

Irei congelar pelo seu código, Obrigado.

Eu refiz a planilha, e não desativei as abas, e ela esta funcionando corretamente.
O que eu fiz sobre as abas, eu selecionei a barra de rolagem, e coloquei por cima das abas.
O que eu posso fazer, sem ter o mesmo problema novamente.

ferreira, agora você me confundiu de vez, o que quer dizer com :
não desativei as abas e
eu selecionei a barra de rolagem, e coloquei por cima das abas ?

Me desculpe pela mau entendimento, mas sinceramente não compreendi.

[]s

Caro mestre Mauro

Sobre as abas, eu não coloquei o código para deixar elas "invisiveis", desabilitada, como estava antes.
Sobre a barra de rolagem, eu selecionei ela e arrastei por cima das abas.

ferreira, grato pela explicação, agora entendi, eu ainda não fiz relação entre Desativado e Ocultada.

Voltando a esta questão, e dando mais uma olhada no exemplo que tinha aqui, percebi que os Hyperlinks nas Autoformas da aba "Diretoria", levam para outras abas no proprio arquivo, e se a intenção é deixar estas outras abas ocultas, em vez de usarmos Hyperlinks nas Autoformas, poderia se criar rotinas para que nos levam às abas que queremos, Exibindo a mesma e depois Ocultando quando voltarmos para a aba principal, tipo :

Sub AcessaAbaManutencao()

    With Worksheets("MANUTENÇÃO")
        .Visible = True
        .Activate
    End With
  
End Sub

Sub VoltarDiretoria()

    With Worksheets("MANUTENÇÃO")
        .Visible = xlSheetVeryHidden
    End With
    
    Worksheets("DIRETORIA").Activate
    
End Sub

Lógicamente, podemos construir e ajustar as rotinas acima para todas as abas, estas foram somente um exemplo.

[]s

Se eu entendi, quando o usuário logar com a senha, a aba fica ativa para ele, estou correto?

Se analisar melhor seu exemplo, você já utiliza este tipo de ação.

Na aba LOGIN, no Botão associado ao TextBox "DIRETORIA" onde se digita a senha, ao clicarmos no mesmo, é verificado a Senha e se estiver correta, torna a aba "diretoria" Visivel e seleciona a mesma :

Private Sub CommandButton1_Click()
    If TextBox1.Text = "111" Then
        TextBox1.Text = Clear
        Sheets("DIRETORIA").Visible = True 'Torna a aba Visivel
        Sheets("DIRETORIA").Select
    Else
        TextBox1.Text = Clear
        MsgBox ("Senha incorreta solicitar Sec. Técnica")

    End If

End Sub

Então no Botão LOGO onde clicamos prara Retornar a aba LOGIN, associariamos a macro abaixo :

Sub VoltarLogin()

    With Worksheets("DIRETORIA")
        .Visible = xlSheetVeryHidden 'Ocultamos a aba
    End With
   
    Worksheets("LOGIN").Activate
   
End Sub

[]s