| Brillantina |  |
|
2007-05-18 04:14 - Respuestas: 2 - Tema nº: 2449044
Características: Windows XP Profesional, 256 MB de ram, 2.3 GHZ, 40GB HDD.
hola amigos, les pido que me ayuden, yo tengo una base de datos con formulacrios y reportes y quiero saber como puedo hacer para ponerle seguridad, es decir que no todos vean la base de datos pero si los formularios, por si acaso intente con la seguridad del propio acces pero es vulnerable
| |
|
|
| ebolo |  |
|
Re: Ms access - 2007-05-18 11:57 - Respuesta 2
Hola Brillantina, la forma más segura es crear una mde una vez tengas ya finalizada una versión de tu bd. De ésta forma los formularios e informes no te los podrán modificar; ahora para que no accedan a las tablas,... en la Pestaña Herramientas - Inicio, desde ahí puedes desactivar Presentar la base de datos.
Primero sería desactivarla y luego compilar la bd a mde desde Herramientas - Utilidades - Crear mde. Te conviene no perder la mdb original porque si no no podrías modificar nada.
Para un usuario normal con ésto puede sobrar, pero si es n poco avanzado podrái entrar a la bd usando la tecla shift al abrir la bd; ésto también se puede desactivar mediante código, es más se puede tener desactivada y poner una constraseña en un cuadro de texto que tú solo sepas para volver a activar la tecla shift.
Vamos algo así:
Option Compare Database
Option Explicit
Private Sub Comando0_Click() 'Desactivar Shift
On Error GoTo errprod
Dim bd As Database
Dim pr As Property
Set db = CurrentDb
bd.Properties(\"AllowByPassKey\") = True
bd.Close
Set bd = Nothing
Exit Sub
errprod:
Set pr = bd.CreateProperty(\"AllowByPassKey\", dbBoolean, False)
bd.Properties.Append pr
Resume Next
End Sub
Private Sub Comando1_Click() 'Activar Shift
On Error GoTo errprod
Dim bd As Database
Dim pr As Property
Set bd = CurrentDb
bd.Properties(\"AllowByPassKey\") = False
bd.Close
Set bd = Nothing
Exit Sub
errprod:
Set pr = bd.CreateProperty(\"AllowByPassKey\", dbBoolean, False)
bd.Properties.Append pr
Resume Next
End Sub
Private Sub Texto0_AfterUpdate()
If Me.Texto0 = \"hola\" Then
On Error GoTo errorprop
Dim bd As Database
Dim pro As Property
Set bd = CurrentDb
bd.Properties(\"AllowByPassKey\") = True
bd.Close
Set bd = Nothing
End If
Exit Sub
errorprop:
Set pro = bd.CreateProperty(\"AllowByPassKey\", dbBoolean, False)
bd.Properties.Append pro
Resume Next
End Sub
Un saludo.
-
[Mensaje editado por ebolo con fecha: 18-05-2007 12:00:04]. | |
|
|
| ebolo | |
|
Re: Ms access - 2007-05-18 12:01 - Respuesta 3
las barras \ debes de eliminarlas
saludos. | |
|
|
|
