Unlocking for viewing (in VBE)

[Guest]

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

 

[Bob Phillips]

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)