Guardar senha em Plan2

[Roldao]

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!

[poiaman]

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++

[Roldao]

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

[poiaman]

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

[joseA]

Vc já viu este tópico?

viewtopic.php?f=5&t=70&p=465#p465

[Roldao]

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!

[poiaman]

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!

[joseA]

...2 - como colocar uma foto (logomarca) no form (plano de fundo)?...

Em propriedades do form>Picture.

[Roldao]

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!

[poiaman]

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....