Assuming all my passwords are "abc"

To unprotect my active sheet, I do€¦€¦
ActiveSheet.Unprotect €œabc€�

To unprotect my write protected workbook, I do€¦€¦
Workbooks.Open Filename:=TargetPathAndName, WriteResPassword:= €œabc€�

But to €œunlock for viewing€� in VBE, my module1 under Project Name Book, what
the code like?

Many thanks

It can be done, but it involves the use of SendKeys which isn't too stable.

This is an example, but you may need to tune it


With Application
.SendKeys "%{F11}", True ' VBE
.SendKeys "^r", True ' Set focus to Explorer
.SendKeys "{TAB}", True ' Tab to locked project
.SendKeys "~", True ' Enter
.SendKeys "password"
.SendKeys "~", True ' Enter
End With


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Edmund" wrote in message
...
Assuming all my passwords are "abc"

To unprotect my active sheet, I do..
ActiveSheet.Unprotect "abc"

To unprotect my write protected workbook, I do..
Workbooks.Open Filename:=TargetPathAndName, WriteResPassword:= "abc"

But to "unlock for viewing" in VBE, my module1 under Project Name Book,
what
the code like?

Many thanks