Notifications
Clear all

Hiper Link com senha

7 Posts
3 Usuários
0 Reactions
2,799 Visualizações
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Bom dia

conforme imagem abaixo, gostaria de criar um senha antes que fosse acesso o hiperlink, no caso quando clicar no botão, antes de ir para a aba desejada, teria que colocar uma senha. tem como fazer algo do tipo?
[img][/img]

 
Postado : 01/06/2015 8:32 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!

O recurso de hyperlink é nativo e eu creio não ter essa opção, para tal use uma macro (que além de fazer o que o hyperlink faz, também fará a solicitação da senha).
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/06/2015 8:48 am
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Na vdd preciso de um código para acessar uma aba, entretanto tem colocar uma senha.

 
Postado : 01/06/2015 10:51 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Veja :
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/06/2015 10:53 am
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

os exemplos em anexo estão todos corrompidos

 
Postado : 01/06/2015 11:20 am
Issamu
(@issamu)
Posts: 605
Honorable Member
 

Olá!
Experimente algo deste tipo:

Private Sub Worksheet_Activate()
    
    Dim sSenha As String
    
    Plan1.Activate
    sSenha = InputBox("Código:", "Digite o código para acessar a Plan2")
    
    If sSenha = "1234" Then
        Application.EnableEvents = False
        Plan2.Activate
        Application.EnableEvents = True
    Else
        MsgBox "Código inválido!"
    End If
    
End Sub

Com esse código no evento activate da plan2, você pode criar uma macro simples de ativação da plan2 para funcionar como seu "hyperlink".

Sub hyperlink_Plan2()

Plan2.Activate

End Sub

A senha você define na parte "1234" do código.

Abraços!

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 01/06/2015 12:22 pm
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Boa tarde Issamu

Funcionou, mas tive q tirar o "Private"

Sub Worksheet_Activate()
    
    Dim sSenha As String
    
    Plan1.Activate
    sSenha = InputBox("Código:", "Digite o código para acessar a Plan2")
    
    If sSenha = "1234" Then
        Application.EnableEvents = False
        Plan2.Activate
        Application.EnableEvents = True
    Else
        MsgBox "Código inválido!"
    End If
    
End Sub
 
Postado : 01/06/2015 2:54 pm