Notifications
Clear all

Passwordchar Text Box - Não retorna o valor digitado

4 Posts
3 Usuários
0 Reactions
1,117 Visualizações
(@jeferson_r)
Posts: 0
New Member
Topic starter
 

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 "???????" :shock: ... 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
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Jeferson_R,

Boa tarde!

Aqui na minha máquina (que está numa rede corporativa) está normal (exibindo os asteriscos). Será que tem alguma coisa nas configurações regionais do Windows? Não sei porque isso ocorre...

 
Postado : 17/02/2017 10:07 am
(@jeferson_r)
Posts: 0
New Member
Topic starter
 

Boa tarde Wag

Pois é, não encontro onde está o erro...

 
Postado : 17/02/2017 10:36 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tambem não tive problemas.
No equipamento que apresenta erro, abra o editor VBE e verifique se alguma das bibliotecas e anotada como ausente

 
Postado : 17/02/2017 1:54 pm