leefalcon18
Power Member
pessoal gostaria de fazer uma password simples como esta
MAS NAO SEI COMO SE mete ******
PAra nao poder ver a password escrita
Dim pass As Integer
pass = InputBox(" Introduza uma password para poder aceder a area do cliente")
If pass = "123" Then
MsgBox "Bem vindo "
Else
MsgBox "password errada"
End If
Area_gerente.Show
MAS NAO SEI COMO SE mete ******
PAra nao poder ver a password escrita
Dim pass As Integer
pass = InputBox(" Introduza uma password para poder aceder a area do cliente")
If pass = "123" Then
MsgBox "Bem vindo "
Else
MsgBox "password errada"
End If
Area_gerente.Show