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