Thanks John...
-----Original Message----- From: ms_access@yahoogroups.com [mailto:[EMAIL PROTECTED] Behalf Of John Viescas Sent: Thursday, May 05, 2005 10:57 PM To: ms_access@yahoogroups.com Subject: RE: [ms_access] Setup using VBA George- When I couldn't readily find these properties anymore in 2002 help, I began to question whether they're even supported anymore. I just got confirmation from the Access development team that they ARE supported - but Help is broken. Filed another bug. As for "secure" your mdb - I'm still not sure why you would want to do this in code. Tools / Startup works just fine for me. As I mentioned earlier, I do use AllowByPassKey, but only in an mde I'm about to distribute. As for AllowFullMenus, AllowToolbarChanges, and AllowBuiltinToolbars, the Runtime mode disables all these automatically. HTH... 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: ms_access@yahoogroups.com > [mailto:[EMAIL PROTECTED] On Behalf Of George Oro > Sent: Thursday, May 05, 2005 3:09 AM > To: ms_access@yahoogroups.com > Subject: RE: [ms_access] Setup using VBA > > > Thanks John, I completely understand where you coming from > which I normally > do also and other access programmers too to secure the FE. > > Just your point of view, does my code secure a MDB file? > otherwise, what is > the risk? > > TIA, > George > > > -----Original Message----- > From: ms_access@yahoogroups.com [mailto:[EMAIL PROTECTED] > Behalf Of John Viescas > Sent: Wednesday, May 04, 2005 7:03 PM > To: ms_access@yahoogroups.com > Subject: RE: [ms_access] Setup using VBA > > > 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: ms_access@yahoogroups.com > > [mailto:[EMAIL PROTECTED] On Behalf Of George Oro > > Sent: Wednesday, May 04, 2005 8:17 AM > > To: ms_access@yahoogroups.com > > 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: ms_access@yahoogroups.com [mailto:[EMAIL PROTECTED] > > Behalf Of John Viescas > > Sent: Wednesday, May 04, 2005 4:18 PM > > To: ms_access@yahoogroups.com > > 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: ms_access@yahoogroups.com > > > [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 > > > > > > > > > > > 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/
