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
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
Boa tarde Wag
Pois é, não encontro onde está o erro...
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