ADVERTENCIA SEGURIDAD AL ABRIR FICHERO ACCESS

41 views

Skip to first unread message

Julio Mourelo

unread,

Mar 27, 2011, 9:54:47 AM3/27/11

to Ju@nk

Amigo Ju@nk

Me tentó la idea de quitar el cuadro que se abre con la "advertencia de seguridad" cuando intento abrir una BD access ya que es un “coñazo”
Se que se puede hacer con Herramientas-Macros-Seguridad y ponerlo en baja. Pero esto, lo que hace es que lo aplica a todas las BDs que trato de abrir.
Como mi idea era el ejecutarlo con una BD especifica, rebuscando encontré este codigo:

Dim oApp As Object

On Error Resume Next

Set oApp = CreateObject("Access.Application")

If oApp.Version = "11.0" Then

oApp.AutomationSecurity = 1

End If

oApp.OpenCurrentDatabase "C:\bd1.mdb" ‘ este el el nombre de la base de datos

oApp.Visible = True

Set oApp = Nothing

Está configurado así, porque mi versión de access es la 2003

Segun tengo entendido, lo que hace al ejecutarlo es que pone el nivel de seguridad en la BD especifica en bajo, pero solo mientras esté abierta esa bd, y al salir lo deja como está configurado en Windows (media) que es como la tengo yo.

Lo he implementado en un Script, para ejecutarlo de forma externa, pero no hace nada,por lo que te agradecía le dieras un "vistazo" para ver en lo que falla, pues, no se si lo tengo que incluir de alguna forma en la BD -que es lo que estaría bien- o bien lo puedo ejecutar externamente.

Como se que tienes muchas peticiones, no te "meto" prisa, cuando te sea posible.

Un cordial saludo

Ju@nK

unread,

Mar 27, 2011, 12:53:02 PM3/27/11

to Julio Mourelo, Ju@nk

Está bien, le quitas la seguridad a nivel de código, otra opción sería agregar la ruta a las rutas seguras.

--
Salu2,

Ju@nK
********************************************************************************************
Has recibido este mensaje porque estás suscrito a Grupo "Ju@nK" de Grupos de Google.
Si quieres publicar en este grupo, envía un mensaje de correo
electrónico a ju...@googlegroups.com
Para anular la suscripción a este grupo, envía un mensaje a juank-un...@googlegroups.com
Para obtener más opciones, visita este grupo en http://groups.google.es/group/juank?hl=es.
**********************************************************************************************
Ju@nK [MVP Access] 2006/08
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org
www.juank.tk
www.juank.es
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**********************************************************************************************