Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

limite de acesso a um workbook

2 participantes

Ir para baixo

limite de acesso a um workbook Empty limite de acesso a um workbook

Mensagem por dellaporta Qui Jan 10, 2013 10:28 am

Caros usuários de Excel
teno um workbook no meu trabalho onde coloquei uma senha para que possam acessar a devida worksheet, porem se o usuário erra a senha ele pode tentar novamente, mas se erra novamente continua a tentativa, gostaria que limitasse em 3 tentativas,caso não conseguisse o Workbook é fechado como faço isso em VBA?

desde já agradeço

dellaporta
Iniciante
Iniciante

Mensagens : 1
Data de inscrição : 10/01/2013

Ir para o topo Ir para baixo

limite de acesso a um workbook Empty Re: limite de acesso a um workbook

Mensagem por alexandrevba Sáb Jan 26, 2013 7:58 am

Bom dia!!

Tente algo como
Código:
Private Sub Command10_Click()
Dim AdminAccess As Variant
Dim LogonAccess As Variant
Dim x As Integer

If IsNull(Me.txtPW) Or Me.txtPW = "" Then
MsgBox "Você deve digitar uma senha.", vbOKOnly, "Dados obrigatórios"
 
Me.txtPW.SetFocus
Exit Sub
End If

AdminAccess = DLookup("[Admin_Access]", "LogonUsersPermissions", "[Op_ID]='" & Me.txtUserID & "'")

LogonAccess = DLookup("[User_ Password]", "LogonUsersPermissions", "[Op_ID]='" & Me.txtUserID & "'")

If AdminAccess = True And LogonAccess = Me.txtPW Then
MsgBox ("Você tem acesso")
DoCmd.OpenForm "FrmLogonUsersPermissions"
DoCmd.Close acForm, "Logon"

Else

MsgBox "Senha inválida. Por favor tente novamente", vbOKOnly, _
"Entrada inválida!"
Me.txtPW.SetFocus
End If

intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "Você não tem acesso a este aplicativo. Porfavor contate o Adm.", _
vbCritical, "Acesso Resstrito!"
Application.Quit
End If

End Sub
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos