Inhabilitar la pulsacion de la tecla MAYUSCULAS para evitar la edicion de bases de datos

Cuando se protege una base de datos se suele hacer uso de una macro Autoexec o bien de las opciones de Herramientas/Inicio, segun las versiones de Access. Sin embargo, se puede volver a tomar el control manteniendo pulsada la tecla MAYUSCULAS mientras se abre el archivo MDB.

A partir de la version 7.0 se puede inhabilitar el uso de dicha tecla estableciendo una nueva propiedad llamada AllowBypassKey, la cual debe ser añadida a la base de datos y asignarla el valor True (Verdadero) o False (Falso). Cuando es False, la tecla MAYUSCULAS queda inhabilitada, y cuando es True, queda habilitada. Esta propiedad se puede establecer usando una macro o Visual Basic.

Para establecer la propiedad AllowBypassKey usando una macro o Visual Basic, se debe hacer usando el metodo CreateProperty y anexarla a la coleccion Properties del objeto Database.

Cuando se depure una aplicacion, hay que asegurarse de que la propiedad AllowBypassKey esta establecida a True.

Los valores de esta propiedad no son efectivos hasta la proxima vez que se abre la base de datos.

Ejemplo:

Sub SetBypass(rbFlag As Boolean)

On Error GoTo SetBypass_Error

Dim db As DATABASE

Set db = CurrentDb

db.Properties!AllowBypassKey = rbFlag

SetByPass_Exit:

Exit Sub

SetBypass_Error:

If Err = 3270 Then 'La propiedad AllowBypassKey no existe

db.Properties.Append db.CreateProperty("AllowBypassKey", dbBoolean, rbFlag)

Resume Next

Else

'Algun otro error

MsgBox "Error inesperado: " & Error$ & " (" & Err & ")"

Resume SetByPass_Exit

End If

End Sub

Este procedimiento tiene un argumento booleano. Se establece la propiedad AllowBypassKey igual al argumento rbFlag. Si la propiedad no existe, se implementa el error 3270, de forma que el procedimiento cree y añada la propiedad a la coleccion de propiedades de la base de datos.