Seu Curso

  • Full Screen
  • Wide Screen
  • Narrow Screen
  • Increase font size
  • Default font size
  • Decrease font size

Inserir Login e Senhas em planilhas de Excel

Imprimir
Avaliação do Usuário: / 6
PiorMelhor 

O Excel disponibiliza diversas formas de assegurar os dados colocados em sua planilha, você sabia que é possível determinar senha de proteção em suas planilhas ? Bloquear células entre outros métodos de segurança. O que vou ensinar hoje consiste em uma tela de login, onde criaremos usuário e senha para serem inseridos ao abrir seu documento. Caso o usuário e senha não estiver correto, o documento será fechado.

Primeiro vamos ajustar o nosso ambiente de produção para disponibilizar a aba Desenvolvedor no Excel.

 

Menu arquivo > Opções > Personalizar Faixa de Opções e selecione o checkbox Desenvolvedor e seus afins.

Pronto, agora você tem a Aba desenvolvedor no seu menu do Excel

Primeiro, crie uma planilha para cadastrar seu usuário e senha. O segredo é criar algo simples e que funcione depois que estiver funcionando podemos ir aperfeiçoando nosso sisteminha de excel.


DICA: Lembre-se de criar esta parte na planilha dois ou altere  código que aprenderemos mais para frente para o numero da sua planilha, depois podemos de tudo pronto poderemos até oculta-la.

Área de Login

Agora vamos criar nossa tela de login:

Na aba desenvolvedor clique em Visual Basic, você será levado para a janela de desenvolvimento VBA.

Agora, clique em Inserir > UserForm

Crie a seguite Tela:


Foram incluidos:

Dois Labels: Usuário e Senha

Duas caixas de textos: foram alteradas as propriedades do nome para cada uma das coisas respectivamente  txtusuario e txtsenha.

Dois botões: Entrar e Cancelar, foram alterados seus nomes tbmm para cmdentrar e cmdcancelar.

Programar ações

Agora vamos programar as ações de cada botão

Dê um duplo clique no botão entrar e digite o seguinte código:

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

Está parte é para controle de logs, caso você queira acompanhar os logs da planilha, será necessário criar uma nova planilha (Plan 4) com as respectivas colunas: Login, Senha, Data, Time. Caso não queria acompanhar os logs termine o código acima com End If e End Sub

Wend
Plan4.Cells(lin, 1) = txtLogin.Value
Plan4.Cells(lin, 2) = txtSenha.Value
Plan4.Cells(lin, 3) = Date
Plan4.Cells(lin, 4) = Time
Plan1.Visible = xlSheetVisible
Sheets("Plan1").Activate
ActiveWindow.DisplayWorkbookTabs = False
Hide
End If
End Sub

Dê um duplo clique em Sair e vamos programar:

Private Sub cmdSair_Click()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
End Sub
 
Private Sub Login_Terminate()
ActiveWorkbook.Save
Application.Quit
End Sub
 
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Favor sair do programa clicando no botão 'Sair'" _
, vbCritical _
, "Erro"
End If
End Sub

Salve tudo antes de finalizar o VBA, não se esqueça de salvar como Macro.

Salve tudo antes de finalizar o VBA, não se esqueça de salvar como Macro.

Agora é só usar a criatividade para desenvolver do seu jeito, suas planilhas seguras e com sua cara.

Adicionar comentário


Código de segurança
Atualizar

You are here: