Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Guardar senha em Plan2
Guardar senha em Plan2
Bom dia todos, vamos ao que interessa: tenho que cadastrar a senha de 329 empregados que teriam que se locomover para virem digitar, o que quero é uma plan1 (form) onde ele digite a senha repita (para conferir) e se estiver correta seja armazenado em Plan2 e ai eu redigitarei para eles no escritorio (eles digitam numeros, vêem apenas *****, e em Plan2 aparece os numeros) isso facilitaria meu trabalho em muito, obrigado!
Plan1 Mat Senha Confirma Senha
12477 ****** ******
Plan2 Mat Senha Confirma Senha
12477 36985 36985
E o próximo a digitar em Plan1 fosse ACUMULANDO em Plan2
Obrigado e seria um grande presente de fim de ano resolver esta bronca, feliz 2010 a todos!
Plan1 Mat Senha Confirma Senha
12477 ****** ******
Plan2 Mat Senha Confirma Senha
12477 36985 36985
E o próximo a digitar em Plan1 fosse ACUMULANDO em Plan2
Obrigado e seria um grande presente de fim de ano resolver esta bronca, feliz 2010 a todos!
Re: Guardar senha em Plan2
Mole!
Crie uma form assim:
___________________________
Matrícula "textbox1" |
Senha "texbox2" |
Redigite a senha "textbox3" |
|
|Cancelar| |OK| |
__________________________|
Clique duas vezes no OK e cole:
If TextBox1 = "" Then
MsgBox ("Digite a matrícula")
Else
If TextBox2 <> TextBox3 Then
MsgBox ("As senhas não conferem")
Else
u = 2
While (Plan2.Cells(u, 2) <> "")
u = u + 1
Wend
Plan2.Cells(u, 2) = UserForm1.TextBox1
Plan2.Cells(u, 3) = UserForm1.TextBox2
MsgBox ("Senha cadastrada com sucesso")
End If
End If
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
End Sub
_________________________________________________________________
Depois abra um módulo e cole:
Sub abreformulario ()
userform1.show
end sub
________________________________________________________________
Crie um botão na plan 1 e atribua a macro
Qualquer súvida é só perguntar!
At++
Crie uma form assim:
___________________________
Matrícula "textbox1" |
Senha "texbox2" |
Redigite a senha "textbox3" |
|
|Cancelar| |OK| |
__________________________|
Clique duas vezes no OK e cole:
If TextBox1 = "" Then
MsgBox ("Digite a matrícula")
Else
If TextBox2 <> TextBox3 Then
MsgBox ("As senhas não conferem")
Else
u = 2
While (Plan2.Cells(u, 2) <> "")
u = u + 1
Wend
Plan2.Cells(u, 2) = UserForm1.TextBox1
Plan2.Cells(u, 3) = UserForm1.TextBox2
MsgBox ("Senha cadastrada com sucesso")
End If
End If
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
End Sub
_________________________________________________________________
Depois abra um módulo e cole:
Sub abreformulario ()
userform1.show
end sub
________________________________________________________________
Crie um botão na plan 1 e atribua a macro
Qualquer súvida é só perguntar!
At++
Re: Guardar senha em Plan2
Parabéns pela dica quase tudo que preciso veja se pode ajudar:
Como mascarar as senhas digitadas para "*******" (estrelinhas) e limitar a quatro numeros da senha
Como mascarar as senhas digitadas para "*******" (estrelinhas) e limitar a quatro numeros da senha
Re: Guardar senha em Plan2
Blz, para colocar o ***** clique no textbox e va em propriedades selecione "passwordChar" coloque *
Para limitar a senha em 4 dígitos faça assim:
clique 2 vezes na user form e cole
Private Sub textbox2_Change()
Select Case Len(textbox2.Text)
Case Is = 4
textbox3.SetFocus
End Select
End Sub
Private Sub textbox3_Change()
Select Case Len(textbox3.Text)
Case Is = 4
CommandButton2.setfocus
End Select
End Sub
Teste aí
att
Para limitar a senha em 4 dígitos faça assim:
clique 2 vezes na user form e cole
Private Sub textbox2_Change()
Select Case Len(textbox2.Text)
Case Is = 4
textbox3.SetFocus
End Select
End Sub
Private Sub textbox3_Change()
Select Case Len(textbox3.Text)
Case Is = 4
CommandButton2.setfocus
End Select
End Sub
Teste aí
att
Re: Guardar senha em Plan2
Obrigado pela ajuda esta quase 100% tudo funciona e agora estou na parte visual coloquei o formulário para tela cheia PERGUNTO
1 - como voltar para a planilha se a tela esta tomada pelo form?
2 - como colocar uma foto (logomarca) no form (plano de fundo)?
Obrigado!
1 - como voltar para a planilha se a tela esta tomada pelo form?
2 - como colocar uma foto (logomarca) no form (plano de fundo)?
Obrigado!
Re: Guardar senha em Plan2
Para voltar para a plan clique duas vezes no botao cancelar e cole
Private Sub CommandButton2_Click()
unload me
End Sub
Para colcar a figura no fundo use a barra de ferramentas de criação de formulários!
Private Sub CommandButton2_Click()
unload me
End Sub
Para colcar a figura no fundo use a barra de ferramentas de criação de formulários!
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Guardar senha em Plan2
Em propriedades do form>Picture.Roldao escreveu:...2 - como colocar uma foto (logomarca) no form (plano de fundo)?...
Re: Guardar senha em Plan2
Uma duvida:
Como não permitir que possa ser digitado no campo senha uma sequencia numerica tipo: 1234 ou 6789 lembrando que 8910 não é sequencia pois meu sistema le digito por digito e não aceita sequencia e também como proibir que o numero digitado seja o que esta em Plan4!A1 (digamos que láestaja sua data de nascimento) e também quero proibir essa senha.
Espero ter sido claro.
Obrigado!
Como não permitir que possa ser digitado no campo senha uma sequencia numerica tipo: 1234 ou 6789 lembrando que 8910 não é sequencia pois meu sistema le digito por digito e não aceita sequencia e também como proibir que o numero digitado seja o que esta em Plan4!A1 (digamos que láestaja sua data de nascimento) e também quero proibir essa senha.
Espero ter sido claro.
Obrigado!
Re: Guardar senha em Plan2
ixi!
jeito tem amigo... pra tudo nessa vida, mas acredito que será um código muito complexo para uma função um pouco simples!
Pensa comigo!
Se vc espera tanta segurança num sistema pq vai realizar o cadastramaneto via excel que é um sistema tão simples de quebrar!?
acredito não haver necessidade entende?...
Acho que o melhor a se fazer (caso vá realmente fazer esse tipo de cadastramento em excel) é instruir as pessoas com um informativo de segurança, informando aos colaboradores como se deve criar uma senha, educativo....
jeito tem amigo... pra tudo nessa vida, mas acredito que será um código muito complexo para uma função um pouco simples!
Pensa comigo!
Se vc espera tanta segurança num sistema pq vai realizar o cadastramaneto via excel que é um sistema tão simples de quebrar!?
acredito não haver necessidade entende?...
Acho que o melhor a se fazer (caso vá realmente fazer esse tipo de cadastramento em excel) é instruir as pessoas com um informativo de segurança, informando aos colaboradores como se deve criar uma senha, educativo....