[AccessD] Access Lockdown

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