Você pode fazer duas coisas:
- Usar o "elseif" e colocar um novo usuário (útil caso sejam poucos usuários, tipo 3 ou 4), basicamente é um "if" aninhado ("if" dentro de um "if')
Private Sub cmdOk_Click()
If txtLogin.Text = "administrador" And txtSenha.Text = "123456" Then
MsgBox "Autorizado", vbExclamation, "Seja Bem Vindo"
Unload frmLogon
frmMenu.Show
elseif txtLogin.Text = "OutroUsuario" And txtSenha.Text = "OutraSenha" Then
MsgBox "Autorizado", vbExclamation, "Seja Bem Vindo"
Unload frmLogon
frmMenu.Show
'... se quiser colocar mais usuários coloque mais "elseif's
end if
-Pode criar uma planilha com duas colunas("usuario" e "senha") usar o "WorksheetFunction.VLookup" (procv no vba)
Segue um arquivo de anexo como exemplo:
'comentários explicam
"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9
Postado : 11/10/2013 8:11 am