Esconder a senha

[coldcase 0]

Olá forum.

 

No meu sistema, quando clicado para entrar em um dos módulos, o sistema pede senha da seguinte maneira:

 

Dim senha As String        Dim Registro As Variant            senha = InputBox("Digite a senha: ", "SIG-PRAÇAS")                If senha = " SENHA " Then        frmInclusãodePraças.Show                Else        MsgBox ("Senha incorreta")        End If

Mas a galera que ta em volta acaba vendo a senha que está sendo digitada.

Tem como fazer aqueles asteristicos aparecerem nesse caso?

 

[]´s

[kauebranco 0]

coloca assim e testa senha = InputBox$("Digite a senha: ", "SIG-PRAÇAS")coloquei na frente de InputBox "$" .. qq coisa posta ae !!!

[kauebranco 0]

fui pesquisar melhor e cheguei a conclusão de que num da pra fazr isso pra resolver esse problema só se você criar um outro form como se fosse um InputBox e programa direitinho entendeu ? abri o outro form como se fosse um InputBox !!!

[kauebranco 0]

caracass.. que código irado .. pelo que eu entendi você programou pra durante um determinado tempo tudo (em qualquer lugar) do sistema inteiro que o cara digitar sai em forma de senha("*") .... uauuu..se for isso que eu entendi você foi bem agora ..rss parabens ...rss

[kauebranco 0]

só tinha uma coisa que tava errado que num tava funcionando mais eu descobri ...na xamada da função no form está assim né :SetTimer hwnd, NV_INPUTBOX, 10, AddressOf TimerProc mais faltou colocar na frente de "hwnd" o nome do form ou "Me"que ficaria assim SetTimer Me.hWnd, NV_INPUTBOX, 10, AddressOf TimerProcpronto ... depois de fazer isso começou a pegar!!!

[kauebranco 0]

o meu só pegou depois que mudei isso !!! num sei pq !!!

[coldcase 0]

Show de Código!