[AccessD] Access Lockdown

Bill,

 > I guess I didn't make it clear

http://support.microsoft.com/kb/826765

Which is fascinating because notice that it specifically says you are ADDING that property to the 
database.  When I executed the following:

?CurrentProject.Properties("AllowBypassKey")

in a database where I had not done that, it came back with an error (property not found).

After doing this:

CurrentProject.Properties.Add "AllowBypassKey", False

and *then* doing this:

?CurrentProject.Properties("AllowBypassKey")

it came back 0.

Which tells me that the AllowBypass property doesn't exist unless you make it.

Even then however it doesn't prevent my database from opening bypassed.

Hmmm...

John W. Colby
www.ColbyConsulting.com

On 5/22/2011 2:17 AM, Bill Patten wrote:
> Hi again,
>
> I guess I didn't make it clear
> Rocky's code
> ChangeProperty "AllowBypassKey", dbBoolean, False
>
> ChangeProperty "AllowBypassKeys", dbBoolean, False
>
> I believe the correct code is keys not key.
>
> Bill
>
> --------------------------------------------------
> From: "jwcolby"<jwcolby at colbyconsulting.com>
> Sent: Saturday, May 21, 2011 10:44 PM
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Access Lockdown
>
> The odd part is that all the rest of the stuff works.
>
> John W. Colby
> www.ColbyConsulting.com
>
> On 5/22/2011 1:19 AM, Rocky Smolin wrote:
>> No.  Worked for me in A2000 and A2003.   What version of Access are you
>> using here?
>>
>> Rocky
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
>> Sent: Saturday, May 21, 2011 10:00 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Access Lockdown
>>
>> Setting AllowBypassKey false does not prevent the bypass key from working.
>> Any clues why?
>>
>> John W. Colby
>> www.ColbyConsulting.com
>>
>> On 5/21/2011 9:31 AM, Rocky Smolin wrote:
>>> John:
>>>
>>> I use this in my app and trigger it when the program is an mde:
>>>
>>>        ChangeProperty "StartupForm", dbText, TheOpeningForm
>>>        ChangeProperty "StartupShowDBWindow", dbBoolean, False
>>>        ChangeProperty "StartupShowStatusBar", dbBoolean, False
>>>        ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>>>        ChangeProperty "AllowFullMenus", dbBoolean, False
>>>        ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>>>        ChangeProperty "AllowSpecialKeys", dbBoolean, False
>>>        ChangeProperty "AllowBypassKey", dbBoolean, False
>>>        ChangeProperty "MenuBar", dbBoolean, False
>>>
>>> Function ChangeProperty(strPropName As String, varPropType As Variant,
>>> varPropValue As Variant) As Integer
>>>        Dim dbs As Object, prp As Variant
>>>        Const conPropNotFoundError = 3270
>>>
>>>        Set dbs = CurrentDb
>>>        On Error GoTo Change_Err
>>>        dbs.Properties(strPropName) = varPropValue
>>>        ChangeProperty = True
>>>
>>> Change_Bye:
>>>        Exit Function
>>>
>>> Change_Err:
>>>        If Err = conPropNotFoundError Then    ' Property not found.
>>>            Set prp = dbs.CreateProperty(strPropName, _
>>>                varPropType, varPropValue)
>>>            dbs.Properties.Append prp
>>>            Resume Next
>>>        Else
>>>            ' Unknown error.
>>>            ChangeProperty = False
>>>            Resume Change_Bye
>>>        End If
>>> End Function
>>>
>>> I also use this to stop them from navigating around in the app other
>>> than through my own menus:
>>>
>>> ' If mde then turn off windows in taskbar and menu bar Set db =
>>> CurrentDb If InStr(1, db.Name, "mde")<>    0 Then
>>>        Me.MenuBar = "=1"
>>>        Access.Application.SetOption "ShowWindowsInTaskbar", False
>>>        On Error GoTo Err_Form_Open
>>> End If
>>>
>>> Not a utility you could run from outside the db but I think you could
>>> easily write one with this code that would set the properties of of a
>>> db you selectr from the standard file open dialog box.
>>>
>>> HTH
>>>
>>> Rocky
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
>>> Sent: Saturday, May 21, 2011 5:42 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: [AccessD] Access Lockdown
>>>
>>> I want to lock down an application as I copy it from my dev directory
>>> to a "live" directory.  I want to set the "display system objects and
>>> "display hidden objects" properties in Options as well as Startup
>>> "Allow full menus", Use Special Keys" etc.
>>>
>>> Has anyone got a utility that sets these properties?
>>>
>>> --
>>> John W. Colby
>>> www.ColbyConsulting.com
>>> --
>>> AccessD mailing list
>>> AccessD at databaseadvisors.com
>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>> Website: http://www.databaseadvisors.com
>>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>