MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    avatar
    Claudemir P
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  Claudemir P Dom Jul 05, 2015 2:43 am

    Como 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?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7070
    Registrado : 15/03/2013

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  ahteixeira Dom Jul 05, 2015 7:01 pm

    Olá Claudemir, será melhor postar base de dados com exemplo para se compreender melhor a questão.
    Abraço
    avatar
    Claudemir P
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  Claudemir P Dom Jul 05, 2015 7:09 pm

    Acredito que minha duvida é conceitual, quero que ao digitar a palavra "teste" apareça "*****" ou "●●●●●", por exemplo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4338
    Registrado : 06/11/2009

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  Assis Dom Jul 05, 2015 7:49 pm

    Boa tarde

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox 28c3w93



    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7070
    Registrado : 15/03/2013

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  ahteixeira Dom Jul 05, 2015 8:06 pm

    Grande Assis, tudo bom cheers
    Claudemir, caso não seja como o colega Assis exemplificou, veja este tópico, tem exemplo na mensagem nº 5.
    Abraço
    Robystanley
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 21/12/2015

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  Robystanley Qua Fev 17, 2016 4:55 am

    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:

    Código:
    Private Sub Btn_001_Click()

    Dim strResposta As String
    strResposta = InputBoxDK("Digite a senha .", "Senha", _
    "", 2000, 1000)




    Abraços!!!
    Lupércio
    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1145
    Registrado : 07/05/2011

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  Lupércio Qua Fev 17, 2016 8:56 am

    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.


    .................................................................................
    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.lol!Rolling Eyes
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7070
    Registrado : 15/03/2013

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  ahteixeira Qua Fev 17, 2016 12:41 pm

    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:
    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.
    cheers
    Anexos
    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox AttachmentInputBox_Palavra_Passe.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 30 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  JPaulo Qua Fev 17, 2016 3:16 pm



    .................................................................................
    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 Utilize o Sistema de Busca do Fórum...
    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Folder_announce_new Instruções SQL como utilizar...
    avatar
    Claudemir P
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  Claudemir P Sex Fev 19, 2016 1:15 am

    Desculpa demora, obrigado a todos, todas orientações foram muito uteis, principalmente do ahteixeira que resolveu meu problema sem exitar.

    Grato
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7070
    Registrado : 15/03/2013

    [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox Empty Re: [Resolvido]Texto (senha) Asterisco em Inputbox em Combobox

    Mensagem  ahteixeira Sex Fev 19, 2016 8:06 am

    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

      Data/hora atual: Seg Mar 01, 2021 4:40 pm