How can I unprotect VBProject in workbook by VB Code?

[Kreang]

Hi all,
How can I code for unprotect and protect VBProject in my workbook by VB code? There is password also.

Thanks in advance,
Kreang

 

[Jon Peltier]

Kreang -

VBA does not expose VBProject passwords in its object model. The way password *******s do it is by trial end error using something like SendKeys or various Windows APIs to send trial passwords to the appropriate dialog box.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
http://www.geocities.com/jonpeltier/Excel/index.html
_______

 

[Ivan F Moala]

Hi all,
How can I code for unprotect and protect VBProject in my workbook by VB code? There is password also.

Thanks in advance,
Kreang

If it's your Project and you know the password then one option
look here

http://216.92.17.166/board2/viewtopic.php?p=104204&highlight=vba+passwword#104204

 

[Kreang]

Hi,
I try as below

Set wbbproj = ThisWorkbook.VBProject
wbbproj.VBE.selectedvbcomponent.Select
Application.SendKeys "test", True
Application.SendKeys "~", True

but it can not use. (I use MS Excel2000)

Remarks : "test" is my password
I think, problem is line#2, How can I do the "VBProject Password window" show?
I think, if we can do the "VBAProject Password" window show, we can use sendkeys to enter password.

Thanks in advance,
Kreang

 

[clarence]

This will unprotect a sheet. Replace "mypassword" with whatever your password is.

ActiveSheet.Unprotect Password:="mypassword"

This will password protect a sheet. Replace :mypassword" with whatever your password is.

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="mypassword"

Is this what you were asking for ?

Cheers
clarence

 

[Kreang]

Hi Clarence,
I don't want to protect or unprotect worksheet ,I want to unprotect VBProject by VB code.

Thanks,
Kreang