[Resolvido]como proteger o banco de dados

olá pessoal como posso proteger meu banco de dados para que ninguém possa abrir e ver os dados dele. no caso o seguinte o programa ficou com uma parte aberta para todos mas para outro formulário coloquei senha, mas se for aberto com a tecla shift pressionada é possível acetar a tabela e ver as informações como posso impedir isso?

Boa tarde.

Usando o nosso sistema de busca, disponível aqui no fórum temos e encontramos alguns tópicos:

Esse ou este .

Bons estudos.

olá, silvio

então verifiquei projetos, só que não vi consegui que funcionasse nenhum que achei.
não sei se estão com falhas pois todos mesmo ativando continua a funcionar a techa shift.


mas vamos lá... pelo que vi tem que colocar essa função em cada tecla.

Private Sub cmdAtiva_Click()
AlterarPropriedade "AllowBypassKey", dbBoolean, True
MsgBox ("Ativado")
End Sub

Private Sub cmdDesativa_Click()
AlterarPropriedade "AllowBypassKey", dbBoolean, False
MsgBox ("Desativado")
End Sub

mas infelizmente não funcionou.
é necessário fazer alguma macro ou outra coisa?

Eu tenho ele aqui e funfa legal...

Veja se você não se esquece de algo,principalmente um módulo chamado BasShift que tem que estar no teu sistema.

então amigo acho que seria isso mesmo , "módulo chamado BasShift" não sei como fazer esses módulo ainda.

Dê uma olhada nesta função colocada em outro forúm pelo companheiro Célio Rodrigues:

1) Primeiramente eu coloquei esta função em um modulo meu.

Function DestravaSHIFT(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
'* Objetivo - Bloquear ou liberar o uso da tecla SHIFT
'* Parametros - strPropName : AllowBypassKey (nome da Propriedade SHIFT no Access)
'* varPropType : Tipo da propriedade AllowBypassKey (dbBoolean)
'* varPropValue: Valor da propriedade AllowBypassKey (True ou False)
'* Retorna - TRUE : Desbloqueia a tecla SHIFT
'* FALSE: Bloqueia o uso

Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
DestravaSHIFT = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Propriedade não localizada.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Erro desconhecido.
DestravaSHIFT = False
Resume Change_Bye
End If
End Function

2) Na minha primeira tela do meu projeto tem uma logo da empresa (objeto do tipo imagem), no evento click deste logotipo eu coloco o coloquei o codigo abaixo:

If MsgBox("Trava tecla SHIFT?", vbYesNo + vbQuestion, "Confirmação") = vbYes Then
'Bloqueia a tecla shift
DestravaSHIFT "AllowBypassKey", dbBoolean, False
Else
'Libera a tecla shift
DestravaSHIFT "AllowBypassKey", dbBoolean, True
End If

3) Se o meu projeto estiver protegido contra a tecla SHIFT bastar apenas eu clicar neste logotipo e responder que eu nao quero travar a tecla SHIFT, sai do sistema normalmente e entro novamente com a tecla shift pressionada, ai o sistema entra em modo de estrutura.

4) O legal é que o comando fica escondido e so voce fica sabendo.


Não testei ainda, mas acredito que possa dar certo, retorne se funcionar ok?

Amigo, clalves
NO caso vc colocou esses comando em que lugar?
Foi em algum botão?

Pode ser também amigão, mas isso permitirá a outras pessoas acessarem a área de bloqueio da tecla shift! O ideal é você criar um campo que só você tem acesso ou saberá onde fica para colocar a segunda parte da função. O passo a passo seria:

1-Crie um módulo e cole a função numero 1 salve com um nome que o identifica tipo "Shift" mesmo.

2-Em um formulário qualquer crie um campo, podendo ser um botão, uma imagem etc... que só você sabe onde está e no evento "Clicar" de sua propriedade, você cole a parte 2 da função.

Entendido? Você também pode criar para a parte 2 um formulário próprio com os botões de liberação e bloqueio e escondê-lo em seu banco de dados, mas daí demanda um pouco mais de trabalho para você ocultá-lo, ok?
Qualquer dúvida, chama novamente.

Amigo,
deu certo, funcionou.

Muito obrigado.

Valeu por responder companheiro!

Abraços!

amigo, clalves


O comando estava legal agora começou apresentar o seguinte erro quando ativo ou desativo a tecla shift

Erro de compilação:
O tipo definido pelo usuário não foi definido

Pode me ajudar?

O amigão, estive fora e só hoje estou tendo acesso ao fórum, seguinte, este erro de compilação pode ser alguma variável que não foi digitada da forma correta ou não faz parte da biblioteca de dados etc...
Tem como você postar todos os comandos da forma que você criou? Ou então enviar seu BD ou parte dele para que eu possa analisar aqui e te retornar corrigido, ok?
Abraços!