[Resolvido]Bloqueando a tecla Shift

Já tentei de todas as maneiras através do procedimento do evento e inclusive já pesquisei aqui no forum, e não consegui resolver.
Alguém poderia me enviar o passo a passo do Módulo  e como resolver definitivamente esse problema.

Agradeço.

crie um modulo com esse codigo


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




salva ele com nome que quiser

crie um formulario com 2 botao um libera o outro bloqueia

TravaShift
MsgBox "Sistema Bloqueado com Sussesso!!!", vbInformation, "Bloqueio do Sistema"




LiberaShift
MsgBox "Sistema Liberado com Sussesso!!!", vbInformation, "Bloqueio do Sistema"

espero que ajude

Bom dia MAURO MACHADO,

Fiz o que vc me explicou e continuo não bloqueando a tecla shift.

Criei o módulo conforme sua instrução, criei um formulario com dois botões " Libera e Bloqueia "
coloquei nos procedimentos de evento conforme sua explicação e nada até agora.

Option Compare Database

Private Sub LiberaShift_Click()
MsgBox "Sistema Liberado com Sussesso!!!", vbInformation, "Bloqueio do Sistema"
End Sub

Private Sub TravaShift_Click()
MsgBox "Sistema Bloqueado com Sussesso!!!", vbInformation, "Bloqueio do Sistema"
End Sub

No formulário :

coloquei pop up

seletores de registro, botões de navagação NÃO

o que falta , onde eu estou errando ??

aguardo e obrigado

testa esse exemplo

testa esse exemplo 2

Resolvido , muito obrigado