Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Cadastrar Usuário e Senha

Tutoriais elaborados da comunidade
Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Cadastrar Usuário e Senha

Mensagem por kedim43 »

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>


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Bruno1703
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Abr 10, 2013 3:19 pm

Re: Cadastrar Usuário e Senha

Mensagem por Bruno1703 »

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,


Avatar do usuário
Mauro Coutinho
Jedi
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

Mensagem por Mauro Coutinho »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder