MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Colocar senha para abrir as propriedades do bd atual

    avatar
    erilioaraujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/01/2012

    Colocar senha para abrir as propriedades do bd atual Empty Colocar senha para abrir as propriedades do bd atual

    Mensagem  erilioaraujo em 29/11/2018, 22:50

    tem como colocar uma senha para abrir as propriedades do bd atual
    veja na imagem anexada
    Anexos
    Colocar senha para abrir as propriedades do bd atual Attachmentsenha.gif
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 22 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1064
    Registrado : 21/11/2016

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  IvanJr. em 30/11/2018, 02:27

    Adapte o arquivo em anexo para o seu cenário

    Créditos à Avelino Sampaio/Aplicativo MontaRibbons/Seção Help dos Controles

    xml da ribbon utilizada
    Código:
    <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

    <commands>
    <command idMso="ApplicationOptionsDialog" onAction="fncOnActionComm"/>
    </commands>

    <ribbon startFromScratch="false"/>

    </customUI>

    procedimento utilizado
    Código:
    Sub fncOnActionComm(control As IRibbonControl, ByRef CancelDefault)

        Select Case control.Id
            Case "ApplicationOptionsDialog"
            
                Dim strTexto As String
                Dim varValor
                
                strTexto = "Informe a senha de acesso"
                
                'comente a linha abaixo para ocultar a senha
                strTexto = strTexto & vbNewLine & vbNewLine & "senha = 123"
                
                Do
                
                    varValor = InputBox(strTexto, "Senha")
                    
                    'clicou cancelar
                    If StrPtr(varValor) = 0 Then
                        CancelDefault = True
                        Exit Do
                    'informou senha correta
                    ElseIf StrComp(varValor, "123", vbBinaryCompare) = 0 Then
                        CancelDefault = False
                        Exit Do
                    'deixou valor em branco
                    ElseIf varValor = "" Then
                        MsgBox "Insira a senha.", vbExclamation, "Atenção"
                    'senha incorreta
                    Else
                        MsgBox "Senha incorreta.", vbCritical, "Erro de senha"
                    End If
                
                Loop
                
        End Select
        
    End Sub
    Anexos
    Colocar senha para abrir as propriedades do bd atual AttachmentBloqPropriedades.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 30 vez(es)
    avatar
    erilioaraujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/01/2012

    Colocar senha para abrir as propriedades do bd atual Empty colocar senha para abrir as propriedades do bd atual

    Mensagem  erilioaraujo em 30/11/2018, 09:00

    Colei o codigo num modulo de Ribbom ja existente e depois adicionei o comando na tabela de código da Ribbom, (Veja imagem) mas não funcionou.


    Como faço
    Anexos
    Colocar senha para abrir as propriedades do bd atual AttachmentRibbom.gif
    Você não tem permissão para fazer download dos arquivos anexados.
    (5 Kb) Baixado 8 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1064
    Registrado : 21/11/2016

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  IvanJr. em 30/11/2018, 09:16

    anexo o código xml da ribbon do banco para que eu possa ser mais acertivo
    avatar
    erilioaraujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/01/2012

    Colocar senha para abrir as propriedades do bd atual Empty colocar senha para abrir as propriedades do bd atual Xml Ribbon

    Mensagem  erilioaraujo em 30/11/2018, 10:12

    Segue TXT
    Anexos
    Colocar senha para abrir as propriedades do bd atual Attachmentribbon.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 4 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1064
    Registrado : 21/11/2016

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  IvanJr. em 30/11/2018, 10:52

    Testei as partes básicas (retirei grupos e botões pois não tenho seu aplicativo completo para saber as condições da função getEnable e getVisible) e funcionou tranquilo.

    Veja a resposta dada a dúvida nº 9 deste artigo e encontre o ponto exato onde está a ocorrer erros em sua ribbon.
    Anexos
    Colocar senha para abrir as propriedades do bd atual AttachmentBloqPropriedades_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 18 vez(es)
    avatar
    erilioaraujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/01/2012

    Colocar senha para abrir as propriedades do bd atual Empty colocar senha para abrir as propriedades do bd atual

    Mensagem  erilioaraujo em 3/12/2018, 08:35

    Veja que no texto da tabela da ribbon inicia chamando uma função onLoad="fncRibbon" "fncOnActionComm">

    Da pra chamar junto funcao da tabela da ribbon nova como acima?

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1064
    Registrado : 21/11/2016

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  IvanJr. em 3/12/2018, 09:59

    Como assim? A função "fncOnActionComm" não fica na primeira linha não... tá algumas linhas abaixo
    avatar
    erilioaraujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/01/2012

    Colocar senha para abrir as propriedades do bd atual Empty colocar senha para abrir as propriedades do bd atual

    Mensagem  erilioaraujo em 3/12/2018, 13:58

    Ok segue bd teste com modulo Vb e tabela ribbon para que vc possa dar uma olhada
    avatar
    erilioaraujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/01/2012

    Colocar senha para abrir as propriedades do bd atual Empty colocar senha para abrir as propriedades do bd atual

    Mensagem  erilioaraujo em 3/12/2018, 14:00

    Ok segue bd teste  com modulo Vb e tabela ribbon  já existentes para que você possa dar uma olhada. Desculpe os erros no envio.
    Anexos
    Colocar senha para abrir as propriedades do bd atual Attachmentbdtesteribbon.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 6 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1064
    Registrado : 21/11/2016

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  IvanJr. em 3/12/2018, 14:41

    Veja
    Anexos
    Colocar senha para abrir as propriedades do bd atual Attachmentbdtesteribbon_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 21 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1064
    Registrado : 21/11/2016

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  IvanJr. em 18/12/2018, 10:18

    Erilio, viu meu arquivo? Resolveu o problema?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    erilioaraujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/01/2012

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  erilioaraujo em 18/12/2018, 15:49

    Boa tarde!

    Vi sim mas infelizmente não deu certo. desculpe não ter dado um retorno sobre o tópico.

    Seguinte.

    Quando uso a tecla Shift, esta função não executa, ou seja, não pede senha ao entrar nas propriedades do BD atual

    alem do mais desabilita algumas funções da ribbon, como a chamada de formulários e macros contidos no modulo.

    e mais, uma mascara na senha seria importante. TIPO "*****"

    em breve enviarei uma copia do bd completo, para vc.

    Obrigado pela atencao




    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  Assis em 21/12/2018, 11:41

    Ivan

    Basta importar o Módulo assinalado no circulo para a nossa BD ?

    Já tentei, fechei a BD e voltei a abrir e não funciona.

    Obrigado

    Colocar senha para abrir as propriedades do bd atual Sem_tz46


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  Assis em 23/12/2018, 07:40

    Bom dia

    UP

    O exemplo da mensagem Nº 2 se abrir com shift pressionado, as propriedades abrem sem pedir senha.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1064
    Registrado : 21/11/2016

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  IvanJr. em 23/12/2018, 14:15

    Opa Assis, então... o exemplo colocado faz uso de uma ribbon padrão falsa que eu criei pois não sabia se o erilio tinha a própria ribbon. É apenas uma demonstração/exemplo/alternativa de como interceptar o botão. A interceptação está neste trecho.

    ApplicationOptionsDialog" onAction="fncOnActionComm"/>

    Como a interceptação vem de uma ribbon personalizada faz-se necessário então carregá-la. Algo que não acontece com ribbon nenhuma se a tecla shift estiver pressionada na abertura. Tecla shift pressionada na abertura não executa trecho algum de código, serve para acesso à estrutura.

    Uma alternativa é desabilitar o uso da tecla shift no arquivo com o código abaixo (desabilite o uso desta tecla apenas no arquivo que será cedido para o usuário final. Se você desabilitar no seu arquivo, terá um pouco de trabalho para reativá-la).

    Código:
    Public Sub fncDesabilitaShift()
    Dim prpNovo As Property
    On Error Resume Next
    CurrentDb.Properties("AllowBypassKey").Value = False
    If Err.Number = 3270 Then
      Set prpNovo = CurrentDb.CreateProperty("AllowBypassKey", _
                    dbBoolean, False)
      CurrentDb.Properties.Append prpNovo
      Err.Clear
    End If
    End Sub

    Se o arquivo final não faz uso de ribbon, pode simplesmente desabilitá-la por completo chamando o código abaixo na abertura do arquivo
    Código:
    docmd.ShowToolbar "ribbon",acToolbarNo



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  Assis em 27/12/2018, 09:22

    Bom dia

    Obrigado Ivan, pela explicação.


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado

    Colocar senha para abrir as propriedades do bd atual Empty Re: Colocar senha para abrir as propriedades do bd atual

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/12/2019, 16:49