Colocar senha para abrir as propriedades do bd atual

tem como colocar uma senha para abrir as propriedades do bd atual
veja na imagem anexada

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

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

anexo o código xml da ribbon do banco para que eu possa ser mais acertivo

Segue TXT

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.

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?

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

Ok segue bd teste com modulo Vb e tabela ribbon para que vc possa dar uma olhada

Ok segue bd teste  com modulo Vb e tabela ribbon  já existentes para que você possa dar uma olhada. Desculpe os erros no envio.

Veja

Erilio, viu meu arquivo? Resolveu o problema?

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

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

Bom dia

UP

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

Obrigado

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

Bom dia

Obrigado Ivan, pela explicação.