Boa tarde!!

Enquanto o pessoal não responde, poderia postar seu arquivo compactado?

Att

Segue arquivo.
http://www.sendspace.com/file/qczdo2

Muito grande para anexar pelo forum.

Boa tarde!!

Eu não entendi, ao tentar logar com os 3 usuários eu não tive problema!
Att

Bom ja que vc verificou e nao achou erro nesse arquivo vou dar mais uma vasculhada aqui.

Não queria postar meu arquivo completo aqui esse e o original.

se vc poder me ajudar lhe mando o link dele com as senhas por mp para vc verificar

Boa tarde!!

Sinta se a vontade!

Att

Private Sub cmdEntrar_Click()
         If txtLogin = "" Then
            MsgBox "Digite o nome do usuário !"
            Exit Sub
            txtLogin.SetFocus
        Else
          If txtSenha = "" Then
                MsgBox "Digite a senha do usuário !"
                Exit Sub
                txtSenha.SetFocus
          End If
        End If

        col = 1
        lin = 2
        While (Plan2.Cells(lin, col) <> txtLogin)
            lin = lin + 1
            If lin > 50 Then
                MsgBox "Usuário não esta cadastrado"
                Exit Sub
            End If
        Wend

        Dim senha As String
        lin = 2
        col = 2
        senha = Plan2.Cells(lin, col).Value

        If txtSenha <> senha Then
            MsgBox "A senha não confere !!"
            Exit Sub
        Else
            MsgBox "Seja Bem Vindo " & txtLogin
            lin = 2
            col = 1
            While (Plan4.Cells(lin, col) <> "")
                lin = lin + 1
            Wend
            Plan4.Cells(lin, 1) = txtLogin.Value
            Plan4.Cells(lin, 2) = txtSenha.Value
            Plan4.Cells(lin, 3) = Date
            Plan1.Visible = xlSheetVisible
            Sheets("Plan1").Activate
            ActiveWindow.DisplayWorkbookTabs = False
            Hide
        End If
End Sub

Esse codigo está fazendo o seguinte ele não está lendo todas as senhas da coluna B. Ele esta lendo so a primeiro.

Tipo usuario ragnobo senha 123 ele lê de boa.
usuario riscado senha 12345 ele diz que a senha e invalida e se coloco a senha do ragnobo ele loga de boa.

Bom dia!!

Deixa eu te fazer uma pergunta, esses usuários usará a planilha no mesmo PC, ou será usuários diferentes em PC's diferentes??

Att

Mesmo pc

Boa tarde!!

Veja se é isso
http://www.youtube.com/watch?v=V4Ab3m_DcwI

Obs: Não testado!

Att

Boa tarde!!
tente...
http://www.sendspace.com/file/4oz16c

Att

Vlw mano era isso mesmo so ta dando um pequeno errinho ele declara falso depois de clikar no botão entrar.

ragnobo

Malz pelo duplo mais eu mesmo resolvi.

Achei o erro nessa parte do codigo.

Dim senha As String
        lin = 2
        col = 2
        senha = Plan2.Cells(lin, col).Value

Ele está afirmando para procurar na linha 2 da coluna 2 foi so eu excluir a lin = 2 que resolvi o problema.

Agradeço a todos que tentaram me ajudar.

Obrigado