프로그램/비밀번호 관련 프로그램

[엑셀vba] 다량의 엑셀파일 한 번에 암호걸기(하위폴더 포함)

도 박사 2021. 6. 23. 12:46
반응형

vba 공부 초기에 만들었던 매크로를 업그레이드 해보았다.

 

지금도 초보이지만 처음보다 많이 나아진 듯하다.. (개인적인 생각 ^_^)

 


1. 매크로 기능

- 사전에 설정된 패스워드로 특정 폴더 안의 엑셀 파일을 암호화 해줌

※ xls 문자열이 들어간 엑셀 파일만 가능

 

- 하위 폴더도 적용할 지 선택 가능

- LOG 시트에 암호화 성공 실패 관련 기록 볼 수 있음 (최대 1,048,575개)


2. 매크로 실행

 

희생양
하위 폴더의 하위폴더

 

하위 폴더의 하위폴더의 하위폴더

우선, 이번 매크로의 희생양을 준비해보자.

각 폴더에 하위 폴더의 하위 폴더를 만들어두었다. 

4겹 정도된다.

그리고 '테스트파일.xlsx' 하나와 텍스트 파일 한 개를 넣어두었다.(캡쳐에 안보이는건 함정)

 

매크로 엑셀 파일

이제 매크로를 실행하기 위한 준비는 끝났고, 경로와 패스워드만 설정해주면 된다.

B1 셀에 경로를 입력한다. (마지막에 '\'문자는 있어도 되고 없어도 상관없음)

B2 셀에 설정한 비밀번호를 입력한다.

하위 폴더를 포함할지는 C1 셀에있는 체크박스에 체크해주면 된다.

 

초록색 재생 버튼을 클릭하면 매크로가 시작!

실행 중

엑셀이 열렸다 닫혔다하면서 껌뻑껌뻑한다.

지금은 파일이 많지 않아 금방끝나버렸다.

로그 시트

매크로가 종료되고 로그시트를 보면 성공했을 때 기록을 볼 수 있다.

암호화 실패를 하게 되면 다음과 같은 로그가 남는다.

로그 시트
암호 적용 완료

실제로 실행해보면 암호가 정상적으로 걸려있음을 확인할 수 있었다.

 

엑셀파일암호걸기.xlsm
0.03MB


 

반응형