Macro para acesso por usuario

David Willians · 15 de março de 2017

Boa tarde senhores,

Sou novo com programaçao em VBA estou criando um programa em excel com formulario de usuario e senha. Eu preciso liberar acesso por usuario a determinada aba. Por exemplo João terá acesso a aba dados mas não aos relatórios. Ja jose terá acesso ao relatórios mas não a aba.

Segue código

Private Sub CommandButton1_Click()
  Dim lTotal As Long
  Dim lContador As Long
  lsDesabilitar
    Sheets("Senha").Range("$A$1:$B$50000").AutoFilter Field:=1, Criteria1:="=" & txtUsuario.Text
    Sheets("Senha").Range("$A$1:$B$50000").AutoFilter Field:=2, Criteria1:="=" & txtSenha.Text
  lTotal = WorksheetFunction.Subtotal(3, Sheets("Senha").Range("C:C"))
  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 frmLogin
    Else
    MsgBox "Usuário ou senha incorretos!"
  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
  Private Sub UserForm_Activate()
  txtUsuario.SetFocus
  End Sub
  Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then
  SendKeys "{tab}"
  KeyAscii = 0
  End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = False
        Application.Quit
Application.DisplayAlerts = True
MsgBox "Necessario Usuário e Senha"
    End If
End Sub

diego_janjao · 16 de março de 2017

Siga este passo a passo e não terá dificuldades:

Como Criar tela de Login.docx

David Willians · 16 de março de 2017

Diego eu usei este exemplo que me passou, o problema é quando eu coloco um novo Usuario e quero que ele apenas use uma única Aba, sempre aparece a primeira aba e não a que eu coloquei no campo formulario.