[엑셀vba] 엑셀 파일 한꺼번에 암호걸기(23.01.13 수정)

예전에 만들었던 엑셀 한 방에 암호걸기는 오류도 있고 완성도가 상당히  떨어졌다.

 

이번에는 조금 더 나아진 코딩 실력으로 MS Office 프로그램들을 암호화하는 코드를 작성해봤다.

 

1.암호화 파일 새로 생성(기존 버전)

MS_OFFICE_Encrypt.xlsm

0.02MB

 

2.원본 암호화 버전(23.01.13 추가)

MS_OFFICE_Encrypt(원복 암호화).xlsm

0.03MB

---

1. 매크로 구성

 * 사용자 정의 폼

 * Module1: 메인 

 * Module2: 폴더 선택 함수

---

2. 매크로 실행 영상

매크로 실행 영상

 

---

3. 매크로 동작 순서

 1) 매크로 실행

 2) 폴더 선택

 3) 빈 폴더 일경우 종료, 파일이 들어있으면 진행

 4) 사용자 정의 폼 띄우고 설정할 암호 입력

 5) 파일 중 xls(xlsx, xlsm, xls), doc(docx, docm, doc), ppt(pptx pptm, ppt) 확장자들만 추출

 6) 추출한 파일들을 열면서 암호 설정 확인하고 안되있으면 암호 설정하고 저장

    (열고 저장하는 작업은 백그라운드로 진행되어 보이지 않음)

 7) 저장파일은 '(Encrypt)hh-mm-ss_원래파일이름' 형식으로 저장됨

     ※ hh-mm-ss: 시간-분-초

 8) 원본은 보존되므로 암호를 까먹어도 ㄱㅊ

 9) 다른 MS Office 프로그램 추가하기 쉬움

---

4. 나중에 추가할 기능

 1) 폴더 안에 있는 폴더도 작업하도록 만들기

 2) 엑세스 확장자 추가

 

---