Majorly Hosed - locked out

D

Derek Wittman

Can someone help? I've changed my autoexec macro to open different forms based on who the CurrentUser() is, so EVERYTHING on the Startup... options is turned off. I mean everything. Even my admins user (myself) cannot get to anything. No forms, no more access to the Startup... options to fix anything. No going back to the macro.

Is there anyway I can change the startup properties and allowbypasskey from another database using VBA code?

Yes, Joan, this is on my MDB file... the only backups are offline (from last night)... I'll keep a backup on my hard drive one of these days, I promise!

Derek
 
G

Graham Mandeno

Hi Derek

The following code will allow you to use the bypass key again. You can run
it from any other database, but if your target database is secured then you
must be logged in using the correct workgroup as a user who has admin
permissions on the target database.

Dim db as Object
Set db = OpenDatabase("full path to mdb file")
db.Properties("AllowBypassKey") = True
db.Close

You can then use the shift key as you open the database to bypass the
startup options.

--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand

Derek Wittman said:
Can someone help? I've changed my autoexec macro to open different forms
based on who the CurrentUser() is, so EVERYTHING on the Startup... options
is turned off. I mean everything. Even my admins user (myself) cannot get
to anything. No forms, no more access to the Startup... options to fix
anything. No going back to the macro.
Is there anyway I can change the startup properties and allowbypasskey
from another database using VBA code?
Yes, Joan, this is on my MDB file... the only backups are offline (from
last night)... I'll keep a backup on my hard drive one of these days, I
promise!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top