Colocar senha em função de bloqueio da tecla Shift

Ola Boa Tarde
tenho um formulário onde estão 02 botoes ocultos que habilitam e desabilitam a tecla shift do access. quero colocar uma senha para quando quando clicar para desabilitar ou habilitar,  ele peça a senha

segue os códigos que já tentei mas não deu certo

este codigo peguei no site:
Private Sub bt_AB_Click()
Dim strResposta As String
strResposta = InputBoxDK("Digite a senha:", "Senha", "")
Select Case strResposta
Case Is = ""
DoCmd.CancelEvent
Case Is = "01011525" '

este é o que desabillita a tecla
Private Sub Comando102_Click()
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "The Bypass Key was disabled." & vbCrLf & vbLf & _
"The Shift key will NOT allow the users to bypass the startup options the next time the database is opened.", _
vbInformation
End Sub
obs: este codigo está inserido no evento a clicar do botão
Aguardo. Abraços.

Boa tarde Erilio, bem vindo ao forum.

Veja esse topico:

http://maximoaccess.forumeiros.com/t1839-resolvidosenha-para-botao-de-formulario

Regras do Fórum

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

Observe que o título desse tópico está infringindo a regra 12. Dessa vez eu corrijo o
título, da próxima, por favor atente para cumprir as regras (Em instantes estarei corrigindo
o título)