Domine o Excel ® (3 em 1): Excel - 70 Fórmulas Incríveis, Excel - 51 Macros incríveis e 51 Dicas e Truques Incríveis

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
AbaControle = " Plan3 "
Senha = " 123456 "
Ancora = " Plan1 "
If ActiveSheet.Name = AbaControle Then
Retorno:
SenhaEntrada = InputBox("Digite a senha de acesso para esta aba")
If Senha = SenhaEntrada Then
Exit Sub
Else
resposta = MsgBox("Senha incorreta, Deseja tentar novamente ?",
vbYesNo)
If resposta = 6 Then
GoTo Retorno:
Else
On Error Resume Next
Worksheets(Ancora).Select
End If
End If
End If
End Sub