On Mar 29, 8:13 am, essseeproducti...@hotmail.co.uk wrote:

I asked a few months ago how to password protect the database window.
It is actually pretty easy.
Here is the thread for that question:

http://groups.google.com/group/microsoft.public.access/browse_thread/thread/313b
754de42b8848/4a155afcbe6ef048?lnk=st&q=&rnum=12#4a155afcbe6ef048

You can hide the database window using Tools >>> Startup and you can prevent
savy users from using the Shift key and F11 with a bit of code:

Public Function LockDB(blnLock As Boolean)
'=============================================
' Name:     LockDB
' Purpose:  Kill the Shift key
'
' Inputs:     blnLock As Boolean
'
' Author:    Arvin Meyer
' Date:       April 19, 1999
' Comment: If blnLock = 0, the bypass key is activated,
'                  If blnLock = -1, the bypass key is deactivated
'                  Keep a copy of the database without this property
'=============================================
On Error GoTo Err_LockDB
Dim prp As Property

Const PropertyNotFound = 3270

CurrentDb.Properties("AllowBypassKey") = blnLock

Exit_LockDB:
   Exit Function

Err_LockDB:
   'Create the property if not found.
   If Err = 3270 Then
       Set prp = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean,
blnLock)
       CurrentDb.Properties.Append prp
       Resume Next
   Else
       Resume Exit_LockDB
   End If

End Function