Bloquear la vista de diseño de bd

[Torque]

Hola a todos
Acces 2003. Tengo ya una BD casi lista para enviarla al usuario final pero me faltan algunos detalles aun.
0. Quisiera evitar que el usuario final pueda entrar al diseño de la bd presionando shift.
1. Quisiera darle acceso a la opción de "Analizar con Microsoft Excel" a los reportes.
2. Que dependiendo de que usuario se firme pueda restringirle el menú de mantenimiento.
3. que todos los formularios aparezcan maximizados desde el inicio.

con los puntos 1 y 2 he revisado las opciones de seguridad de las herramientas, no obstante veo que solo hay opción de habilitar menus para los usuarios o grupos, no asi de restringirlos. No creo que esté entendiendo yo bién la lógica ya que veo que todas las casillas de habilitar están desactivadas para un usuario en especial, sin embargo puede entrar a todos...

pero bueno, creo que uds. mas entendidos de este tema podrían darme una luz en el camino.

Gracias

[Taribo007]

Aqui tienes unas funciones para abilitar y deshabilitar la tecla shift:


Function ap_DisableShift()

On Error GoTo errDisableShift

Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270

Set db = CurrentDb()

db.Properties("AllowByPassKey") = False

Exit Function

errDisableShift:

If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If

End Function
'================================================= ===========
Function ap_EnableShift()

On Error GoTo errEnableShift

Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270

Set db = CurrentDb()
db.Properties("AllowByPassKey") = True

Exit Function

errEnableShift:

If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If

End Function


Un saludo

[Taribo007]

1. Quisiera darle acceso a la opción de "Analizar con Microsoft Excel" a los reportes.


Yo crearia una barra de herramientas con esa opcion para los informes.

Un saludo

[Taribo007]

3. que todos los formularios aparezcan maximizados desde el inicio.

Ouedes hacerlo poniendo esto en el eveto load de cada form:

docmd.maximize

Un saludo

[Torque]

Iniciado por Taribo007

1. Quisiera darle acceso a la opción de "Analizar con Microsoft Excel" a los reportes.


Yo crearia una barra de herramientas con esa opcion para los informes.

Un saludo

listo este punto, gracias

[Torque]

Gracias Taribo007!!!
ha funcionado al 100%