Access - Activar/desactivar funcion vb en access, como???

Muy buenas.

Vereis he creado una base de datos para mi empresa de la cual para los conocimientos que tengo estoy muy contento con ella, pero solo me queda un tema por solucionar.

La bd arranca con el formulario "logo" en el cual hay una funcion que pide una password:

Private Sub Form_Open(Cancel As Integer)
Const Password = "1234"
If Nz(InputBox("Introduzca Contraseña:", "Password", ""), "") <> _
Password Then
MsgBox _
"Su contraseña es incorrecta. No tiene permiso de acceso a este formulario.", _
vbCritical, "Error en Password"
Cancel = True
DoCmd.Quit
End If
End Sub

Una cosa sencilla, metes 1234 y a funcionar, si no se cierra.

Lo que necesito es que desde un boton de opcion o de alternar o casillas de verificacion ubicado en otro formulario "opciones" pueda ACTIVAR/DESACTIVAR la peticion de contraseña e incluso modificarla con un cuadro de texto si es posible. Me conformo con que se pueda activar/desactivar.

Asi cuando necesito hacer/modificar/ver y tengo que estar entrando y saliendo continuamente voy al formulario "opciones" pincho en desactivar password y se que hasta que no lo active nuevamente no me la va a pedir.

Es posible hacer esto??? Como???

Gracias por vuestra ayuda.

Buenas!

Según entiendo quieres un semáforo que lo actives o desactives para pedir la contraseña o no.

Debes tener una tabla dónde guardar la opción de true o false.

A la hora de cargar el formulario logo (evento al cargar), debes buscar en el fichero si está true, si no lo está, ejecuta: docmd.close

Para buscar en el fichero:

Dim wp As Variant
On Error Resume Next
wp = DLookup("[campo]", "[fichero]", "[condicion]=" & Me.objeto)

si no tienes condición:
wp = DLookup("[campo]", "[fichero]")

Espero te sirva!

Saludo2