Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Armazenamento de pa...
 
Notifications
Clear all

Armazenamento de password

 
2024 - VBA & Macros
Post Recente por tfnduarte 2 anos atrás
3 Posts
1 Usuários
0 Reactions
868 Visualizações
RSS
 tfnduarte
(@tfnduarte)
Posts: 6
Active Member
Topic starter
 

Bom dia, 

Comecei a desenvolver um livro de excel para armazenamento de dados e dei comigo a começar a programar em vba para fazer face às dificuldades que foram surgindo. 

O que pretendia, definir uma password que seria alterada quando quisesse por um formulário. Quando chamo essa password habilito situações ocultas na folha.

que é o formulário que tem o circulo preto. e que quando carrego ok chama a macro abrirpass.

mas também tenho um botão criado que chama o  formulario com retangulo vermelho para verificar a password e se correta abre um outro formulário para puder alterar a password. que é o formulário que tem o triangulovermelho.

Conclusão, se for ao vba primeiro e definir a password no formulario com circulo funciona,  depois no excel correr 1 vez e alterar a password fica tudo a funcionar. 

Tenho um módulo com o seguinte código:

Public strCodigo as String

deveria ser private?

o que acontece é quando desligo o pc e a pass sai da memória ela fica resetada a vazio. e eu não queria, queria que ela ficasse sempre definida, nem que fosse armazenada numa célula que eu esconderia.

 

Agradecia a sua ajuda por favor.

Obrigado

 
Postado : 11/09/2022 4:13 am
Tags do Tópico
vba
 tfnduarte
(@tfnduarte)
Posts: 6
Active Member
Topic starter
 

ja tentei mais e mais e mais...

neste momento tudo trabalha ok na mesma mas quando sai fora volta a password a "" 

Tenho definido para ir buscar e levar o valor à celula...

e estando lá o valor sempre que inicia o formulario só admite o valor ""(vazio)

Alguem que ajude pf?

Private Sub Label1_Click()

End Sub

Private Sub CommandButton1_Click()

    If Senha = Folha1.Cells(1048576.27).Value Then
        AbrirPass
        Unload UserForm1
    Else
        MsgBox "Senha Incorrecta"
    End If
    
End Sub


Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

Private Sub Password_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub Senha_Change()

End Sub
Private Sub CommandButton1_Click()
If newpass = confpass Then
     
     Folha1.Cells(1048576, 27).Value = confpass
     Unload InsertPass
     
     Else
        MsgBox "Senhas não coincidem"
    End If
End Sub

Private Sub confpass_Change()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub newpass_Change()

End Sub

Private Sub UserForm_Click()

End Sub

 

Private Sub CommandButton1_Click()
If Senha2 = Folha1.Cells(1048576.27).Value Then
     InsertPass.Show
     Unload Userform2
     
     Else
        MsgBox "Senha Incorrecta"
    End If
End Sub

Private Sub Label1_Click()

End Sub

            

Private Sub TextBox1_Change()

End Sub
Private Sub Senha2_Change()

End Sub
 
Postado : 12/09/2022 7:30 am
 tfnduarte
(@tfnduarte)
Posts: 6
Active Member
Topic starter
 

penso que resolvi depois atualizo com o codigo utilizado

 
Postado : 13/09/2022 12:31 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico  
Tópicos Relacionados
Tags do Tópico:  vba (65) ,