Eliminar el shift + enter
¿Me podrías indicar como se puede evitar que alguien vea el diseño de las tablas y demás mediante el arranque con shift + enter?.
2 Respuestas
Respuesta de madern
2
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)
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)
madern COMO PUEDO MODIFICAR ESTO DESDE OTRA BASE DE DATOS??? - Carlos Cabra