[엑셀-VBA] VBAProject(vba 프로젝트) 잠금 및 해제

출처 : 네이버 지식인

프로젝트명을 "Naver"라고 명하구요

읽기 전용으로 체크를 했습니다.

그리고 아래 비밀번호 칸에 "12345"라고 비번을 입력하고

확인을 눌러주면 vba프로젝트가 잠기게 되잖아요...

질문1) 이걸 vba로 Private Sub Workbook_Open() 이나 Sub Auto_Open() 에서 구현할 수 있나요?

질문2) vba비밀번호를 "12345"라고 명 했으니 이걸 반대로 프로젝트를 풀 수 있나요?

질문3) 현재 "Naver" 프로젝트가 잠겨 있는지 풀려 있는지 확인하는 코드?

시트나 워크북은

expression.Unprotect(Password)

expression.Protect(Password, Structure, Windows)

이렇게 하면 되잖아요...
vba프로젝트는 어떻게 하는지...?

위 질문에 대한 명령어는 따로 없네요 ㅠㅠ
아래 방법으로 SendKeys 명령을 이용해서 하는 수 밖에 없네요... ㅠㅠ

---------------------------------------------------------------------------------------

짊문1) 비밀번호설정은 아래처럼 하면 되네요...

Dim sPassword As String
sPassword = "1234"

SendKeys "%{F11}", True
SendKeys "%T", True
SendKeys "E"
SendKeys "^{TAB}"
SendKeys "%V"
SendKeys "%P"
SendKeys sPassword
SendKeys "%C"
SendKeys sPassword
SendKeys "~"

짊문2) 해제는 아래처럼 하면 되네요...

Dim sPassword As String
sPassword = "1234"

SendKeys "%{F11}", True
SendKeys "%T", True
SendKeys "E"
SendKeys sPassword
SendKeys "~"

이렇게 하면 되네요... ㅠㅠ
좀 비협조적인 방법이긴 하지만 ....

짊문3) 은 http://cafe.naver.com/microchip128/1778 참고해 주세요

저처럼 필요한 분이 있을 것 같아 수정해 둡니다.
필요한 분 있으시면 사용 하세요...