Eliminar el shift + enter

Te paso una respuesta mía del 4 de Abril de 2003
Buenas tardes..
Aunque esta propiedad evita el uso de entrar en una base de datos presionando la tecla Mayúscula, no tiene porque ser 100% efectiva... desde cualquier otra base de datos es posible modificar esta propiedad..
AllowByPassKey es una propiedad creada por el propio usuario de la base de datos, es decir, esta propiedad no existe cuando se crea la base de datos ... para crear esta propiedad ejecuta la siguiente función..
Function fEvitarAcces()
'Autor : Jordi Madern i Pérez
'Data Creació : 08 d'Abril de 2003
'Data Modific.: 08 d'Abril de 2003
'Objecte : Crear propietat AllowByPassKey
Dim dbs As Database
Dim prp As Property
Const cPrpName As String = "AllowByPassKey"
On Error GoTo fEvitarAccess_Error
'Abrir base de datos
Set dbs = CodeDb
dbs.Properties.Append dbs.CreateProperty(cPrpName, dbBoolean, False)
fEvitarAccess_Exit:
On Error Resume Next
dbs.Close: Set dbs = Nothing
Exit Function
fEvitarAccess_Error:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical
Resume fEvitarAccess_Exit
End Function
Con esta función creas la función que evitará "la entrada a tu bd.."
Saludos.
Jordi Madern i Pérez
Mataró (Barcelona)

¿Y dónde incluyo el código?