[AccessD] Access Lockdown

Using this code I succeeded in opening my two frameworks and setting the module passwords in those, 
however doing so in the application causes the app to open and the startup code to run, which opens 
a login form (as it should on opening).

It's always something!

John W. Colby
www.ColbyConsulting.com

On 5/23/2011 9:49 AM, jwcolby wrote:
> What I want to know is how does he figure out the name of the objects? for example...
>
> ' Get hWnd for Password Edit control in Project Properties dialog
> hWndPassword = GetDlgItem(hWndProjectProperties, ControlIDPassword)
>
>
> How does he discover that ControlIDPassword is the name of an object
>
> The following is the business end of manipulating the dialog to cause it to go to the correct tab,
> enter data into the password boxers and clicking the button.
>
> ' Get hWnd for OK button in Project Properties dialog
> hWndOK = GetDlgItem(hWndProjectProperties, ControlIDOK)
> ' Get hWnd for Tab Control in Project Properties dialog
> hWndSysTabControl32 = GetDlgItem(hWndProjectProperties, ControlIDSysTabControl32)
>
> 'Move to Protection tab
> SendMessage hWndSysTabControl32, TCM_SETCURFOCUS, 1, ByVal 0&
>
> ' Must reset hWndProjectProperties probably because tab changed.
> EnumChildWindows ByVal hWndProjectProperties, AddressOf EnumChildProc, ByVal 0
>
> ' Get hWnd for Password Edit control in Project Properties dialog
> hWndPassword = GetDlgItem(hWndProjectProperties, ControlIDPassword)
> ' Get hWnd for Confirm Password Edit control in Project Properties dialog
> hWndConfirmPassword = GetDlgItem(hWndProjectProperties, ControlIDConfirmPassword)
> ' Get hWnd for Lock Project checkbox control in Project Properties dialog
> hWndLockProject = GetDlgItem(hWndProjectProperties, ControlIDLockProject)
>
> ' Lock project for &viewing
> SendMessage hWndLockProject, BM_SETCHECK, BST_CHECKED, 0
>
> ' &Password
> SendMessage hWndPassword, EM_REPLACESEL, vbTrue, ByVal strPassword
>
> ' &Confirm password
> SendMessage hWndConfirmPassword, EM_REPLACESEL, vbTrue, ByVal strPassword
>
>
> John W. Colby
> www.ColbyConsulting.com
>
> On 5/23/2011 9:22 AM, jwcolby wrote:
>> I am hot on the trail for code to do this.
>>
>> http://www.standards.com/Office/SetVBAProjectPassword.html
>>
>> It requires manipulating windows to get the dialog as it pops up and then pushing data to that and
>> clicking on things in the dialog. Actually cool stuff to know.
>>
>> John W. Colby
>> www.ColbyConsulting.com
>>
>> On 5/23/2011 12:12 AM, Stuart McLachlan wrote:
>>> I don't think so. I've never come across anything that can do that,
>>>
>>> The actual Password can be *changed* from an external application. I have a "cracker"
>>> application which does exactly that
>>>
>>> http://www.systoolsgroup.com/vba-password-remover.html.
>>>
>>> It doesn't "remove" VBA passwords, it resets them to a standard password (possibly just be
>>> writing a different hash value somewhere in the .mdb) so that you can go in and unset it
>>> yourself after entering the new password. Based on the fact that similar utilities work in the
>>> same way, I'd guess that setting/unsetting a PW is a far more difficult task.
>>>
>>>