Olá galera!
Tenho o código abaixo de uma textbox, onde ativei nas propriedades o passwordchar com um "*" ...
Private Sub lblacesso_Click()
Dim login As String
Dim senha As String
login = txtlogin
senha = txtsenha
Worksheets("login").Select
If login = "Admin" And senha = "#Admin#" Then
MsgBox "Acesso Liberado", vbInformation, "Controle de Ponto"
Unload UserForm1
Worksheets("acesso").Select
Exit Sub
ElseIf txtlogin.Text <> Cells(2, 18) Or txtsenha.Text <> Cells(2, 19) Then
txtlogin.Text = ""
txtsenha.Text = ""
MsgBox "Login ou senha incorretos, favor verificar"
End If
End Sub
Na minha máquina funciona.. porém em algumas máquinas da rede quando é lida a linha do textbox com a senha (txtsenha.Text) ele retorna "???????" ... em vez de retornar o valor realmente digitado.
Login: Admin
Senha: #Admin
Segue modelo em anexo.
Se alguém puder me ajudar agradeço
Postado : 17/02/2017 10:01 am