Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Login Com Banco De dados Em Excel VBA

Tutoriais elaborados da comunidade
Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Login Com Banco De dados Em Excel VBA

Mensagem por kedim43 »

Beleza Galera.
Estive vendo que a maioria sempre necessita, ao desenvolver uma aplicação de um sistema de Login onde se
possa cadastrar novos usuários e até mesmo senhas.

Então resolvi deixar pra galera, um pequeno sistema de Login em VBA Excel.

Vamos colocar as Mãos No Código.

1º Necessita que você acesse o Excel, seja 2007 ou 2003, ...
2º Renomei a Plan1 para Login...
3º Na Coluna A entre com o Nome de Usuário = ADMIN (este nome Maiusculo, o TextBox já está formatado para faze-lo pra vocês, basta que seja cadastarado em maiusculo dentro da Coluna A da Plan1 que você já renomeou para Login)
4º na Coluna B entre com a Senha = admin. (Desta forma descrita aqui) caso contrario você não irá acessar a sua planilha de dados.
5º Pressione ALT + F11;
6º Insira um Form Novo;

Para este aplicativo você necessitará de 02 textboxs, 02 labels, 02 CommandButton.

Nomes para cada item citados acima (acho que ando muito bom pra vocês)

Para os labels
UserName
Password

Nome para os textboxs
TBx_Usuario
TBx_Senha

Para O Botão de Comando OK
CBt_Ok

e para o segundo Botão de Comando (CommandButton2). insira este código dentro dele;
ThisWorkbook.Close SaveChanges:=True

Onde este comando, salvará e finalizará o seu aplicativo caso alquem tente acessar a mesma sem senha ao clicar em fechar tentando assim, invadir o seu aplicativo.

Galera, agora é o seguinte.
Copie o codigo abaixo depois de remonear cada textbox e cada Botão de acordo com sua necessidade, basta clicar duas vezes no form, delete a instrução que aperecer e
insira este pequeno código aqui:

Código:

Código: Selecionar todos

Private Sub CommandButton2_Click()
ThisWorkbook.Close SaveChanges:=True
End Sub


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 vai algo bem legal de bonus pra todos, iremos desabilitar tambem 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

Já quase me esquecendo
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
Fim do código.

Espero ter ajudado e que todos se sintam a vontade para modificarem o mesmo, conforme suas necessidades.

Para inserir outros usuáros e suas senhas, lhes mostrarem isso em outra oportunidade.

Valeu galera.

Até nosso proximo post.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Login Com Banco De dados Em Excel VBA

Mensagem por webmaster »

Kedim,

Ficou muito bacana. Só mudei o post para ficar com formato de código. Também estou adicionando o arquivo com o código produzido. Assim exemplos não vão faltar.

Abraços e muito obrigado pela colaboração.
Anexos
Tutorial_Login_kedim43.zip
(12.71 KiB) Baixado 628 vezes


Responder