Hola Carmen.
Para Convertir tu mdb a mde solo debes Compilar tu mdb.. Como lo haces..
1) Abres algun modulo en vista diseño.
2) En barras de Herramientas donde dice Depuracion
3) Al abrir eliges Compilar
El proceso te dira si tienes errores y en donde. (Si todo sale Bien)
Busca la cinta de opciones "Herramientas de la base de Datos", y a tu dercha al final el boton de crear ACCDE. Pulsas y listo ya tienes tu BD segura.
Nota: No destruyas tu BD original, hasta ahorita no conozco ningun software que devuelva los codigos a su estado original.
En cuanto a lo del Shift, sigue estas pasos.
1)Copia este codigo en un modulo Aparte:
'OPCION PARA HABILITAR O DESHABILITAR LA TECLA SHIFT
Option Compare Database
Option Explicit
Function ap_DisableShift()
On Error GoTo errDisableShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
db.Properties("AllowByPassKey") = False
Exit Function
errDisableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If
End Function
'============================================================
Function ap_EnableShift()
On Error GoTo errEnableShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
db.Properties("AllowByPassKey") = True
Exit Function
errEnableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If
End Function
2) En el formulario que tengas como predeterminado para abrir tu aplicacion (o como le llamamos algunos el de inicio)
en el evento Al Abrir, llamas la funcion:
Call ap_DisableShift
Y listo no lo Abren con la tecla Shift Presionada.
Un Saludo y Espero haberte ayudado.
Desde Venezuela, Jefferson
