Re: [MSAccessProfessionals] Lockdown

Duane,

I still can't find it.

 

This is what is disabling the toolbars. (I believe).  I just can't figure out where is it being called from.  It has to be something on the main start up but it does not seem to be in the start up form, unless I am looking in the wrong place.

 

Sub disableStartupProperties()

ChangeProperty "StartupShowDBWindow", dbBoolean, False

ChangeProperty "StartupShowStatusBar", dbBoolean, False

ChangeProperty "AllowBuiltinToolbars", dbBoolean, False

ChangeProperty "AllowFullMenus", dbBoolean, False

ChangeProperty "AllowBreadinCode", dbBoolean, False

ChangeProperty "AllowSpecialKeys", dbBoolean, False

ChangeProperty "AllowBypassKeys", dbBoolean, False

ChangeProperty "AllowShortcutMenus", dbBoolean, False

End Sub

 

 

I have a On Key Down event that turns everything back on.  

If KeyCode = 191 And Shift = 1 Then

    EnableStartupProperties

    MsgBox "Security Disabled", vbInformation

 

 

Now that everything is turned back on it works fine on start-up,  but I sure wish I could find  Sub disableStartupProperties()

 

I am not sure how to do a search.

 

 

 

Bill

 

Bill Singer

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Duane Hookom
Sent: Wednesday, September 22, 2021 2:13 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Lockdown

 

There are several places this could be called from at startup. I would check for the AutoExec macro first. Then check the code in the form that opens when the file is run. There is also a command line parameter that can run any macro. If this doesn't help, search the VBA for the sub or function. 

 

Duane

Sent from my mobile

On Sep 22, 2021, at 2:05 PM, Bill Singer <Bill.Singer@at-group.net> wrote:



 

I have a module called Lockdown which locks down a lot of properties from an end user.  It appears to run on database startup.  I put this in a few years ago and now I want to remove it.  How do I keep this from running upon start up?  I am guessing if I just delete it there will be issues.

 

Bill Singer

Microsoft Office 365

Windows 10