George- I never do it this way. I keep a "master" copy of the mdb that does not have AllowBypassKey defined. I set the properties I want in Tools / Startup, create an mde file to give to the users/clients, and run a bit of code to define AllowBypassKey in the mde file before giving out the mde. I can always get into my master copy by holding down the Shift key when I open the database.
John Viescas, author "Building Microsoft Access Applications" "Microsoft Office Access 2003 Inside Out" "Running Microsoft Access 2000" "SQL Queries for Mere Mortals" http://www.viescas.com/ > -----Original Message----- > From: [email protected] > [mailto:[EMAIL PROTECTED] On Behalf Of George Oro > Sent: Wednesday, May 04, 2005 8:17 AM > To: [email protected] > Subject: RE: [ms_access] Setup using VBA > > > Thanks a lot John... > > Actually I'm building my Backdoor automatically, could you > review my code > and check what else are missing to secure my FE.mdb: > > BTW, what is the risk enabling these properties?: > ChangeProperty "AllowFullMenus", DB_Boolean, bolOpen > ChangeProperty "AllowToolbarChanges", DB_Boolean, bolOpen > ChangeProperty "AllowBuiltinToolbars", DB_Boolean, bolOpen > > I'm hiding the Menu Bar on my StartUp form: > DoCmd.ShowToolbar "Menu Bar", acToolbarNo 'Hide Menu Bar > But if I set the above to false, there's one Toolbar showing > with (File, > Window, Help) which > I don't want to see it. > > TIA, > George (P.S., I will ask later re: Access2003) > > > Public Function ftnBackDoor(bolOpen As Boolean) > Const DB_Text As Long = 10 > Const DB_Boolean As Long = 1 > > '** Remind Administrator to Lock VBA Code first (Closing > Backdoor only) > If bolOpen = False Then 'Close Backdoor > Dim intMsg As Integer > intMsg = MsgBox("Recommended to lock your Code first > before doing > this operation." & _ > vbCrLf & vbCrLf & "Is you code already locked?", > vbQuestion + > vbYesNo + vbDefaultButton2, "Close Backdoor") > If intMsg = vbNo Then > Exit Function > End If > End If > > '** StarUp > ChangeProperty "StartupShowDBWindow", DB_Boolean, bolOpen > ChangeProperty "StartupShowStatusBar", DB_Boolean, bolOpen > ChangeProperty "AllowBreakIntoCode", DB_Boolean, bolOpen > ChangeProperty "AllowShortcutMenus", DB_Boolean, bolOpen > ChangeProperty "AllowSpecialKeys", DB_Boolean, bolOpen > ChangeProperty "AllowBypassKey", DB_Boolean, bolOpen > > > ''''ChangeProperty "AllowFullMenus", DB_Boolean, bolOpen > ''''ChangeProperty "AllowToolbarChanges", DB_Boolean, bolOpen > ''''ChangeProperty "AllowBuiltinToolbars", DB_Boolean, bolOpen > > '** Tools / Options... > Application.SetOption "Show Status Bar", bolOpen > Application.SetOption "ShowWindowsInTaskBar", bolOpen > > '** Custom > > If bolOpen = True Then > 'Show (Backdoor=Open) > DoCmd.SelectObject acTable, , True 'Show the database window > DoCmd.ShowToolbar "Menu Bar", acToolbarYes 'Show Menu Bar > Else > 'Hide (Backdoor=Close) > DoCmd.SelectObject acTable, , True 'Hide the database window > DoCmd.RunCommand acCmdWindowHide 'Hide the database window > > End If > > > End Function > > > > > -----Original Message----- > From: [email protected] [mailto:[EMAIL PROTECTED] > Behalf Of John Viescas > Sent: Wednesday, May 04, 2005 4:18 PM > To: [email protected] > Subject: RE: [ms_access] Setup using VBA > > > George- > > 1) Application.GetOption / Application.SetOption > 2) Call the Windows API to write / set Registry keys or set > keys in your > installation script. As Follows: > > Root: > Local Machine > Key: > Local Machine Software\Microsoft\Office\11.0-\Access\Security > Name: > level > Value > #00000001 > > The above sets the macro security for ms-access to low. (1 = low, 2 = > med, 3 = high) > > > Root: > Local Machine > Key: > Local Machine SOFTWARE\Microsoft\Jet\4.0\Eng-ines > Name: > SandBoxMode > Value > #00000002 > > The above sets sandbox mode to 2 (ms-access is not > sandbox..but all other > non ms-access applications are). > > 3) Not possible. > > John Viescas, author > "Building Microsoft Access Applications" > "Microsoft Office Access 2003 Inside Out" > "Running Microsoft Access 2000" > "SQL Queries for Mere Mortals" > http://www.viescas.com/ > > P.S. Please post your "exit" code. > > > -----Original Message----- > > From: [email protected] > > [mailto:[EMAIL PROTECTED] On Behalf Of George Oro > > Sent: Wednesday, May 04, 2005 1:51 AM > > To: YG Access > > Subject: [ms_access] Setup using VBA > > > > > > How to setup these using VBA: > > 1) Any Properties under Tools -> Options > > 2) Set Macro Security to Low - Access2003 > > 3) VBA Password (I hope this is already possible) > > > > TIA, > > George > > > > P.S. > > I set Display Database Window=False but how come if I click > > my exit button > > on the main menu it shows first the database window before it > > will quit? > > Weird...? > > > > > > > > > > [Non-text portions of this message have been removed] > > > > > > > > > > Yahoo! Groups Links > > > > > > > > > > > > > > > Yahoo! Groups Links > > > > > > > > > > > Yahoo! Groups Links > > > > > Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ms_access/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
