Excel Sistema de login com contador de tentativas

[Igor F.]

Bom dia,

estou fazendo um simples código de um sistema de login com contador de logins, porém estou tendo alguns probleminhas:

 

1. Quando erro da primeira vez o form trava e fecha o excel

2. Não aparece a quantidade de tentativas que ainda tenho

 

O que eu queria: 

Ao logar, terei 3 tentativas, caso a pessoa erre todas, o excel fechará e salvará a planilha.

 

Private Sub btnentrar_Click()
    Dim t As Integer

    t = 3
    If Me.txtsenha = "cruzeiro2018" Then
        Me.Hide
        Sheets("MENU").Select
        Sheets("ACESSANDO").Visible = False
        Application.DisplayFullScreen = False
    Else
        If t = 0 Then
            t = t - 1
            Me.txtsenha.Text = ""
            MsgBox "Senha invalida, tentativas restantes: " & t
            Exit Sub
        Else
            
            Application.DisplayAlerts = False
            ThisWorkbook.Save
            t = 3
            ThisWorkbook.Close
        End If
    End If
End Sub

Private Sub btnentrar_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub

Private Sub UserForm_Initialize()
    Me.txtsenha.Text = ""
End Sub

O que tem de errado no código?

[4hosanaj]

Bom dia Igor,

 

Altere o primeiro código para esse aí:

 

Private Sub btOK_Click()
Static contador As Integer
contador = contador + 1
    
    If cdSenha = "BaiBai" Then
        Inserir_Data_
        Call Sistema
    ElseIf contador >= 3 Then
        MsgBox "Tentativas Excedidas, Por favor Verifique a Palavra-Chave Correcta!", vbCritical, "Atenção!"
        Unload UserForm1
        Exit Sub
    Else
        'contador = contador + 1
        MsgBox "Palavra-Chave Incorrecta, Dispõe de mais " & 3 - contador & " tentativas.", vbCritical, "Atenção!"""
        Exit Sub
    End If
    
End Sub