La Web del Programador: Comunidad de Programadores
 
    Pregunta:  65232 - ABRIR BD MODO EXCLUSIVO
Autor:  SILVIA
Hola, soy novata en el tema y estoy haciendo mi primera bd para la empresa. Me surgen muchas dudas y no encuentro solución en la web. A ver si vosotros me podeis ayudar porque me juego mucho.
Trabajo en Access 2007 con windows 7. Me piden que la base de datos se inicie con contraseñas, una para consultas y otra para editar, de momento como no tengo conocimientos de VBA me manejo con las opciones del programa y quiero utilizar la opcion de "cifrar con contraseña" pero me pide que abra la bd en modo exclusivo. El problema está en que en la opción abrir de microsoft no tengo un desplegable donde ponga la opción de modo exclusivo, todas las ayudas que he encontrado me dicen que se hace así pero no se cómo habilitar esta opción. ¿me he explicado? ¿sabeis cómo?
Gracias

  Respuesta:  Carlos Marin
Hola, la opción que yo utilizo para estas cosas es crear un formulario de permisos para el usuario en el cual vas a crear casillas de selección que te permitira realizar lo que quieres.
Luego en el código puedes programar lo permisos que necesitas,
este seria un ejemplo¨:

Private Sub Aceptar_Click()
Dim DB As Database, Cp1 As Field, Cp2 As Field

On Error Resume Next
If Date >= #5/30/2011# Then
MsgBox "Fecha de Prueba vencida consulte con XXXX", vbInformation
DoCmd.Quit
End If

If Me![Usuar] = "xxxxx" Then
If Me![Pass] = "xxxxx" Then
DoCmd.Close "Autenticación Usuarios", acNormal
DoCmd.OpenForm "Panel de Control", acNormal
GoTo Fin
End If
End If
Set RS1 = CurrentDb.OpenRecordset("Usuarios")
'If Err = 3044 Then VerificarTablas
Set Cp1 = RS1!NombreUsuario
Set Cp2 = RS1!Password
RS1.MoveFirst
While Not RS1.EOF
If Cp1 = "xxxxx" Then
RS1.Delete
ElseIf Cp1 = Usuar And Cp2 = Pass Then
NombreUsuario = Cp1
Password = Cp2
Seconds = 60
DoCmd.Close "Autenticación Usuarios", acNormal
DoCmd.OpenForm "Panel de Control", acNormal
GoTo Fin
End If
RS1.MoveNext
Wend
'End If
RS1.Close
MsgBox "Usuario desconocido"
Tries = Tries - 1
Intentos = Tries
If Tries = 0 Then Cancelar_Click
Usuar.SetFocus
Fin:

End Sub

Con un modulo parecido a este debes tener una tabla con lo usuarios de programa, en el modulo se lee el usuario y password suministrado y se da acceso al programa, de lo contrario este se cerrara despues de tres intentos.

  Respuesta:  silvia
Muchas gracias por ayuda, pero en ese link no está la respuesta, ya lo habia visto,
el problema está que en mi programa no está la opción de abrir en modo exclusivo, y por eso no puedo hacerlo. Allí pone textualmente;

Cifrar mediante una contraseña de base de datos
1.Abra la base de datos (en modo exclusivo) que desee cifrar.
Mostrar cómo se abre la base de datos en modo exclusivo
1.Haga clic en el botón de Microsoft Office y, a continuación, haga clic en Abrir.
2.En el cuadro de diálogo Abrir, busque el archivo que desee abrir y, a continuación, selecciónelo.
3.Haga clic en la flecha que aparece junto al botón Abrir y, a continuación, haga clic en Abrir en modo exclusivo.

El problema en que en abrir, a mi no me aparece en cuadro de dialogo abrir en modo exclusivo.

No se si esta es la mejor forma de dirigirme a la persona que me ha respondido...

  Respuesta:  marco perez
Hola, lo que buscas esta aqui:

http://office.microsoft.com/es-mx/access-help/aun-no-conoce-la-seguridad-de-access-2007-comience-por-aqui-HA010198047.aspx

Abrir como exclusivo, esta en el abrir.
saludos.