-
[엑셀-VBA] VBAProject(vba 프로젝트) 잠금 및 해제오피스/VBA 2016. 8. 10. 11:26
출처 : 네이버 지식인
프로젝트명을 "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 참고해 주세요
저처럼 필요한 분이 있을 것 같아 수정해 둡니다.
필요한 분 있으시면 사용 하세요...'오피스 > VBA' 카테고리의 다른 글
[엑셀-VBA] Environ 함수 사용 예시 (0) 2016.01.20 [엑셀-VBA] 속도 향상 기법 (0) 2015.09.10