[AccessD] Access Lockdown

Is your VBA Project password protected?   Password protecting the code has the by-product 
of disabling "Break Into Code".

-- 
Stuart

On 22 May 2011 at 23:17, jwcolby wrote:

> Interestingly... My C2DbProperties application can read the values out
> and display them in check boxes.  AllowBreakIntoCode is not being
> toggled true false as I toggle its check box, remaining always
> cleared.  I wonder if this is the same issue as I had with
> AllowByPassKey, needing to be run from inside of the database
> container before it will work from outside of the container.
> 
> John W. Colby
> www.ColbyConsulting.com
> 
> On 5/22/2011 11:01 PM, jwcolby wrote:
> > Well, I finally "got it" on the DisableBypassKey thing.
> >
> > I executed the ap_DisableBypassKey property *from inside* of the
> > application and it in fact does disable the bypass key. Once
> > executed from inside of the application, the set / reset of that
> > property correctly works from my external tool as well.
> >
> > So se por que.
> >
> > jwc
> >
> > Function ap_DisableShift()
> > 'This function disable the shift at startup. This action causes 'the
> > Autoexec macro and Startup properties to always be executed.
> >
> > On Error GoTo errDisableShift
> >
> > Dim db As DAO.Database
> > Dim prop as DAO.Property
> > Const conPropNotFound = 3270
> >
> > Set db = CurrentDb()
> >
> > 'This next line disables the shift key on startup.
> > db.Properties("AllowByPassKey") = False
> >
> > 'The function is successful.
> > Exit Function
> >
> > errDisableShift:
> > 'The first part of this error routine creates the "AllowByPassKey
> > 'property if it does not exist. If Err = conPropNotFound Then Set
> > prop = db.CreateProperty("AllowByPassKey", _ dbBoolean, False)
> > db.Properties.Append prop Resume Next Else MsgBox "Function
> > 'ap_DisableShift' did not complete successfully." Exit Function End
> > If
> >
> > End Function
> >
> > Function ap_EnableShift()
> > 'This function enables the SHIFT key at startup. This action causes
> > 'the Autoexec macro and the Startup properties to be bypassed 'if
> > the user holds down the SHIFT key when the user opens the database.
> >
> > On Error GoTo errEnableShift
> >
> > Dim db as DAO.Database
> > Dim prop as DAO.Property
> > Const conPropNotFound = 3270
> >
> > Set db = CurrentDb()
> >
> > 'This next line of code disables the SHIFT key on startup.
> > db.Properties("AllowByPassKey") = True
> >
> > 'function successful
> > Exit Function
> >
> > errEnableShift:
> > 'The first part of this error routine creates the "AllowByPassKey
> > 'property if it does not exist. If Err = conPropNotFound Then Set
> > prop = db.CreateProperty("AllowByPassKey", _ dbBoolean, True)
> > db.Properties.Append prop Resume Next Else MsgBox "Function
> > 'ap_DisableShift' did not complete successfully." Exit Function End
> > If
> >
> > End Function
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>