Create MDE with all menus and shift key access disabled

[winshent]

Does anyone know how I can create an MDE with all options disabled including shift key bypass.

I want to remove all options in Tools>Startup except for the status bar.

I have tried using this code but am not getting anywhere with it

CurrentDb.Properties("AllowByPassKey") = 0

 

[vbaInet]

Here's a good starting point:

http://www.access-programmers.co.uk/forums/showthread.php?t=97578

As for the bypass key it's a database property called "AllowBypassKey" you just need to switch that to false. I don't remember all the options but it's a matter of digging and you'll find the one you want.

 

[winshent]

Hi vbaInet

Thanks for your input.

I'm not concerned about automating this at the moment, so can use the menu to set the restrictions for the moment.

I have modified the code as you suggested, but it still does not work.

CurrentDb.Properties("AllowByPassKey") = False

 

[vbaInet]

You set the property when the db closes and next time you open it you won't be able to use the shift key.

 

[vbaInet]

Anyway, if it's an mde file you won't be able to go into the code or make design changes so I'm not even sure the point of this exercise.

 

[vbaInet]

Where have all your posts gone?

 

[winshent]

Where have all your posts gone?

I've only posted one response since my initial thread..

Anyway, if it's an mde file you won't be able to go into the code or make design changes so I'm not even sure the point of this exercise.

The point is I want to create a distributable MDE application where the user cannot open objects using the shift key. I also want to disable everything except the status bar.

You set the property when the db closes and next time you open it you won't be able to use the shift key.

This does not seem to be the case, on my machine at least.

 

[vbaInet]

Something strange went on there. At the time I posted none of your posts, not even your initial post.

Are you sure you're creating the MDE the right way? Here's a link you can follow:

http://www.databasedev.co.uk/microsoft-access-mde.html
http://www.dummies.com/how-to/content/securing-your-access-2003-database-as-an-mde-file.html

Application (i.e. forms and reports) should be separate from data (i.e. tables).

 

[winshent]

I managed to get this working a while ago using using a VBA work around.. Thought I'd post up for anyone else who needs to do the same.

1. Take a copy of the MDB database file.

* Use the copy for locking down as this will not be able to be opened up again once locked down.

* DO NOT LOCK DOWN THE ORIGINAL FILE

2. From the Tools>Startup menu, Deselect all checkbox options other than ‘Display Status Bar’.

3. Check the DAO library is referenced.

4. Run the code below.

5. Create the MDE file.

Private Sub ap_DisableShift()
    ' This subroutine disable the shift at startup. This action causes
    ' the Autoexec macro and Startup properties to always be executed.
 
    On Error GoTo errDisableShift
 
    Dim db As DAO.Database
    Dim prop As DAO.Property
    Const conPropNotFound = 3270
 
    Set db = CurrentDb()
 
    ' This next line disables the shift key on startup.
    db.Properties("AllowByPassKey") = False
 
    ' The subroutine is successful.
    Exit Sub
 
errDisableShift:
    ' The first part of this error routine creates the "AllowByPassKey
    ' property if it does not exist.
    If Err = conPropNotFound Then
        Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, False)
        db.Properties.Append prop
        Resume Next
    Else
        MsgBox "Subroutine 'ap_DisableShift' did not complete successfully."
        Exit Sub
    End If
End Sub