marcelo3092 13/7/2024, 03:08
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