TutoElizeu,

Bom dia!

Veja se é assim.

Bem tenta esse código tela de Login com Multiplos usuários
apenas cadastrar no excel e renomear a planilha para senha

    Private Sub UserForm_Activate()
    'Neste caso você tem a opção de mostrar ou ocultar o excel, basta mudar a instrução TRUE abaixo para False
                Application.Visible = True
 
                TBx_Senha.Enabled = TBx_Usuario.Text <> ""
 
                CBt_Ok.Enabled = (TBx_Usuario.Text <> "" And TBx_Senha.Text <> "")
    End Sub
 
    Private Sub CBt_Ok_Click()
 
                Dim Linha As Integer
 
                On Error GoTo NaoEncontrado
 
                Linha = Sheets("Login").Range("A:A").Find(TBx_Usuario).Row
 
                If TBx_Senha = Sheets("Login").Cells(Linha, 2) Then
 
                   MsgBox ("Seja Bem Vindo (a) ") & TBx_Usuario, vbInformation, ("Login - Live Free")
 
                   Unload Me
 
                   'Tela de acesso ao sistema aqui
                  'Seu Aplicativo será carregado, substituindo esta linha para a que você necessite que seja carregado em primeiro plano (form1,Menu,Dados...Etc)

 
                Else
 
                   MsgBox ("A senha não confere"), vbInformation, ("Login - Live Free")
 
                   TBx_Senha = ""
 
                   TBx_Senha.SetFocus
 
                End If
 
                Exit Sub
 
    NaoEncontrado:
 
                MsgBox ("Usuário não cadastrado."), vbInformation, ("Login - Live Free")
 
                TBx_Usuario = ""
 
                TBx_Usuario.SetFocus
 
    End Sub
 
 
 
    Private Sub TBx_Usuario_Change()
 
                TBx_Senha.Enabled = TBx_Usuario.Text <> ""
 
                CBt_Ok.Enabled = (TBx_Usuario.Text <> "" And TBx_Senha.Text <> "")
 
    'Aqui o código que modifica a letra digitada para a forma maiuscula

    TBx_Usuario.Value = UCase(TBx_Usuario.Value)
    End Sub
 
 
 
    Private Sub TBx_Senha_Change()
 
                CBt_Ok.Enabled = (TBx_Usuario.Text <> "" And TBx_Senha.Text <> "")
 
    End Sub
 
    Private Sub UserForm_Initialize()
    ' Metodo Invisivel do Excel
    Application.Visible = False
 
    TBx_Usuario.SetFocus
    End Sub
 
 
    'Aqui desabilita também o Botão de Fechar no alto do Form, travando o mesmo para não ser finalizado.

    Private Sub UserForm_QueryClose _
      (Cancel As Integer, CloseMode As Integer)
        If CloseMode = vbFormControlMenu Then
 
    'Tente finalizar e veja esta mensagem na tela

            MsgBox "Esta Ação Não É Permitida.Desculpe!", vbInformation, "AVISO - Live Free"
            Cancel = True
        End If
    End Sub
 
     Para que o sistema de login inicie em primeiro lugar, basta ir na opção do lado esquerdo, procure esta instrução:
    -Esta_Pasta_De_Trabalho
    De 02 cliques nela e dentro, cole este codigo:
 
 
    Private Sub Workbook_Open()
    Login.Show
    End Sub

TutoElizeu e lucianorn,

Bom dia!

ATENÇÂO: Solicitamos manter o fórum organizado, inserindo códigos VBA utilizando a TAG CODE localizada na parte superior da caixa de mensagem.

Obrigado a todos pela ajuda!

De nada!

Por favor, vote positivamente clicando na mãozinha que fica ao lado da ferramenta CITAR.

TutoElizeu e lucianorn,

Bom dia!

ATENÇÂO: Solicitamos manter o fórum organizado, inserindo códigos VBA utilizando a TAG CODE localizada na parte superior da caixa de mensagem.

Amigo sou novo aqui, não encontrei a TAG CODE?

Boa noite Luciano

Acima da janela de resposta, na barra de ferramenta, tem o botão com a descrição Code.

Basta clicar no botão e colar as tags, ou se preferir pode digitar

[]s

Patropi - Moderador