[Resolvido]Senha no banco de dados

Boa noite galera do Forum.

Tenho uma enorme dúvida em relação a colocar senha no meu banco de dados.

Tenho um programa que ao clicar no icone ele abre no meu campo de usuário e senha, até aí tudo bem, o cliente usa a vontade.

Só que minha dúvida é: Como colocar senha no meu banco de dados para evitar que o cliente, ao pressionar "SHIFT", acesse o meu banco.

A maneira mais simples é compilar teu aplicativo, para mde ou accde

Assim ele pode fazer o que quiser que não poderá fazer nada.

Alias eu trabalho assim, meus cliente tem o mde/accde os mdbs/accdbs ficam comigo.

Outra maneira, procure no fórum ( use o botão buscar ali de cima) por Tecla shift,

vai encontrar vários exemplos.

Procurei toas as buscas e não encontrei o que desejo.

Gostaria de saber se alguém pode me ajudar

Vê aqui

https://www.maximoaccess.com/search?mode=searchbox&search_keywords=shift&show_results=topics

Bom dia:

Talvez não esteja sabendo explicar minha dúvida.

Possuo um banco de dados chamado "Aliança Eventos". Quando clico neste arquivo ele vai para o campo "Usuário" e "Senha". Mas quando clico nesse arquivo pressionando "Shift" ele entra no meu banco de dados. Aí que gostaria de colocar senha.

Glaucius

Como agora nos disse o que realmente deseja, fica bem mais fácil ajudar.

Mas se tivesse feito a pesquisa usando a palavra desativar a tecla Shift , iria encontrar
vários exemplos, entre eles,  esse feito por mim.

Como diz na mensagem, FAÇA um backup do teu aplicativo antes, para o caso de dar algo errado.

Se é isso é facil eu tenho da seguinte forma:

No painel principal, ou em outro á minha escolha criei um botão que me abre outro painel, o painel "ADMIN"

Criei um painel no meu caso com o nome "ADMIN" no qual coloquei dois campos desvinculados um de nome "user" e outro de nome "pass"
No campo pass coloquei no evento "depois de actualizar" o código:

Código:

Private Sub pass_AfterUpdate()
On Error GoTo Err_Comando_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    If Me.user = "Toyebom" And Me.pass = "1234" Then
    MsgBox ("Bem Vindo Toyebom")
    DoCmd.Close
    DoCmd.OpenForm ("administrador1")
    Else
    MsgBox "Não tem acesso a este recurso", vbInformation, ""
    DoCmd.Close
   
End If


Exit_Comando_Click:
    Exit Sub

Err_Comando_Click:
    MsgBox Err.Description
    Resume Exit_Comando_Click
End Sub

Esse código verifica que foi inserido correctamente a passe e caso seja abre outro painel que criei de nome "administrador1" onde coloquei dois botões um de desbloqueio do SHIFT e outro de bloqueio.
No botão de desbloqueio coloquei:

Código:

Private Sub Comando56_Click()
  AlterarPropriedade "AllowBypassKey", dbBoolean, True
  MsgBox "Base Desbloqueada Totalmente", vbInformation, "OK"
    DoCmd.Quit
End Sub

e no de bloqueio coloquei:

Código:

Private Sub Comando57_Click()
  AlterarPropriedade "AllowBypassKey", dbBoolean, False
  MsgBox "Base Bloqueada Totalmente", vbInformation, "OK"
    DoCmd.Quit
End Sub

Assim bloqueio e desbloqueio quando quero e só mediante introdução de palavra pass que apenas pode ser alterada em vba no qual atribui acesso e visualização mediante palavra pass que só eu sei.

Se estou solicitando ajuda é porque não sabia como procurar pela palavra certa, mas mesmo assim Obrigado Toyebom e Noobezinho pelas dicas