Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

excel, senha de acesso com execuçao de macro

Discussões principalmente sobre SQL e outros problemas relativos a bancos de dados, relacionais ou não
roberto grando
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Jul 11, 2012 9:54 am

excel, senha de acesso com execuçao de macro

Mensagem por roberto grando » Sex Dez 23, 2016 1:34 pm

Pessoal, criei um excel com senha de acesso, onde tenho uma coluna com números e outra com a senha. Gostaria de saber se tem alguma função em que também fosse possível implementar a execução de uma macro especifica para cada um que acessar com sua senha. Vamos supor que alguém acesse com a senha: 123, então executa macro1, um outro acessa com senha: 321, executa macro2, e assim por diante.
desde já agradeço.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 755
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: excel, senha de acesso com execuçao de macro

Mensagem por srobles » Sex Dez 23, 2016 6:38 pm

Roberto, boa noite!

Isso que você necessita, é totalmente possível sim de ser feito.

Por exemplo, na rotina que faz o login em sua planilha, você poderia utilizar um laço Select Case para validar isso. Veja abaixo:

Código: Selecionar todos

   Select Case verifSenha 'verifSenha é apenas exemplo. Aqui seria sua variável que contém a senha informada pelo usuário
      Case Is = "123"
        'Código para usuários que fornecerem a senha 123
      Case Is = "321"
        'Código para usuários que fornecerem a senha 321
      Case Is = "456'
        'Código para usuários que fornecerem a senha 456
      Case Is= "654"
        'Código para usuários que fornecerem a senha 654
    End Select
Se possível, disponibilize seu modelo, para que possamos melhor ajudá-lo.

Abs


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

roberto grando
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Jul 11, 2012 9:54 am

Re: excel, senha de acesso com execuçao de macro

Mensagem por roberto grando » Ter Jan 03, 2017 9:41 am

bom dia Sr. Saulo, agradeço muitíssimo seu retorno.

tentei aplicar seu exemplo, mas não encontrei local para aplicar. veja no sistema abaixo que possuo como seria aplicado, desde já agradeço:


Private Sub txtSenha_Change()

End Sub

Private Sub txtteste_Change()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Use o Botão SAIR!!!", vbInformation, ""
Cancel = True
End If
End Sub
Private Sub UserForm_Terminate()
Set mclsFormChanger = Nothing
End Sub
Private Sub CommandButton3_Click()
ThisWorkbook.Application.Quit
Unload Me
Call sair_final
End Sub
Private Sub CommandButton2_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 frmIconePath
Else
MsgBox "Usuário ou senha incorretos!", vbInformation, ""
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



srobles
Jedi
Jedi
Mensagens: 755
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: excel, senha de acesso com execuçao de macro

Mensagem por srobles » Ter Jan 03, 2017 2:25 pm

roberto, boa tarde!

Sem seu modelo para podermos analisar melhor, fica difícil.

Deixo em anexo, um modelo bem simples de exemplo, para melhor compreensão.

Abs
Anexos
modelo_login_roberto.rar
(31.63 KiB) Baixado 151 vezes


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder