Excel & AccessOfficeScriptsVBS & VBA

Bloqueando a tecla Shift no MS Access 2002-2003-2007-2010

4K views
4 Comentários
0
(0)

Apresentação

Quem nunca se preocupou com a segurança de seu banco de dados, mesmo que pequeno? Neste artigo veremos a como bloquear a tecla shift ao se abrir um mdb com formulários inicializáveis

Há algumas maneiras de se bloquear o Shift do Access, neste tutorial mostrarei a que julgo mais atrativa.

 

bloquear a tecla shift ao se abrir um mdb

  1. Crie um módulo com um nome a sua escolha, neste exemplo, usarei o nome mdl_libera.
  2. Dentro deste módulo, vamos colocar um script que libere e bloqueie as teclas digitadas ao iniciar o form. Coloque este script no módulo:
Option Compare Database
‘Esta é a função para liberar o Shift
Sub LiberaShift()
Const DB_Boolean As Long = 1
ChangeProperty “AllowBypassKey”, DB_Boolean, True
End Sub
‘Esta para Travar
Sub TravaShift()
Const DB_Boolean As Long = 1
ChangeProperty “AllowBypassKey”, DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ‘ Propriedade não encontrada.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
‘ Erro desconhecido.
ChangeProperty = False
Resume Change_Bye
End If
End Function
Até aqui, criamos a função. Continuando:

  1. Crie um formulário no Modo Estrutura, com Dois Botões, um para travar e outro para Liberar.
  2. Nomeie os botões a seu gosto, no nosso exemplo, colocarei os nomes Libera e Bloqueia.
  3. Chame a função no código dos botões

Botão de Bloquear, evento click:

Private Sub Bloqueia_Click()
TravaShift
End Sub
Botão de Liberar, evento click:
Private Sub Libera_Click()
LiberaShift
End Sub
  1. Crie um atalho para chamar este form que você criou, lembrando que o lugar deve ser escondido, pois toda a segurança se encontra nesse componente.
  2. Toda vez que você clique nos botões para bloquear ou liberar o shift, não esqueça de reiniciar o Access, para que as alterações entrem em vigor.

Espero ter ajudado, em caso de dúvida, poste nos comentários!
 
Fico por aqui, até mais.

O que você achou disso?

Média da classificação 0 / 5. Número de votos: 0

Nenhum voto até agora! Seja o primeiro a avaliar este post.

Como você achou esse post útil...

Ajude o site a crescer compartilhando o conteúdo

Lamentamos que este post não tenha sido útil para você!

Vamos melhorar este post!

Diga-nos, como podemos melhorar este post?

Tags: , , ,

Artigos Relacionados

4 Comentários. Deixe novo

Gostou do conteúdo? Deixe seu comentário

Veja também

Menu