Access - Cerrar base datos acces

Hola Lidia:
En primer lugar, una base de datos Access no se puede convertir en un ejecutable de extensión exe, al estilo de Visual Basic donde un proyecto lo podemos convertir en ejecutable, pero si se puede proteger para que nadie pueda acceder al diseño de formularios, informes y módulos. La opción más infalible es utilizar la Seguridad para Usuarios y Grupos de Access pero te advierto que es muy complicada y cualquier error te puede causar resultados muy desagradables porque podría afectar a todas las bases que tengas, que es lo que le ha pasado a Manuel, como podrás ver su mensaje de hoy mismo, que por trastear en la seguridad de Access sin saber bien lo que se hace, ahora tiene problemas.
Te aconsejo que en principio hagas lo siguiente:
1-Haces una o dos copias de seguridad de tu base de datos y las guardas.
2-Le insertas un módulo con la Función " DisableShift " que sirve para desactivar la tecla SHIFT de forma que los usuarios no puedan saltarse el Formulario de Inicio de la aplicación y acceder a la Ventana de Base de Datos. Esta función se llama desde el Form_Load del Formulario de inicio cada vez que arranca la aplicación.
3-Desactivas TODAS las casillas de verificación del Menú "Herramientas / Inicio"
4-Conviertes la MDB en MDE.
Con el punto 3 ya no se tiene acceso tampoco a las Barra de Menús y de Herramientas.

Solo con esto ya consigues un nivel de seguridad bastante aceptable y dificil de saltarse por usuarios de nivel medio, aunque no para los expertos. Una vez hecho esto, intenta tu acceder al interior de la base a ver si lo consigues (seguro que no). Para hacer posteriores cambios a la aplicación, tendrás que echar mano de la copia de seguridad, hacer los cambios y repetir el proceso, siempre guardando antes una copia sin proteger porque una MDE no tiene vuelta atrás.

Un saludo
Enrique

Hola de nuevo Lidia:
En la Ventana del editor de VBA abres el menú Herramientas / Referencias y marcas la Referencia: Microsoft DAO 3.6 Object Library. Después pegas esta función en un módulo y lo llamas como quieras.

Function ap_DisableShift()
On Error GoTo errDisableShift
Dim db As DAO.Database, prop As DAO.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
--------------------------------------------------------------------------------------------------------------
Luego en el Formulario de Inicio de tu mdb activas el Procedimiento de evento Al Cargar de forma que te quede esto:

Private Sub Form_Load()
Call ap_DisableShift
End If

Cierras la base de datos y al volver a abrirla se activa la función y ya no se pueden
saltar el Form de inicio manteniendo pulsada la tecla Shift. No olvides hacerte una copia de seguridad de tu base antes de hacer nada de esto.

Saludos
Enrique

He tenido un pequeño error, al final del Evento Form_Load lo que se pone es:
End Sub (no End If como yo he puesto).

Enrique