God of EXCEL

vba 공부 초기에 만들었던 매크로를 업그레이드 해보았다. 지금도 초보이지만 처음보다 많이 나아진 듯하다.. (개인적인 생각 ^_^) 1. 매크로 기능 - 사전에 설정된 패스워드로 특정 폴더 안의 엑셀 파일을 암호화 해줌 ※ xls 문자열이 들어간 엑셀 파일만 가능 - 하위 폴더도 적용할 지 선택 가능 - LOG 시트에 암호화 성공 실패 관련 기록 볼 수 있음 (최대 1,048,575개) 2. 매크로 실행 우선, 이번 매크로의 희생양을 준비해보자. 각 폴더에 하위 폴더의 하위 폴더를 만들어두었다. 4겹 정도된다. 그리고 '테스트파일.xlsx' 하나와 텍스트 파일 한 개를 넣어두었다.(캡쳐에 안보이는건 함정) 이제 매크로를 실행하기 위한 준비는 끝났고, 경로와 패스워드만 설정해주면 된다. B1 셀에 경로를..

엑셀 파일에 자동으로 암호를 걸어보도록 하자 1. 매크로 동작 순서 ① 파일 목록 불러오기 클릭하여 폴더 선택 ※ xls, xlsx, xlsm 이외의 파일은 불러오지 않음 ② C열에 적용할 패스워드를 입력한다. ③ 암호 설정하기 클릭하면 자동으로 암호넣고 저장 완료 ④ 이미 암호가 걸려있는 파일은 적용되지 않고 실패 로그를 남김 2. 매크로 실행 영상

원하는 엑셀 파일을 선택하여 암호를 걸어보도록 하자. 1. 매크로 동작 순서 ① 설정할 암호 입력 ※ 암호 조건: 최소 4자리 이상, 위 아래 암호 입력 값이 동일 해야함 ② 암호 조건이 맞으면 OK 버튼 활성화 ③ 파일 선택창 열림 ④ 원하는 경로로 들어가 파일 선택 (여러개 선택 가능) ⑤ 선택된 파일들 암호 걸고 저장됨. (백그라운드로 진행됨) ⑥ 종료되면 파일을 확인한다. ⑦ - 끝 - 2. 매크로 실행 영상 오우 잘되는군...

기본 기능에 충실한 vba코드를 작성해봤다. 제곧내 엑셀 파일마다 다른 암호를 설정하고 싶을 때 요롷고롬 하면 쉽게 할 수 있었다. 1. 코드 Option Explicit Sub 파일별로다른암호걸기() Dim lastFile As Integer Dim i As Integer Dim Excel_ap As Excel.Application Application.DisplayAlerts = False lastFile = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row Set Excel_ap = CreateObject("excel.application") Excel_ap.Visible = False Excel_ap.Application.DisplayAlerts = False F..