Olá pessoal!

Na dica de hoje vou ensinar como criar uma tela de login no Excel. A tela de login é importante pois permite que apenas pessoas autorizadas tenham acesso ao seu sistema, existem diversas maneiras de proteger uma pasta de trabalho do Excel, porém a tela de login, deixa sua planilha com uma cara de sistema avançado, modificando a interação do usuário e tornando sua planilha mais profissional, o código vba permite isso tipo de coisa, ou seja, criar planilhas com recursos de sistemas avançados.

Vamos lá!

Abra o seu arquivo do Excel.

Pressione Alt+F11 para abrir a janela do VBA.

O primeiro passo é adicionar um Formulário.

Clique no menu inserir, após isso, clique em Userform.

Será criado um novo formulário chamado Userform1.

Devemos adicionar os objetos que serão utilizados para a criação da tela de login.

Vamos utilizar Rótulos, Caixas de texto e Botões.

Explicando:

Rótulo: utilizados como legendas, ajudam na identificação do campo.

Caixas de texto: Serão utilizadas para inserção dos dados.

Botões: Serão utilizados para executar os comandos.

Na caixa de ferramentas, clique e arraste para o formulário o objeto Rótulo.

 

Altere a propriedade Caption para: Usuário:

Agora arraste uma caixa de texto para o formulário, posicione-a ao lado do rótulo.

Altere a propriedade Name para txtusuario.

Agora vamos inserir mais um rótulo e uma caixa de texto, que serão utilizadas para a senha.

Arraste os objetos e configure da mesma maneira que foi feita para o rótulo e caixa de texto do usuário, alterando apenas de usuário para senha.

Veja:

Vamos inserir agora dois botões no form.

Através da caixa de ferramentas insira dois botões no formulário.

Leia Também:   Como converter online um arquivo PDF para Word

Configure as propriedades para cada botão, da seguinte maneira:

Botão1

Propriedade Name: btnlogin

Propriedade Caption: Login

 

Botão2

Propriedade Name: btncancelar

Propriedade Caption: Cancelar

 

Pronto a estrutura já está montada.

Agora vamos programar os objetos.

O primeiro passo é fazer com que a tela de login seja a primeira tela a ser aberta, quando o arquivo do Excel for executado.

Faça o seguinte:

Na parte esquerda da tela, dê um duplo clique em Esta pasta de trabalho.

Em Geral, altere para Workbook.


Será criado o evento para a execução do código.

Este evento determina que ao abrir a pasta de trabalho (Workbook_open) alguma coisa será executada, nós ainda vamos dizer o que será executado.

Digite o seguinte comando neste Evento:

Userform1.show

Veja:


Pronto!

Ao abrir a pasta de trabalho, o Userform1 será mostrado.

Agora precisamos configurar os botões.

Dê um duplo clique em Userform1.

Após isso, dê um duplo clique no botão login para criar um evento para este botão.

 

Digite o seguinte comando conforme a imagem abaixo:

Veja como deve ficar:

Explicando o comando, as cores representam a relação entre o código e a explicação

If txtusuario.Text = “admin” And txtsenha.Text = “1234” Then

MsgBox “Acesso Liberado”, vbExclamation, “Seja bem vindo ao nosso sistema!”

Unload UserForm1


Worksheets(“Plan1”).Activate

Else

MsgBox “Credenciais erradas, tente novamente”, vbExclamation

txtusuario.Text = “”

txtsenha.Text = “”

End If

 

Se o que for digitado na txtusuario for Admin e o que for digitado na txtsenha for 1234 então

Exibe a mensagem informando que o acesso está liberado

Esconde a tela de login que é o Userform1

Ativa a plan que é a planilha de trabalho que desejo abri após o login

Caso contrário

As informações estão incorretas, exibe uma mensagem de erro na tela.

Limpa as duas caixas de texto

Fim da condição

Pronto agora só falta programar o botão cancelar.

Leia Também:   Calculando a taxa de juros no Excel

Volte ao Userform1

Dê um duplo clique no botão cancelar.

No evento do botão digite o comando como mostra a figura abaixo.

Ao clicar no botão cancelar o Excel será fechado.

Agora vamos salvar o arquivo, como uma pasta habilitada para Macros.

Pressione F12, para abrir o Salvar como.

Altere o tipo de arquivo para Pasta Habilitada para Macro do Excel.


Está pronto!

Para testar basta fechar e abrir novamente o seu arquivo do Excel, outra maneira é clicando no botão Executar na janela do VBA.

 

Veja:

Obs: Para esconder a senha, altere a propriedade PasswordChar, colocando um *.

Ao digitar a senha os valores ficam ocultos.

Fica a dica pessoal, até aproxima!