Bloqueo en access

A varias maneras de evitar copiar tu base de datos, y es comparando un valor del PC. Es decir, puedes leer el volumen del disco, y compararlo con el que tienes en una tabla, o también el serial del procesador o del disco, el problema es cuando la persona que realmente deba tener la aplicación cambia de disco o procesador, deberás ir y retomar el nuevo valor... pero este seria la única manera, porque ya sabes que tu puedes cargarte la bd para donde quieras...
Ahora para la segunda pregunta debes ser más especifico, ya que puedes tener una base de datos en access en formato MDE, y aquí por más que las abras NO PUEDES MODIFICAR FORMULARIO, NI INFORMES, NI MACROS, NI MÓDULOS... es más no puedes importarlos a otra Bd...
Pero si es Mdb, se podría pero hay que mirar que bloqueos son... ya que puede ser que las tablas están ocultas o tengan algunos atributos, pero muchas veces cuando abres la Bd y mantienes oprimida la tecla SHIFT te deja entrar sin bloqueos, sino este código te puede servir:
*************************
Dim Bd as database
set Bd = opendatabase("c:\MiBase.Mdb")
For I = 0 To Bd.TableDefs.Count - 1
If Bd.TableDefs(I).Attributes = dbHiddenObject Then Bd.TableDefs(I).Attributes = 0
Next I
EstablecerPropiedad "StartupShowDBWindow", True, "DB_BOOLEAN"
EstablecerPropiedad "AllowFullMenus", True, "DB_BOOLEAN"
EstablecerPropiedad "AllowBuiltInToolbars", True, "DB_BOOLEAN"
EstablecerPropiedad "StartUpMenuBar", "(predeterminada)", "DB_TEXT"
EstablecerPropiedad "AllowShortcutMenus", True, "DB_BOOLEAN"
EstablecerPropiedad "StartupForm", "(ninguno)", "DB_TEXT"
EstablecerPropiedad "StartupShowStatusBar", True, "DB_BOOLEAN"
EstablecerPropiedad "AllowSpecialKeys", True, "DB_BOOLEAN"
EstablecerPropiedad "AppTitle", "SOFTCALVENT - MODO HABILITADO", "DB_TEXT" **************************
Ahora la funcion Establecerropiedad seria:
**************************
Public Sub EstablecerPropiedad(NomPropiedad As String, ValPropiedad, TipPropiedad As String)
Dim MiPropiedad As Object
Dim Bd as database
set Bd = opendatabase("c:\MiBase.Mdb")
On Error Resume Next
Bd.Properties(NomPropiedad) = ValPropiedad
If Err.Number = 3270 Then
Set MiPropiedad = Bd.CreateProperty(NomPropiedad, TipPropiedad, ValPropiedad)
Bd.Properties.Append MiPropiedad
Set MiPropiedad = Nothing
End If
End Sub
***************************
Att:telemaco