VBA - Login e senha, com controle de acessos.

[poiaman]

Esse exemplo cria um sistema de login e senha para acesso a uma planilha - Tem diferenciação de acesso. Com um login e senha de usuário, só terá acesso a parte da plan, utilizando o login de admin. terá acesso a todas as abas.

Tem também um sistema de registro de acesso, onde todos os logins, data, hora ficam armazenados em uma plan.

É um exemplo que pode ser adaptado em várias planilhas do dia-a-dia!

Anexo Atualizado em 03/05/2011

Login_030511.rar

(31.38 KiB) Baixado 4224 vezes

att

[webmaster]

Poiaman,

Parabéns novamente. Tentei dar uma melhorada na planilha fazendo o seguinte:

Setei o PasswordChar para "*". Assim ninguém vê a senha digitada.
Setei o Botão de Login como Default = True. Isso faz com que ao clicar Enter no formulário, ele ative o botão de Login
Setei o Botão de Sair como Cancel = True. Isso faz com que ao Clicar Esc no formulário, ele ative o botão Sair
Alterei a visibilidade das Planilhas para VeryHidden, pois depois de logado, os usuários podia navegar entre as planilhas com o atalho Ctrl + PgUp e Ctrl + PgDown. Depois de logado, coloco a planilha Principal como Visible.

Anexo Atualizado em 03/05/2011

Login_030511.rar

(31.38 KiB) Baixado 2298 vezes

É isso. Abraços

[poiaman]

Testei aqui e não funfou não!

Quando a senha é inserida corretamente no admin, ela chama a sheet("dados").select, mas como ela está Very Hide, ele não consegui chamar e abre o depurador!

Teria como, ao entrar como admin, fosse mudada a opção de VeryHide para visible via VBA?



Login: DANIEL
Senha: 123
logar como admin

[joseA]

Permita-me...

Localize esta parte no procedimento e acrescente: Plan2.Visible = xlSheetVisible

Código: Selecionar todos

            ActiveWindow.DisplayWorkbookTabs = True
            Plan2.Visible = xlSheetVisible
            Sheets("Dados").Select

[poiaman]

Perfeito!
_________________________
Login: DANIEL
SENHA: 123
"Logar como admin"
_________________________
Anexo Atualizado em 03/05/2011

Login_030511.rar

(31.38 KiB) Baixado 1907 vezes

[joseA]

O importante é que resovestes.

[SilvaRonaldo]

Com a sua permissão é possível usar este código em outro formulario na planilha modelo de cadastro autor Tomas Vasquez
em caixa de texto?

[Che]

Amigo como fazer para liberar mais planilhas com acesso para usuario como a planilha principal

[meirelles]

Olá...

Estou tentando utilizar esse sistema de login em um projeto que tenho aqui, mas tenho 2 dúvidas:

1º A parte de login esta tudo ok, mas sempre que o sistema tem que salvar informaçoes, o excel me retorna esta mensagem: "Aviso de privacidade: este documento contém macros, controles ActiveX, informações do pacote de expansão para XML, ou componentes da Web. É possível que esses itens contenham informações pessoais que não possam ser removidas pelo Inspetor de Documento." Existe alguma forma de essa mensagem não aparecer mais?

2º Sempre ao entrar na planilha, na parte superior esta escrito: " Aviso de segurança: As conexões da dados foram desabilitadas." Nas opções ja tentei habilitar todo o conteúdo de macros e Active X. Ele opera as macros normalmente, mas sempre exibe este aviso sobre as conexões de dados. Existe alguma opção onde eu possa deixar as conexões de dados habilitadas?

Se alguém puder ajudar...

[Alex Sandro]

Qual é a versão do Excel?

No 2007 vc clica no ícone do officce, vá em opções do excel, guia central de confiabilidade, configurações da central de confiabilidade, configurações do ActiveX e marque habilitar todos os controles sem restrição.... e depois em configurações de macros marque habilitar todas as macros e confiar no acesso ao modelo de objeto do projeto VBA e na guia conteúdo externo ative a opção Habilitar todas as conexões de dados( pode ser esse a causa da mensagem)

Faça isso por sua conta em risco, pois abre uma pequena vulnerabilidade em seu sistema fazendo com que você execute algum código malicioso, mas cada um tem que saber as macros que executa para não ocorrer o risco.