Página 1 de 1

excel, senha de acesso com execuçao de macro

Enviado: Sex Dez 23, 2016 1:34 pm
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.

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

Enviado: Sex Dez 23, 2016 6:38 pm
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

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

Enviado: Ter Jan 03, 2017 9:41 am
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

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

Enviado: Ter Jan 03, 2017 2:25 pm
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