MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


4 participantes

    [Resolvido]Colocar senha num botao

    avatar
    kadhu
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 734
    Registrado : 25/04/2012

    [Resolvido]Colocar senha num botao Empty [Resolvido]Colocar senha num botao

    Mensagem  kadhu 4/6/2014, 04:05

    Boa noite a todos!Gostaria de saber se ha a possibilidade de colocar senha num botao de um form,sei da pra fazer um sistema de login com restriçao,porem gostaria de saber se ha um cod vba,com senha ,para aplicar no evento clicar do botao,para permitir acesso ao determinado form,apenas ao inserir a senha?


    .................................................................................
    "E conhecereis a verdade e a verdade vos libertará ."João 8:32
    clynton
    clynton
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/07/2013

    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  clynton 4/6/2014, 10:45

    Ricardo, você tem habilidade para criar tela de login?
    Se sim, só aplicar em tal botão, de forma que só seja aberta a tela se o login estiver correto, Se não, aguardamos retorno para auxiliá-lo.


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."
    avatar
    kadhu
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 734
    Registrado : 25/04/2012

    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  kadhu 4/6/2014, 18:16

    Para min ,seria mais adequado,bloquear e desbloquear um botao com um cod vba(isso existe?),no qual o form esteja aberto e apenas um botao bloqueado com senha!


    .................................................................................
    "E conhecereis a verdade e a verdade vos libertará ."João 8:32
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  Silvio 4/6/2014, 22:36

    Boas.....com a permissão de todos...

    É só adaptar as tuas necessidades.

    Private Sub bt_AB_Click()
    Dim strResposta As String
    strResposta = InputBoxDK("Digite a senha:", "Senha", "")
    Select Case strResposta
    Case Is = ""
    DoCmd.CancelEvent
    Case Is = "xxxxx" ' aqui vai a senha definida por você

    'aqui abaixo você pode colocar qualquer função. No caso abaixo vai abrir um determinado formulário.
    DoCmd.OpenForm "frmYYYYYYYYY"
    End Select

    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  JPaulo 4/6/2014, 23:12

    Silvio, atenção que o InputBoxDK necessita da função para poder funfar.


    .................................................................................
    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]Colocar senha num botao Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Colocar senha num botao Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Colocar senha num botao Folder_announce_new Instruções SQL como utilizar...
    avatar
    kadhu
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 734
    Registrado : 25/04/2012

    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  kadhu 5/6/2014, 00:27

    Meu muito,obrigado ,vou testar!
    Da erro de compilaçao!
    "Sub" ou "Function" nao definida!
    aponta para InputBoxDK


    .................................................................................
    "E conhecereis a verdade e a verdade vos libertará ."João 8:32
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  Silvio 5/6/2014, 00:53

    Est factus est.....

    JPaulo tens toda a razão.....tens toda a razão.

    Seguinte Kadhu, copie e cole a seguinte instrução abaixo em um módulo:

    Código:
    Option Compare Database

    '////////////////////////////////////////////////////////////////////
    '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
    '**************************************
    ' Essa é a mascara para a caixa de senha, não apagar isso


    '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


    Quando fechar o formulário ou outro objeto do teu projeto, vai pedir para salvar esse módulo, salve com esse nome: mdlimputbox


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    kadhu
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 734
    Registrado : 25/04/2012

    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  kadhu 5/6/2014, 00:56

    Obrigado a todos ,


    .................................................................................
    "E conhecereis a verdade e a verdade vos libertará ."João 8:32
    avatar
    kadhu
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 734
    Registrado : 25/04/2012

    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  kadhu 5/6/2014, 01:02

    Silvio!Era isso mesmo !Parabéns lhe devo essa.abraços


    .................................................................................
    "E conhecereis a verdade e a verdade vos libertará ."João 8:32
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  Silvio 5/6/2014, 01:52

    O fórum agradece o retorno.

    Sucesso.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Colocar senha num botao Empty Re: [Resolvido]Colocar senha num botao

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:06