Formulário de Senha com Problemas [RESOLVIDO]

[ricardourias]

Olá pessoal,

Estou montando um programa de cadastro de ações (Senha.rar), onde o usuário terá uma senha de acesso. Pesquisando na net eu encontrei um modelo pronto (Password.rar), mas não me recordo onde, onde estou utilizando no meu programa.

Bom, a questão é que ao acessar a planilha o programa (Senha.rar) roda a UserForm1 que solicita o nome do usuário e a senha de acesso (estas informações do usuário e senha estão contidas na planilha Protected). Até aí tudo bem, pois ele aceita os usuários cadastrados e suas respectivas senhas (todas as senhas são "teste"). Entretanto, neste UserForm1 existe a opção de alterar a senha, onde acessa a UserForm2 para realizar esta operação, porém ao digitar nas novas senhas e clicar em alterar, o VBA exibe a mensagem "Erro de Compliação - Variável Não Definida". Já virei e revirei várias vezes o código, mas não consigo descobrir o que está acontecendo de errado no programa.

Será que alguém poderia me ajudar neste assunto?

Obrigado,

Ricardo Urias

[BaptistaCG]

Boa Tarde Ricardo

É simples, basta você declarar a variável que está pedindo no caso a "c" no userform2 dentro do commandButton
Coloque "Dim c"

Está assim:

Código: Selecionar todos

Private Sub CommandButton1_Click()

Dim password As String
Dim secondpassword As String

password = TextBox1.Text
secondpassword = TextBox2.Text

Coloque assim:

Código: Selecionar todos

Private Sub CommandButton1_Click()

Dim c
Dim password As String
Dim secondpassword As String

password = TextBox1.Text
secondpassword = TextBox2.Text

Abraço
Att...

[McJota]

Olá Ricardo.
No UserForm2, no evento click do CommandButton1, troque o código por este:

Código: Selecionar todos

Private Sub CommandButton1_Click()

If TextBox1.Value = TextBox2.Value Then
ThisWorkbook.Worksheets("Blank").Activate
Range("A1").Select
TextBox2.Value = ActiveCell.Value
ThisWorkbook.Worksheets("Protected").Activate
With Worksheets("Protected").Range("A:A")
  Set c = .Find(TextBox2.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        c.Select
        ActiveCell.Offset(0, 1).Value = TextBox1.Value
    Sheets("Protected").Visible = xlVeryHidden
    Sheets("Blank").Visible = xlVeryHidden
MsgBox "Password Updated"

Unload Me
Sheets("Blank").Range("A1").Value = ""
    End If
End With

Else
MsgBox "Passwords do not match, please try again"
End If

End Sub

Abraço....

[ricardourias]

McJota e Vinícius,

Value... muito obrigado pela ajuda...

Abs...


Ricardo