VBAProject - Project Properties

[Fire_Chief]

I have protected my code with a password and locked project for viewing.
I would like to be able to unlock and lock the password and viewing with VBA code.
Is this possible and what would the code be.
I have done a lot of code writing but this one is above my pay grade....


Thank You

 

[zweifuss]

There is no official way. You can try SendKeys to operate the VBE menu and fill out the password dialog.

 

[Fire_Chief]

I don't know how to use SendKeys.
What I'm trying to do Is in the opening code it will know it's my computer and unlock the project.
Any Suggestions?

Thanks for the reply

 

[zweifuss]

This works for me:

Public Sub HideProject()
    ' Hide project and set password to 'Pa$$w0rd'
    SendKeys "%{F11}"   ' open VBA-IDE
    VBA.DoEvents        ' wait a bit
    SendKeys "%xi"      ' menu navigation is language dependent
    SendKeys "+{Tab}{Right}{Tab}{Tab}" ' move to tab secure
    SendKeys " {Tab}{Tab}"             ' check hide checkbox with space
    SendKeys "Pa$$w0rd{Tab}"           ' fill password
    SendKeys "Pa$$w0rd{Enter}"
End Sub

SendKeys statement (VBA)

Office VBA reference topic

docs.microsoft.com

 

[Fire_Chief]

Public Sub HideProject()
' Hide project and set password to 'Pa$$w0rd'
SendKeys "%{F11}" ' open VBA-IDE I stepped through the code. When I got here it opened the main page
VBA.DoEvents ' wait a bit
SendKeys "%xi" 'menu navigation is language dependent. When I executed this line it changed i SendKeys "+{Tab}{Right}{Tab}{Tab}" ' move to tab secure
SendKeys "+{Tab}{Right}{Tab}{Tab}" ' move to tab secure
SendKeys " {Tab}{Tab}" ' check hide checkbox with space
SendKeys "123{Tab}" ' fill password I used 123 as the password
SendKeys "123{Enter}"
End Sub

When I ran it fast this is what I got

Public Sub HideProject()
' Hide project and set password to 'Pa$$w0rd'
iS Pa$$w0rd Pa$$w0rd
endKeys "%{F11}" ' open VBA-IDE I stepped through the code. When I got here it opened the main page
VBA.DoEvents ' wait a bit
SendKeys "%xi" ' menu navigation is language dependent
SendKeys "+{Tab}{Right}{Tab}{Tab}" ' move to tab secure
SendKeys " {Tab}{Tab}" ' check hide checkbox with space
SendKeys "123{Tab}" ' fill password
SendKeys "123{Enter}"
End Sub

I don't understand..

Thanks

 

[Jaafar Tribak]

Take a look here and see if it works for you :

Lock-UnLock VBAProjects Programmatically without SendKeys

Hi all, I Have recently written this piece of code so I just thought I would post it here for future reference should anyone be looking for vba code to lock\unlock a vbaproject programmatically without needing to use the unreliable SendKeys method. workbook example This code requires that the...

www.mrexcel.com

 

[Fire_Chief]

I guess I will have to do it manually..
Thanks

 

[Fire_Chief]

Thank you for this tip

Sub HintForGoodResults( )
If yourcode Is indented Then
"it is easier to for everyone to understand" AND "others are more likely to give assistance"
Else
"errors are much harder to find" OR "others dont bother"
End If
End Sub