Notifications
Clear all

Passwordchar Text Box - Não retorna o valor digitado

4 Posts
3 Usuários
0 Reactions
1,127 Visualizações
(@jeferson_r)
Posts: 34
Eminent 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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...

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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

Boa tarde Wag

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

 
Postado : 17/02/2017 10:36 am
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/02/2017 1:54 pm