Access - Bloquear Vista de diseño

Hola buenas, tengo una duda, tengo una bd hecha en access 2007 (realmente es solo
el Front-End,la bd esta en mysql por odbc) y la comparto con los usuarios mediante un recurso compartido accesible desde todos los equipos.Me gustaria poder bloquear las Vistas de diseño y presentacion, y cerrar un poco la bd para que no se pueda modificar el diseño del formulario, ya que cuando lo hacen bloquean el Front-End y otros usuarios no pueden acceder a la aplicación.
Muchas gracias un Saludo!!!

En la direccion URL te dejo un ejemplo para hacer lo que tu quieres

Desde Venezuela
Jefferson

Hola Jefferson. Tu ejemplo no funciona en 64 bits y no lo puedo modificar porque está protegido. ¿Puedes modificarlo para 64 bits? Desde ya millones de gracias.
Un saludo.

Que tal amigo, estuve probando tu aplicacion de proteger y desproteger la bd y resulta que en una de las pc que probe tenia instalada el sistema operativo de 64 bits y me da a entender de que el programa solo funciona con sistema operativo de 32 bits. Será que no tienes otra version que contemple el sistema operativo de 64 bits.
Gracias desde ya-

Para proteger el diseño, lo mejor es tener dos BD, una con las tablas y otra con los demás objetos (formularios,consultas,informes,modulos etc...), luego hacer lo siguiente:
1.- Covertir la BD de tablas a mde
2.- Vincular a la BD de objetos las tablas del paso 1
3.- Cuando sea definitiva la BD de objetos, convertila a mde y distribuir a los usuarios, de esta forma cada vez que modifiques algo del diseño solo tendrás que volver a convertirla a mde y a distribuir.
4.- Si quieres ocultar las tablas y consultas mirate estos procedimientos que consegui de "Tavo" persona que cree que es más importante enseñar a pescar s que ofrecer la pesca.

Private Sub ocultar_Click()
‘ para ocultar las tablas
For Each myObject In Application.CurrentData.AllTables
If Not (myObject.Name Like "Msys*") Then
Application.SetHiddenAttribute acTable, myObject.Name, True
End If
Next myObject
‘ para ocultar las consultas
For Each myObject In Application.CurrentData.AllQueries
If Not (myObject.Name Like "Msys*") Then
Application.SetHiddenAttribute acTable, myObject.Name, True
End If
Next myObject
End Sub

Private Sub mostrar_Click()
‘ para mostrar las tablas

For Each myObject In Application.CurrentData.AllTables
If Not (myObject.Name Like "Msys*") Then
Application.SetHiddenAttribute acTable, myObject.Name, False
End If
Next myObject
‘ para mostrar las consultas

For Each myObject In Application.CurrentData.AllQueries
If Not (myObject.Name Like "Msys*") Then
Application.SetHiddenAttribute acTable, myObject.Name, False
End If
Next myObject
End Sub

Un cordial saludo desde Cádiz

Gracias. El codigo funciona de maravilla. HA SIDO MUY UTIL, ES MUY BUEN APORTE. Gracias nuevamente.