Bem Vindo....
Autor: Rogério | Publicado: 2016-04-14T09:51:00-07:00

Este blog tem como objetivo informar sobre dicas access e suas novidades bem como outras utlidades dentro do assuntos informáticos.

vamos lá


Como bloquear a tecla shift


<!--[if gte mso 9]>     Normal   0   21         false   false   false                             MicrosoftInternetExplorer4   <![endif]--><!--[if gte mso 9]>     <![endif]--> <!--  /* Font Definitions */  @font-face  {font-family:Verdana;  panose-1:2 11 6 4 3 5 4 4 2 4;  mso-font-charset:0;  mso-generic-font-family:swiss;  mso-font-pitch:variable;  mso-font-signature:536871559 0 0 0 415 0;}  /* Style Definitions */  p.MsoNormal, li.MsoNormal, div.MsoNormal  {mso-style-parent:"";  margin:0cm;  margin-bottom:.0001pt;  mso-pagination:widow-orphan;  font-size:10.0pt;  font-family:"Times New Roman";  mso-fareast-font-family:"Times New Roman";} @page Section1  {size:612.0pt 792.0pt;  margin:70.85pt 3.0cm 70.85pt 3.0cm;  mso-header-margin:36.0pt;  mso-footer-margin:36.0pt;  mso-paper-source:0;} div.Section1  {page:Section1;}  
--&gt;<!--[if gte mso 10]>   /* Style Definitions */  table.MsoNormalTable  {mso-style-name:"Tabela normal";  mso-tstyle-rowband-size:0;  mso-tstyle-colband-size:0;  mso-style-noshow:yes;  mso-style-parent:"";  mso-padding-alt:0cm 5.4pt 0cm 5.4pt;  mso-para-margin:0cm;  mso-para-margin-bottom:.0001pt;  mso-pagination:widow-orphan;  font-size:10.0pt;  font-family:"Times New Roman";  mso-ansi-language:#0400;  mso-fareast-language:#0400;  mso-bidi-language:#0400;}  <![endif]-->    
 
Para bloquear a tecla shift e deixar não seu banco vulnerável:  

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

 

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 bloqueie teclas degitadas ao iniciare do form, e que libere teclas digitadas ao iniciar do form. Como este tutorial pretende alcançar leigos e masters, colocarei o codigo abaixo:

 

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:

 

3º. Crie um formulário no Modo Estrutura, com Dois Botões, um para travar e outro para Liberar.

 

4º. Nomeie os botões a seu gosto, no nosso exemplo, colocarei os nomes Libera e Bloqueia.

5º Chame a função no código dos botões

 

Private Sub Bloqueia_Click()

TravaShift

End Sub

 

Private Sub Libera_Click()

LiberaShift

End Sub

 

5º. Crie um atalho para chamar este form que você criou, lembrando que o lugar deve ser escondido e não deve ser divulgado, pois toda a segurança se encontra nesse componente.

 
obs. 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