Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles »

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


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 »

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: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles »

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 675 vezes


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