[AccessD] Access Lockdown

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