account validation crashed in vba macro

[KhallP]

I have a macro to check if the user has entered the "Username" and the "Password" correctly depending on the data present in another excel file, it happens that I enter the data correctly and the program detects that the password or user is wrong

Private Sub bt_seguinte_Click()

'Oculta as mensagens de erro
lb_erro_usuario.Visible = False
lb_erro_senha.Visible = False


'Inicio da função "Case"
Select Case True
   
'Se ambas as "textboxes" estiverem vazias então...
Case Trim(tb_usuario) = "" And Trim(tb_senha) = ""

    'Ambas as mensagens de erro são mostradas
    lb_erro_usuario.Visible = True
    lb_erro_senha.Visible = True
   
'Se a "textbox" do "Usuário" estiver vazia então...
Case Trim(tb_usuario) = ""

    'A mensagem de erro do "Usuário" é mostrada
    lb_erro_usuario.Visible = True
   
'Se a "textbox" da "Senha" estiver vazia então...
Case Trim(tb_senha) = ""
   
    'A mensagem de erro da "Senha" é mostrada
    lb_erro_senha.Visible = True
   
'Senão...
Case Else

Application.ScreenUpdating = False

Workbooks(OtherBookPath).Sheets("Usuários").Activate

contar_usuarios = Cells(Rows.Count, "B").End(xlUp).Row

For c = 2 To contar_usuarios

    Select Case True
   
    Case tb_usuario.Value = Cells(c, 4).Value
        If tb_senha.Value = ActiveCell.Offset(0, 1).Value Then
            nome_usuario = tb_usuario.Value
            senha = tb_senha.Value
            Unload Me
            Library_Choose.Show

        Else
            lb_erro_senha.Visible = True
            lb_erro_senha.Caption = "*Senha ou Nome de Usuário incorretos"
            Exit For
           
        End If
       
    Case c = contar_usuarios And tb_usuario.Value <> Cells(c, 4).Value
        lb_erro_senha.Visible = True
        lb_erro_senha.Caption = "*Senha ou Nome de Usuário incorretos"
       
    End Select

Next c

Workbooks(CurrentBookPath).Activate
Application.ScreenUpdating = True

End Select
End Sub

I transferred the backup of the previous file I had and the code is similar and works, can someone help me?

Workbooks(OtherBookPath).Sheets("Usuários").Activate

contar_usuarios = Cells(Rows.Count, "D").End(xlUp).Row

For c = 2 To contar_usuarios

    Cells(c, 4).Select
    
    Select Case True
    
    Case nome_usuario = ActiveCell
        If senha = ActiveCell.Offset(0, 1) Then
            Unload Me
            Library_Choose.Show

        Else
            lb_erro_senha.Visible = True
            lb_erro_senha.Caption = "*Senha ou Nome de Usuário incorretos"
            Exit For
            
        End If
        
    Case c = contar_usuarios And nome_usuario <> ActiveCell
        lb_erro_senha.Visible = True
        lb_erro_senha.Caption = "*Senha ou Nome de Usuário incorretos"
              
    Case nome_usuario <> ActiveCell
    End Select

Next c

Workbooks(CurrentBookPath).Activate
Application.ScreenUpdating = True

End Select
End Sub