Inserir senha de acesso a planilha

Lembrando que para funcionar perfeitamente devemos colocar em EstaPasta_de_Trabalho
Private Sub Workbook_Open()

senha

End Sub

e no modulo o codigo abaixo


Option Explicit

Sub travar()

Dim Plan As Worksheet

For Each Plan In Worksheets
'Verifica se não é a primeira
If Plan.Name <> "Tela" Then
Plan.Protect "123"
Plan.Visible = xlSheetVeryHidden
End If
Next

End Sub

Sub destravar()

Dim Plan As Worksheet

For Each Plan In Worksheets
'Verifica se não é a primeira
If Plan.Name <> "Tela" Then
Plan.Unprotect "123"
Plan.Visible = xlSheetVisible
End If
Next

End Sub

Sub senha()

Dim txtSenha As String
Dim txtLogin As String

'Em caso de erro, retornará sempre para este ponto
inicio:

txtLogin = InputBox("Informe o login")
txtSenha = InputBox("Informe a senha")

Sheets("Senhas").Select
Range("A2").Select

'Loop que realizará a pesquisa do login
Do While ActiveCell <> Empty
If ActiveCell = txtLogin Then
If ActiveCell.Offset(0, 1) = txtSenha Then
destravar
Exit Sub
Else
MsgBox "Senha incorreta!"
GoTo inicio
End If

End If

'Incremento
ActiveCell.Offset(1, 0).Activate

Loop

MsgBox "Login incorreto!"
GoTo inicio

End Sub


Crie uma planilha chamada Senhas e defina ali seu(s) usuario(s) senhas, a partir da celula A1 (user) e B1(senha)