Access - No funciona código protección inicio

He probado varios códigos para deshabilitar la tecla shift al iniciar una base con acces. Pero todos me dan error en la línea Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, False).
No se que tengo que hacer para solucionarlo.
Gracias.

te falta declarar la variable, si queres te envio una funcion resuelta, si es que no lo solucionaste

Que tal Leo,

fijate que necesito si me puedes enviar esa funcion ya que tambien tengo el mismo problema.

Gracias

Por favor enviame el código resuelto ya que no puedo solucionarlo.
Muchas gracias.

Esta funcion me la pasaron a mi y funciona perfectamente. Tened cuidado ya que una vez usada si no lo controlais es irreversible.

Function segur()

''Inabilita la "tecla" de entrada.
Dim strPropName As String
Dim dbs As Database, prp As Property
strPropName = "AllowBypassKey"
Set dbs = CurrentDb
Set prp = dbs.CreateProperty(strPropName, dbBoolean, False)
On Error Resume Next
dbs.Properties.Append prp
dbs.Properties(strPropName) = False

End Function