Colocar login no Excel VBA

Objetivo: Demonstrar como colocar login no Excel VBA permitindo definir os usuários que terão acesso a determinadas planilhas de uma pasta de trabalho do Excel.

Login Excel

Este artigo demonstra como criar um login no Excel que restrinja o acesso ás planilhas de uma determinada pasta de trabalho do Excel.

Vamos passo-a-passo:

1. Criar na pasta de trabalho uma planilha nomeada como “Senha”;

2. Crie três colunas, Usuário, Senha e Formulário;

3. Na primeira coluna digite o nome do usuário, senha e o formulário que o usuário terá acesso;

4. O nome do usuário e a senha devem ser repetidos se o mesmo tiver acesso a mais de uma planilha, veja a imagem:

Login Excel 1

5. Abra o Visual Basic, clicando na guia Desenvolvedor->Visual Basic, se não estiver habilitada a aba, veja aqui como habilitar: Habilitar guia desenvolvedor.

6. Clique em Inserir->UserForm:

Login Excel 3

7. Altere a propriedade name para “frmLogin”, e Caption para “Login”;

8. Insira os componentes abaixo, e desenhe conforme abaixo:

Login Excel 3

9. Insira um Quadro e apague a propriedade Caption conforme o desenho abaixo:

Login Excel 4

10. Insira um botão de comando, e altere a propriedade Caption para OK, conforme o desenho:

Login Excel 5

11. Insira dois rótulos, alterando suas propriedades Caption para Usuário: e Senha:

Login Excel 6

12. Insira duas caixas de texto conforme abaixo, a primeira nomeie como txtUsuario e a segunda como txtSenha, na txtSenha altere a propriedade PasswordChar para *, para que não sejam exibidos os caracteres da senha.

Login Excel 7

13. Clicar duas vezes sobre o formulário e colar o seguinte código fonte:

Private Sub CommandButton1_Click()
    Dim lTotal      As Long
    Dim lContador   As Long
    
    lsDesabilitar
    
    Sheets("Senha").Range("$A$1:$C$50000").AutoFilter Field:=1, Criteria1:="=" & txtUsuario.Text
    Sheets("Senha").Range("$A$1:$C$50000").AutoFilter Field:=2, Criteria1:="=" & txtSenha.Text
    
    lTotal = WorksheetFunction.Subtotal(3, Sheets("Senha").Range("A:A"))
    
    If lTotal > 1 Then
        ActiveWorkbook.Unprotect Password:="123"
        
        For lContador = 2 To lTotal
            Sheets(Sheets("Senha").Range("C" & lContador).Value).Visible = True
        Next lContador
        
        Unload frmLogin
    Else
        MsgBox "Usuário ou senha incorretos!"
    End If
    
    ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False
End Sub

Private Sub txtUsuario_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub UserForm_Activate()
    txtUsuario.SetFocus
End Sub

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then  ' The ENTER key.
       SendKeys "{tab}"    ' Set the focus to the next control.
       KeyAscii = 0        ' Ignore this key.
    End If
End Sub

14. Clique na guia Inserir e selecione Módulo, no módulo criado colar o seguinte código fonte:

Public Sub lsShow()
    frmLogin.Show
End Sub

Public Sub lsDesabilitar()
    ActiveWorkbook.Unprotect Password:="123"
    Sheets("Plan1").Visible = False
    Sheets("Plan2").Visible = False
    Sheets("Plan3").Visible = False
    Sheets("Senha").Visible = False
    ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False
End Sub

15. Volar  para a pasta de trabalho do Excel e criar uma planilha chamada Menu;

16. Desenhar um botão utilizando o botão Formas;

Login Excel 8

17. Clicar com botão direito sobre a forma criada e selecionar a opção Atribuir Macro, selecionar a opção lsShow, que irá chamar a planilha.

[saiba_mais]

18. Teste a tela de login clicando sobre o botão, a tela deverá ser exibida, digite o nome do usuário e a senha e verifique se as guias definidas são habilitadas, lembrando que se os nomes forem diferentes ou se houverem novas planilhas as mesmas devem ser configuradas dentro do código fonte, substituindo as planilhas Plan1, Plan2, etc, pelos nomes das planilhas que houverem na pasta de trabalho.

Cursos do Guia do Excel - Destaque-se no mercado de trabalho
Login Excel

Segue abaixo no botão de download o exemplo da planilha criada.

Download-button

Abraço

Marcos Rieper


Marcos Rieper

Pai, marido, professor e consultor em Excel.

Obrigado por ler este artigo, este blog foi criado para difundir o conhecimento em Excel à todos.

Divulgamos novos artigos nas redes sociais, basta clicar nos ícones abaixo.

Excel não precisa ser complicado

Assine nossa newsletter e receba dicas práticas para dominar o excel