Prezados,

Estou precisando de ajuda para corrigir o codigo que segue abaixo,

Quando clico no botal alterar senha, aparece a critica "usurio não cadastrado"

Private Sub alterar_senha_Click()

If Form_login.txt_user = "" Then
MsgBox "Preencha o campo Usuário", vbExclamation, "Erro Login"
txt_user.SetFocus
Exit Sub
End If

If Form_login.txt_senha = "" Then
MsgBox "Preencha o campo senha", vbExclamation, "Erro Login"
txt_senha.SetFocus
Exit Sub
End If

'Salva o usuario logado no sistema
Plan5.Cells(2, 10) = txt_user.Value

Dim linha As Integer

On Error GoTo NaoEncontrado

linha = Sheets("INICIO").Range("B:B").Find(txt_user).Row

If txt_senha = Sheets("INICIO").Cells(linha, 3) Then

AlterarSenha.Show

Else

MsgBox ("Senha incorreta"), vbInformation

txt_senha = ""
txt_senha.SetFocus

End If

Exit Sub

NaoEncontrado:

MsgBox ("Usuário não Cadastrado."), vbInformation

txt_user = ""
txt_senha = ""

txt_user.SetFocus


End Sub