God of EXCEL

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

저번에는 일괄적으로 암호걸어보기를 했는데 이번에는 패스워드가 걸린 엑셀 파일들을 한꺼번에 해제하거나 암호를 변경해도록 하자. 중요한점은 엑셀 파일의 암호를 알고 있어야한다는 것이다! 1. 동작 순서 1) 패스워드변경.xlsm의 셀 A2에 폴더 경로를 입력. 경로 마지막에 '\' 없어도됨 ex. c:\test 2) 파일불러오기 버튼을 클릭하면 셀 A2 경로의 파일들을 시트에 출력. (확장자는 xlsx, xls, xlsm 등) 3) 목록을 불러오면 현재 비밀번호와 변경할 비밀번호를 입력하고 비밀번호 변경을 클릭 4) 암호 변경 성공 여부에 따라 E열에 결과를 나타냄 2. 시연 폴더 경로는 'C:\패스워드연습'으로 설정하고, 안의 내용물은 위 그림과 같이 다양하게 준비했다. 엑셀 파일은 이름처럼 비밀번호를 4..

엑셀 파일에 자동으로 암호를 걸어보도록 하자 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..

예전에 만들었던 엑셀 한 방에 암호걸기는 오류도 있고 완성도가 상당히 떨어졌다. 이번에는 조금 더 나아진 코딩 실력으로 MS Office 프로그램들을 암호화하는 코드를 작성해봤다. 1.암호화 파일 새로 생성(기존 버전) 2.원본 암호화 버전(23.01.13 추가) 1. 매크로 구성 * 사용자 정의 폼 * Module1: 메인 * Module2: 폴더 선택 함수 2. 매크로 실행 영상 매크로 실행 영상 3. 매크로 동작 순서 1) 매크로 실행 2) 폴더 선택 3) 빈 폴더 일경우 종료, 파일이 들어있으면 진행 4) 사용자 정의 폼 띄우고 설정할 암호 입력 5) 파일 중 xls(xlsx, xlsm, xls), doc(docx, docm, doc), ppt(pptx pptm, ppt) 확장자들만 추출 6) 추..

우연히 시트가 보호된 엑셀 파일을 얻었다. 보호된 시트의 내용은 숨겨져있고, 그 속을 보고싶은 마음에 해제해보기로 했다. 시트보호해제 하는 방법은 구글링을 통해 알았고 알아낸 방법을 자동화하기만 했다. ----------------------------------------------------------------------------------------- * 매크로 동작 순서 1. 시트보호된 엑셀파일을 선택한다. 2. 엑셀파일 복사 3. 복사된 엑셀파일 확장자를 .zip 으로 변경 4. 압축을 푼다 5. 워크시트가 저장된 폴더의 파일은 텍스트파일로 변경해준다. (압축해제 했을 때 워크시트는 sheet1.xml, sheet2.xml 이런식으로 저장되있다.) 6. 텍스트파일을 엑셀시트에 불러와서 시트보..

기존에 암호가 안걸린 파일을 일일이 하려니 넘 귀찮았다. (파일이 100개면 100개를 열었다가 저장하고 닫고.. ㅡㅡ) 그래서 폴더를 선택하고 그 폴더 안에 암호가 걸리지 않은 엑셀파일은 내가 정한 암호가 적용되고 저장되도록 만들어봄 참고로 .xlsx 파일만 암호화 가능함(이건 코드 수정해서 확장자 추가하면 해결 ^_^) 그리고 프로그래밍 초보라 코드는 상당히 난잡하다 만들다보면 간편하고 보기쉽게 만들 수 있지 않을까?ㅎㅎ 1. 작동 알고리즘 -------------------일괄 암호화 하는 테스트 ------------------------------------------------ 대충 실행되는건 알았으니, 암호걸린 파일 7개, 안걸린 파일 91개 섞어서 매크로를 실행해보겠음 결과: 컴터 사양에 ..

개인정보는 소중하다. 엑셀에 기록된 개인정보는 소중하다. 엑셀 + 개인정보 = 암호화 엑셀에 개인정보가 있으면 암호화 해야되는데 맨날천날 할려니까 귀찮다. 암호를 걸어도 똑같은 암호만 쓴다. 그래서 저장하면 자동으로 암호가 걸리는 매크로를 만들어봤다. 나는 컴퓨터에 대해 아무것도 모르는 초짜다. 기본구조, 메모리 그런거 하나도 모른다. 오로지 내 편의를 위해서만 만들었다. - 매크로 실행했을 때 동작 순서 ! 1. 바탕화면에 'password.txt' 파일이 있는지 확인한다. 1.1 파일 존재할 경우: 텍스트 파일안에 미리 지정해놓은 패스워드를 읽어와 엑셀파일 저장할때 암호를 적용하고 끝. 1.2 파일 없을 때: 패스워드 파일을 만들것인지 물어본다. 안만들면 거기서 끝. 만들 경우 2차례 거쳐 패스워드를..