Proteger diseño de consultas en Access.

[SA2008]

Antes que nada un saludo a los participantes de este foro.

¿Quería saber si existe alguna forma de proteger el diseño de las consultas en una aplicación de Access a fin de evitar que los usuarios puedan modificarlas? En principio tengo las siguientes alternativas, pero ninguna es lo suficientemente segura:

1.- Asignar la propiedad “oculta” a las consultas. Su inconveniente es que cualquier usuario puede ir a Herramientas >> Opciones >> Mostrar objetos ocultos.

2.- Puedo desactivar la opción “Presentar la Ventana Base de Datos” en Herramientas >> Inicio. Su desventaja es que si el usuario mantiene presionada la tecla Shift al abrir la aplicación, se muestra la Ventana Base de Datos con todas sus tablas, consultas, etc.

3.- Convertir la aplicación en un archivo MDE, sólo protege los formularios, informes, páginas de acceso a datos y módulos, pero las tablas, consultas y macros quedan desprotegidas y se pueden modificar.

En este mismo foro encontré una función que permite ocultar las tablas sin la posibilidad de mostrarlas nuevamente utilizando Herramientas >> Opciones >> Mostrar objetos ocultos. Me pregunto si existe alguna función similar que se pueda aplicar a todas las consultas u otra alternativa para proteger su diseño.

Estas son las funciones que encontré, pero que se aplican a las tablas:

Public Function OcultaTodasTablas()
Dim Tb As TableDef



For Each Tb In CurrentDb.TableDefs
Tb.Attributes = 1

Next


End Function


Public Function MuestraTodasTablas()
Dim Tb As TableDef

For Each Tb In CurrentDb.TableDefs
If Mid(Tb.Name, 1, 4) = "Msys" Then
Else
Tb.Attributes = 0
End If

Next
End Function


De antemano, gracias por su colaboración.

[GatorV]

Tema trasladado a Ofimatica.

[Taribo007]

Mediante el siguiente código se puede eliminar las entradas indeseadas con la tecla shift.

si no se entra con la clave indicada, se anula la entrada con la tecla shift, y entrando con la clave se activa para la próxima vez que se entre.

Private Sub Form_Open(Cancel As Integer)
Dim f As Date
Dim hoy As Date
Dim usr As String

usr = InputBox("Introduzca el nombre de usuario", "Usuario", "Pepito de los Palotes")

If usr <> "*** MI CLAVE SECRETA ***" Then
AlterarPropriedade "AllowBypassKey", dbBoolean, False
Else
AlterarPropriedade "AllowBypassKey", dbBoolean, True
End If
' Bomba de tiempo
' f = "1/1/2005"
' hoy = Date
'
' If hoy > f Then
' MsgBox "producto en fase demo"
' DoCmd.Quit
' Else
' DoCmd.Close acForm, "inicio"
' End If
DoCmd.Close acForm, "inicio"
End Sub

Public Function AlterarPropriedade(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As dao.Database, prp As dao.Property

Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
AlterarPropriedade = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Propiedad no ha sido localizada.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Error desconocido.
AlterarPropriedade = False
Resume Change_Bye
End If
End Function


Tienes que activar la libreria Microsoft DAO 3.6 object library
Un saludo

[Taribo007]

Ocultar las consultas asi como se hace con las tablas, con las funciones que expones, no es posible, al menos no lo conozco. Sobre seguridad se puede encontrar mucho, pero parcticamente todo se puede violar por un usuario experto.

Si te precoupa mucho la seguridad de las consulta, quieza te sirva saber que hay se puede no tener ninguna consulta "fiscamente", como objeto, y generarlas por codigo cada vez que la necesites. Yo lo tengo en lagunos sitios, solo una consulta comodin, y cada ez que necesito una la genero por codigo, y le asigno a esta consulta comodin la sql.

Pero igual es complicrase, si te vale con lo del shift

Un saludo

[wachac]

Excelente el còdigo expuesto por Taribo. Que Dios te bendiga y que podamos ayudarnos. Hasta luego.