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?
4 participantes
[Resolvido]como proteger o banco de dados
soltecitu- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 88
Registrado : 30/09/2014
- Mensagem nº1
[Resolvido]como proteger o banco de dados
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº2
Re: [Resolvido]como proteger o banco de dados
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.
Usando o nosso sistema de busca, disponível aqui no fórum temos e encontramos alguns tópicos:
Esse ou este .
Bons estudos.
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
soltecitu- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 88
Registrado : 30/09/2014
- Mensagem nº3
Re: [Resolvido]como proteger o banco de dados
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?
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?
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº4
Re: [Resolvido]como proteger o banco de dados
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.
Veja se você não se esquece de algo,principalmente um módulo chamado BasShift que tem que estar no teu sistema.
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº5
Re: [Resolvido]como proteger o banco de dados
Olá!
veja se este meu artigo ajuda:
http://www.usandoaccess.com.br/dicas/armazenar-valores-lista-propriedades.asp?id=1&idlista=87#inicio
Aguardamos
veja se este meu artigo ajuda:
http://www.usandoaccess.com.br/dicas/armazenar-valores-lista-propriedades.asp?id=1&idlista=87#inicio
Aguardamos
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
soltecitu- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 88
Registrado : 30/09/2014
- Mensagem nº6
Re: [Resolvido]como proteger o banco de dados
então amigo acho que seria isso mesmo , "módulo chamado BasShift" não sei como fazer esses módulo ainda.
clalves- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 28
Registrado : 30/06/2011
- Mensagem nº7
Bloqueio tecla "Shift"
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?
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?
soltecitu- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 88
Registrado : 30/09/2014
- Mensagem nº8
Re: [Resolvido]como proteger o banco de dados
Amigo, clalves
NO caso vc colocou esses comando em que lugar?
Foi em algum botão?
NO caso vc colocou esses comando em que lugar?
Foi em algum botão?
clalves- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 28
Registrado : 30/06/2011
- Mensagem nº9
Re: [Resolvido]como proteger o banco de dados
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.
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.
soltecitu- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 88
Registrado : 30/09/2014
- Mensagem nº10
Re: [Resolvido]como proteger o banco de dados
Amigo,
deu certo, funcionou.
Muito obrigado.
deu certo, funcionou.
Muito obrigado.
clalves- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 28
Registrado : 30/06/2011
- Mensagem nº11
Re: [Resolvido]como proteger o banco de dados
Valeu por responder companheiro!
Abraços!
Abraços!
soltecitu- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 88
Registrado : 30/09/2014
- Mensagem nº12
Re: [Resolvido]como proteger o banco de dados
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 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?
clalves- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 28
Registrado : 30/06/2011
- Mensagem nº13
Re: [Resolvido]como proteger o banco de dados
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!
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!
» [Resolvido]Como proteger o banco de dados?
» PROTEGER FORMULÁRIO - Como proteger formulários para que o usuário só possa alterar clicando em botão EDITAR
» Como Proteger Dados de Uma Tabela Contra Alterações?
» [Resolvido]Como proteger uma pasta de clientes?
» [Resolvido]Como proteger um bd contra delete
» PROTEGER FORMULÁRIO - Como proteger formulários para que o usuário só possa alterar clicando em botão EDITAR
» Como Proteger Dados de Uma Tabela Contra Alterações?
» [Resolvido]Como proteger uma pasta de clientes?
» [Resolvido]Como proteger um bd contra delete