terça-feira, dezembro 10, 2019
Home » Office » MS Access » Bloqueando a tecla Shift no MS Access 2002-2003-2007-2010

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

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.

Sobre Diego Duarte

Diego Duarte é Gerente de Suporte, com mais de 7 anos de experiência em Data Center, e de quebra, arranha um violãozinho aos finais de semana

4 comentários

  1. Moacir

    Sim, muito bom !

  2. dico

    pessoal, boa tarde!
    no meu bd não funcionou. alguém pode me dar alguma dica do que estou fazendo errado?

  1. Pingback: URL

  2. Pingback: Giuseppe Zanotti London Croc Zip Sneakers

Gostou do conteúdo? Deixe seu comentário