Obs3: Para alterar e criar usuários com senha, basta alterar os trechos em
negrito, para adicionar, basta incluir uma nova linha, seguindo a numeração,
Usuario(4), Usuario(5) e assim sucessivamente. Para senha é a mesma lógica,
Senha(4), Senha(5) e assim sucessivamente.
Sub Auto_Open()
Dim Usuario(1 To 999) As String
Dim Senha(1 To 999) As String
Dim UsuOK As Boolean
Dim SenhaOK As Boolean
'Cadastro de Usuários
'-------------------
Usuario(1) = "Luiz"
Usuario(2) = "Maria"
Usuario(3) = "Clara"
'-------------------
Senha(1) = "1345"
Senha(2) = "1234"
Senha(3) = "5367"
'-------------------
UsuOK = False
SenhaOK = False
Retorno:
UsuarioEntrada = InputBox("Digite o seu nome de usuário: ")
For i = 1 To 999
If Usuario(i) = UsuarioEntrada And Usuario(i) <> "" Then
UsuOK = True
GoTo Rotulo1:
End If
Next
Rotulo1:
If UsuOK = True Then
SenhaEntrada = InputBox("Bem Vindo(a): " & UsuarioEntrada & ", digite
a sua senha:")
If Senha(i) = SenhaEntrada Then
Exit Sub