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! Agora é o seguinte.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?
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 |
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.