[AccessD] Access Lockdown

Hi John,

Try AllowSpecialKeys  notice the ending s

I presume you are aware without a password all a bad guy needs to do is open 
a new mdb and import all stuff, if his show hidden objects is checked?

Bill
--------------------------------------------------
From: "jwcolby" <jwcolby at colbyconsulting.com>
Sent: Saturday, May 21, 2011 10:00 PM
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
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