Uncategorized Paulo
Como criar uma tela de login no Excel vba!
- Como criar uma tela de login no Excel vba!
Nesse artigo vamos aprender no passo a passo como criar um Tela de login, aproveite para alavancar seus conhecimentos no Excel e também no vba.
Montando o formulário
Devemos inserir um novo formulário e a ele adicionar alguns controles que são:
- 2 Lábel
- 2 Textbox
- 2 CommandButton
Logo após adicionar esses controles ajuste-os no formulário de acordo com seu gosto, se você achar melhor poderá seguir a imagem a baixo.
Renomear Propriedades dos controles
Vamos renomear as propriedades dos nossos controles da seguinte forma, na propriedade caption da Lábel1 vamos mudar seu nome para Usuário.
E a nossa Lábel2 vamos renomear sua propriedade caption para Senha.
A Textbox1 vamos renomear a propriedade Name para usuário, não aconselho colocar acento na palavra quando renomear a propriedade.
E a Textbox2 vamos renomear a propriedade Name para senha
O CommandButton1 vamos renomear sua propriedade caption para Entrar.
O CommandButton2 vamos renomear sua propriedade caption para Sair
O userform1 vamos renomear sua propriedade Name para Login:
Construção do código para o tela de login
De um duplo click no botão entrar, e dentro de sua propriedade click cole ó código a baixo:
1
2
3
4
5
6
7
|
If usuario.Text = “diarioexcel” And senha.Text = “123” Then
Unload login
Else
MsgBox “Senha ou usuario incorretos, por favor tente novamente!”, vbExclamation, “Usuario Erro”
usuario.Text = “”
senha.Text = “”
End If
|
Ficando dessa forma, observe que os campos marcados em vermelho entre as aspas devem ser alterados para seu nome e sua senha de usuário ok?
Agora vamos dar um duplo click no botão Sair e digitar um comando que quando o usuário clicar no botão, o formulário de login cerar finalizado fechando também a planilha:
1
2
|
unload.me
application.quit
|
De um duplo click dentro do formulário e no canto superior direito mude sua propriedade para QueryClose e cole o seguinte código:
1
2
3
4
|
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
|
Assim evitando do usuário fechar pelo X do formulário e obrigando-o a finalizar pelo nosso botão sair:
Agora selecione a textbox senha e na sua propriedade Passwordchar vamos colocar o simbolo de asterisco, dessa forma a senha não cerar mostrada ao usuário:
Ao digitar a senha ela aparece como asteriscos
Depois dessa etapa você vai dar um duplo click na EstaPasta_de_trabalho:
E colar o seguinte código:
1
2
3
4
|
Private Sub Workbook_Open()
Application.Visible = False
login.Show
End Sub
|
============================================================================
Application.Visible = False >>> OCULTA O EXCEL
Login.show >>> APOS OCULTAR O EXCEL ABRE O FORMULÁRIO LOGIN
============================================================================
Devemos também ir em nosso código que esta dentro do botão Entrar e digitar o seguinte comando:
1
|
Application.Visible = True
|
Dessa forma quando o usuário digitar a senha correta a planilha passa a ficar visível.
Depois de todo o processo nossa tela de login esta pronta, se você tiver duvidas quanto a os códigos basta baixar a planilha de referencia clicando no botão a baixo.
Clique Aqui Para Fazer download Gratis