Disable right click to avoid form editing 2

[jabrony76]

Hi all,

I've spent quite some time securing my db by creating custom toolbar and menu bars, password protecting admin forms, etc. I have not set up user level security due to internal issues at my company but have done my best to make this thing as crack-proof as possible.

But it still worrys me that anyone can right click on any form and view/modify the form design. Is there a way to disable this right click function?

Thanks,
Andy

 

[LonnieJohnson]

Go to Tools, Startup and uncheck Allow Default Shortcut Menus. ljprodev@yahoo.com
ProDev, MS Access Applications B-)

http://www.galaxymall.com/software/PRODEV

 

[Hinfer]

How would you get back into the form design?

 

[jabrony76]

Thanks Lonnie! It really is the simple things sometimes... lol

Hinfer - to get back into form design, I have created a custom toolbar with all the tools I need to design/modify forms and reports that is visible only when I'm in my database administration form. But there's always the trusty "hold down shift while the database is opening" trick.
Andy

 

[Databaseguy]

Unless you use this code.

The code below will allow you to turn off the shift key work around... If you run the code with "false" instead of "True". If you want to re-enable the shift key work around just re-run the code with "false". Don't disable your DB window our you'll be stuck !!

Function PreventBypass() As Boolean
'Dim prp As Property

'Set prp = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, True, True)
'CurrentDb.Properties.Append prp

'Set prp = Nothing
CurrentDb.Properties("AllowBypassKey&quot = false
End Function

' The only thing you have to modify is
'CurrentDb.Properties("AllowBypassKey&quot = false or true
Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy

 

[Paul7905]

This may seem a little hokey,but I just placed a command button on one of my forms, in a inconspicuous spot, made it really tiny, set it's properties Transparent = Yes (so the user cannot see it)and put the following code in the on click event

Private Sub Command7_Click()
RunCommand acCmdStartupProperties
End Sub

This brings up the startup properties form