Inhabilitar la tecla shift / Mayus a l'obir una base de dades d'Access

Per impedir que un usuari pugui saltar-se les opcions d'inici que haguem pogut definir per a la nostra base de dades, podem ihabilitar la tecla shift / Mayus seguint els següents passos:

1. Creem un mòdul al qual hi introduirem el següent codi amb la funció que inhabilitarà la tecla shift / mayus

Public Function AlterarPropiedades(strPropName As String, _
varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
AlterarPropiedades = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Propiedad no ha sido localizada.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Error desconocido.
AlterarPropiedades = False
Resume Change_Bye
End If
End Function


2. Creem un formulari en blanc al qual li afegirem un botón de comando i en l'event Al hacer clic hi introduirem el següent codi per cridar a la funció AlterarPropiedades creada en el mòdul anterior

AlterarPropiedades "AllowBypassKey", dbBoolean, False


3. Obrim el formulari que hem creat i premem el botó de comando. S'executarà el codi que crida a la funció AlterarPropiedades que hem creat en el mòdul anterior i a partir d'aquest moment no ens podrem saltar les opcions d'inici prement la techa shift / Mayus, i per tant la base de dades quedarà bloquejada.


NOTA: No cal dir que ens hem d'assegurar de tenir una còpia de seguretat de la base de dades abans de bloquejar-la ja que sinó mai més podrem accedir als objectes i codi de la mateixa.