InícioComo faco para que o texto digitado, nao seja visivel, apareca como senha?
Este texto e uma opcao de um inputbox, porem como coloco combobox no inputbox?
Este texto e uma opcao de um inputbox, porem como coloco combobox no inputbox?
+2
Alvaro Teixeira
Claudemir P
6 participantes
[Resolvido]Texto (senha) Asterisco em Inputbox em Combobox
Claudemir P- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 177
Registrado : 27/06/2013
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
- Mensagem nº2
![[Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty](https://2img.net/i/empty.gif)
Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox
Alvaro Teixeira 5/7/2015, 19:01
Olá Claudemir, será melhor postar base de dados com exemplo para se compreender melhor a questão.
Abraço
Abraço
Claudemir P- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 177
Registrado : 27/06/2013
- Mensagem nº3
Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox
Claudemir P 5/7/2015, 19:09
Acredito que minha duvida é conceitual, quero que ao digitar a palavra "teste" apareça "*****" ou "●●●●●", por exemplo.
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Boa tarde
![[Resolvido]Texto (senha) Asterisco em Inputbox em Combobox 28c3w93](https://2img.net/h/oi61.tinypic.com/28c3w93.png)
.................................................................................
*** Só sei que nada sei ***
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
- Mensagem nº5
Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox
Alvaro Teixeira 5/7/2015, 20:06
Grande Assis, tudo bom 
Claudemir, caso não seja como o colega Assis exemplificou, veja este tópico, tem exemplo na mensagem nº 5.
Abraço
Claudemir, caso não seja como o colega Assis exemplificou, veja este tópico, tem exemplo na mensagem nº 5.
Abraço
Robystanley- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 117
Registrado : 21/12/2015
- Mensagem nº6
Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox
Robystanley 17/2/2016, 04:55
Olá Claudemir!!!
O segredo para deixar sua InputBox com asterisco, é acrescentar as letras "DK" no final do nome InputBox, ficando assim: "InputBoxDK, veja exemplo abaixo:
Abraços!!!
O segredo para deixar sua InputBox com asterisco, é acrescentar as letras "DK" no final do nome InputBox, ficando assim: "InputBoxDK, veja exemplo abaixo:
- Código:
Private Sub Btn_001_Click()
Dim strResposta As String
strResposta = InputBoxDK("Digite a senha .", "Senha", _
"", 2000, 1000)
Abraços!!!
Lupércio- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011
- Mensagem nº7
Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox
Lupércio 17/2/2016, 08:56
Ou assim ahteixeira rsrs.
O campo da tabela que vai digitar a senha deixa como texto.
E na mascara de entrada do mesmo digite senha.
O campo da tabela que vai digitar a senha deixa como texto.
E na mascara de entrada do mesmo digite senha.
.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
- Mensagem nº8
Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox
Alvaro Teixeira 17/2/2016, 12:41
Olá a todos,
Não falta exemplos, falta é a resposta do colega que abriu o tópico.
Robson Palma, faltou o módulo para a sua dica funcionar, segue abaixo código:
Para quem tiver dificuldade criei exemplo o qual anexo.
Claudemir Pastora, os utilizadores do fórum agradecem o retorno.
Não falta exemplos, falta é a resposta do colega que abriu o tópico.
Robson Palma, faltou o módulo para a sua dica funcionar, segue abaixo código:
- Código:
Option Compare Database
Option Explicit
'////////////////////////////////////////////////////////////////////
'Password masked inputbox
'Allows you to hide characters entered in a VBA Inputbox.
'
'Code written by Daniel Klann
'http://www.danielklann.com/
'March 2003
'// Kindly permitted to be amended
'// Amended by Ivan F Moala
'// http://www.xcelfiles.com
'// April 2003
'// Works for Xl2000+ due the AddressOf Operator
'////////////////////////////////////////////////////////////////////
'******************** CALL FROM FORM *********************************
' Dim pwd As String
'
' pwd = InputBoxDK("Please Enter Password Below!", "Database Administration Security Form.")
'
' 'If no password was entered.
' If pwd = "" Then
' MsgBox "You didn't enter a password! You must enter password to 'enter the Administration Screen!" _
' , vbInformation, "Security Warning"
' End If
'**************************************
'API functions to be used
Private Declare Function CallNextHookEx _
Lib "user32" ( _
ByVal hHook As Long, _
ByVal ncode As Long, _
ByVal wParam As Long, _
lParam As Any) _
As Long
Private Declare Function GetModuleHandle _
Lib "kernel32" _
Alias "GetModuleHandleA" ( _
ByVal lpModuleName As String) _
As Long
Private Declare Function SetWindowsHookEx _
Lib "user32" _
Alias "SetWindowsHookExA" ( _
ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) _
As Long
Private Declare Function UnhookWindowsHookEx _
Lib "user32" ( _
ByVal hHook As Long) _
As Long
Private Declare Function SendDlgItemMessage _
Lib "user32" Alias "SendDlgItemMessageA" ( _
ByVal hDlg As Long, _
ByVal nIDDlgItem As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) _
As Long
Private Declare Function GetClassName _
Lib "user32" _
Alias "GetClassNameA" ( _
ByVal hWnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) _
As Long
Private Declare Function GetCurrentThreadId _
Lib "kernel32" () _
As Long
'Constants to be used in our API functions
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0
Private hHook As Long
Public Function NewProc(ByVal lngCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim RetVal
Dim strClassName As String, lngBuffer As Long
If lngCode < HC_ACTION Then
NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
Exit Function
End If
strClassName = String$(256, " ")
lngBuffer = 255
If lngCode = HCBT_ACTIVATE Then 'A window has been activated
RetVal = GetClassName(wParam, strClassName, lngBuffer)
If Left$(strClassName, RetVal) = "#32770" Then 'Class name of the Inputbox
'This changes the edit control so that it display the password character *.
'You can change the Asc("*") as you please.
SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0
End If
End If
'This line will ensure that any other hooks that may be in place are
'called correctly.
CallNextHookEx hHook, lngCode, wParam, lParam
End Function
'// Make it public = avail to ALL Modules
'// Lets simulate the VBA Input Function
Public Function InputBoxDK(Prompt As String, Optional Title As String, _
Optional Default As String, _
Optional Xpos As Long, _
Optional Ypos As Long, _
Optional Helpfile As String, _
Optional Context As Long) As String
Dim lngModHwnd As Long, lngThreadID As Long
'// Lets handle any Errors JIC! due to HookProc> App hang!
On Error GoTo ExitProperly
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)
hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
If Xpos Then
InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
Else
InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context)
End If
ExitProperly:
UnhookWindowsHookEx hHook
End Function
Sub TestDKInputBox()
Dim x
x = InputBoxDK("Type your password here.", "Password Required")
If x = "" Then End
If x <> "yourpassword" Then
MsgBox "You didn't enter a correct password."
End
End If
MsgBox "Welcome Creator!", vbExclamation
End Sub
Para quem tiver dificuldade criei exemplo o qual anexo.
Claudemir Pastora, os utilizadores do fórum agradecem o retorno.
- Anexos
![[Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Attachment](https://2img.net/i/fa/attachment.png)
InputBox_Palavra_Passe.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (24 Kb) Baixado 49 vez(es)
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Claudemir P- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 177
Registrado : 27/06/2013
- Mensagem nº10
Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox
Claudemir P 19/2/2016, 01:15
Desculpa demora, obrigado a todos, todas orientações foram muito uteis, principalmente do ahteixeira que resolveu meu problema sem exitar.
Grato
Grato
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
- Mensagem nº11
Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox
Alvaro Teixeira 19/2/2016, 08:06
Olá a todos,
JPaulo obrigado, só nos resta dizer mais uma vez, amigos com uma busca por vezes encontramos o que pretendemos, para isso:
https://www.maximoaccess.com/t1115-busca-no-forum-search
Claudemir, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço
JPaulo obrigado, só nos resta dizer mais uma vez, amigos com uma busca por vezes encontramos o que pretendemos, para isso:
https://www.maximoaccess.com/t1115-busca-no-forum-search
Claudemir, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço
Conteúdo patrocinado