Hey que estas haciendo gaby jajajajajaja ya tambien estoy aqui en esta pagina checando informacion sobre codigos de visual basic.... Oye encontre un codigo para eso de la techa shift para que la puedas deshabilitar
utiliza el siguiente codigo:
Sub SetBypassProperty()
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 ' No se encontró la propiedad.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Error desconocido.
ChangeProperty = False
Resume Change_Bye
End If
End Function
OJO que despues de hacer esto nunca mas podras entrar a administrarla, o te guardas una copia o lo que podrias hacer es que en el form agregar un boton o una accion en un lugar que nadie toque para pasar la propiedad a true:
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, TRUE
End Sub
Espero que te sirva, buenos ciao