jwcolby
jwcolby at colbyconsulting.com
Sun May 22 00:44:33 CDT 2011
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 >