Hola

Mira se puede de dos formas que Yo conozca claro.

Una es trabajar la seguridad con grupo de trabajo, esta la da el mismo access, lo que pasa es que trabaja en el system del PC, esto quiere decir que si tu creas las seguridad por usuario en tu PC, debes copiar tu System y reemplazarlo en cada uno de los PC, una vez entre a la base pide usuario y contraseña y no deja entrar con la letra Shift.

La otra es con modulos asi:

Creas un nuevo modulo que lo llamaras Activar_shift  en el copias lo siguiente:   (Este es para activar la tecla)

Function ap_EnableShift()

    On Error GoTo errEnableShift
   
    Dim db As Database
    Dim prop As Property
    Const conPropNotFound = 3270
   
    Set db = CurrentDb()
    db. Properties("AllowByPassKey") = True

Exit Function

ErrEnableShift:
  
    If Err = conPropNotFound Then
    Set prop = db. CreateProperty("AllowByPassKey", _
        dbBoolean, True)
        db.Properties.Append prop
        Resume Next
    Else
        MsgBox Err. Number & " / " & Err. Description, vbInformation + vbOKOnly, "A V I S O"
        Exit Function
    End If

End Function

Para bloquearla creas un nuevo modulo y lo llamas Bloqueo_shift y copias lo siguiente

Function ap_DisableShift()

    On Error GoTo errDisableShift
   
    Dim db As Database
    Dim prop As Property
    Const conPropNotFound = 3270
   
    Set db = CurrentDb()
     
    db. Properties("AllowByPassKey") = False
   
Exit Function

ErrDisableShift:
   
    If Err = conPropNotFound Then
    Set prop = db. CreateProperty("AllowByPassKey", _
        dbBoolean, False)
        db.Properties.Append prop
        Resume Next
    Else
        MsgBox Err. Number & " / " & Err. Description, vbInformation + vbOKOnly, "A V I S O"
        Exit Function
    End If

End Function

En un formulario en el cual solo tengas acceso tu, creas los botones de activas y bloquear

Creas el boton bloquear, en el evento al hacer clic y colocas

Private Sub Desactivar_shift_Click()
    Call Bloqueo_Shift. Ap_DisableShift
End Sub
 igual para activarla nuevamente

Intenta y me avisas

hola me pueden  ayudar para saber como activo y  desactivar la tecla shift o q pasos debo seguir.

ESTIMADO DANGELO,
ME DICE DEPURAR
Set prop = db. CreateProperty("AllowByPassKey", _
dbBoolean, False)

EN LOS DOS CASOS PARA ACTIVAR Y BLOQUEAR

GRACIAS