Bill Patten
bill_patten at embarqmail.com
Sun May 22 10:54:13 CDT 2011
Hi Stuart, You are correct, I was reading the line above AllowByPassKey, AllowSpecialKeys which has an s in my code. My apologies to John for my vertical dyslexia. Bill -------------------------------------------------- From: "Stuart McLachlan" <stuart at lexacorp.com.pg> Sent: Sunday, May 22, 2011 12:01 AM To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com> Subject: Re: [AccessD] Access Lockdown The singular version has always worked for me. -- Stuart On 21 May 2011 at 23:17, 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 > > > -- > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com