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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
excel, senha de acesso com execuçao de macro
-
- Acabou de chegar
- Mensagens: 9
- Registrado em: Qua Jul 11, 2012 9:54 am
Re: excel, senha de acesso com execuçao de macro
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:
Se possível, disponibilize seu modelo, para que possamos melhor ajudá-lo.
Abs
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
Abs
-
- Acabou de chegar
- Mensagens: 9
- Registrado em: Qua Jul 11, 2012 9:54 am
Re: excel, senha de acesso com execuçao de macro
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
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
Re: excel, senha de acesso com execuçao de macro
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
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 696 vezes