Beleza galera.
Vamos terminar nosso aplicativo de login?
Vamos colocar as Mãos No Código!
No tutorial anterior, mostrei a vocês, como criar um modo de login e senha.
Hoje vamos ver como se cadastra um novo usuário.
Para isso, insira um form que vai ser chamado de Menu; dentro deste form, insira um CommandButton e dentro dele este código:
Código do CommandButton1
Cadastrar.show
Agora você necessita criar outro form com os seguintes campos:
02 Labels
02 Textboxs
Para os labels, entre com os nomes:
UserName
Password
Para os Textbox:
txtNome
txtSenha
03 CommandButton
* ComamandButton1
Salvar
* CommandButton2
Fechar
*CommandButton3
Limpar
Agora galera, vamos ao código da nossa aplicação.
Código Completo
'Aqui está o botão fechar
Private Sub Fechar_Click()
Unload Me
End Sub
'Aqui está o botão Limpar
Private Sub Limpar_Click()
txtNome = ""
txtSenha = ""
txtNome.SetFocus
End Sub
'Aqui está o botão responsável por salvar os dados na Planilha de Login lembram da mesma no topico anterior?
Private Sub Salvar_Click()
'Tomada de Decisão Sim e Não
Dim Reposta As String
Reposta = MsgBox("Deseja Salvar Este Usuário Agora?", vbYesNo, "Novo usuário")
If Reposta = vbYes Then
'Nossa pasta renomeada no post anterior e onde gravaremos os novos usuários e senhas
totalregistro = Worksheets("Login").UsedRange.Rows.Count + 1
'Campo Obrigatório
If txtNome.Text = "" Then
MsgBox "Necessito De Um Nome Para Continuar. "
txtNome.SetFocus
Exit Sub
End If
With Worksheets("Login")
.Cells(totalregistro, 1) = txtNome
.Cells(totalregistro, 2) = txtSenha
End With
'Mensagem apos a gravação de dados
MsgBox ("Gravado Com Sucesso"), vbInformation, ("Novo usuário")
txtNome = ""
txtSenha = ""
txtNome.SetFocus
End If
'Resposta Não aqui
If Reposta = vbNo Then
'Mensagem caso sua resposta seja não
MsgBox ("Seus Dados Não Foram Gravados"), vbInformation, ("Novo usuário")
txtNome = ""
txtSenha = ""
txtNome.SetFocus
End If
End Sub
Beleza heim!
Agora é o seguinte galera.
Vamos fazer nossa aplicação aparecer depois que digitamos o usuário e senha e clicamos em Login, a ação tomada será chamar o form de menu. Lembram! Beleza então.
basta que você que copiou o exemplo anterior localize esta linha:
*****"Seu Aplicativo será carregado, substituindo esta linha para a que você necessite que seja carregado em primeiro plano (form1,Menu,Dados...Etc)
Delete a mesma e no lugar da mesma, entre com este código.
***Menu.Show vbmodal
Beleza, agora você já tem em mãos, a Tela de Login, A Tela de Menu e a Tela de Cadastro de Usuário.
Fiquem a vontade para adaptarem as suas necessidades.
Abração e sempre que necessitarem estou sempre aqui com muitas coisas bem legais para mostrar a quem está querendo aprender o VBA.
Caso demore muito a responder ou dar sequimento aos posts, não se preocupem é por que meu tratamento está em curso e tão logo o mesmo finde-se a etapa, retomo as postagens.
valeu galera.
Grande abraço ai rapazeada do VBA>
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Cadastrar Usuário e Senha
Re: Cadastrar Usuário e Senha
Olá prezados,
Fiz todos os ''passos'' do Login, porém quando abro a planilha, da um erro de depuração:
"Erro em tempo de execução '424':
O Objeto é obrigatório"
Em seguida clico em depurar, o que acaba indicando conforme segue:
Private Sub Workbook_Open()
Login.Show (está linha fica amarela)
End Sub
Ja verifique se há nomes iguais das variáveis, mas não há, alguem poderia me ajudar?
Grato,
Fiz todos os ''passos'' do Login, porém quando abro a planilha, da um erro de depuração:
"Erro em tempo de execução '424':
O Objeto é obrigatório"
Em seguida clico em depurar, o que acaba indicando conforme segue:
Private Sub Workbook_Open()
Login.Show (está linha fica amarela)
End Sub
Ja verifique se há nomes iguais das variáveis, mas não há, alguem poderia me ajudar?
Grato,
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Cadastrar Usuário e Senha
Verifique o nome do Formulário, ele tem de estar com o nome "Login", que é o que a rotina está tentando abrir quando se abre o arquivo.
Login.Show (está linha fica amarela)
[]s
Login.Show (está linha fica amarela)
[]s