[엑셀vba] 엑셀 저장할 때 자동으로 암호 걸어버리기

개인정보는 소중하다.

엑셀에 기록된 개인정보는 소중하다.

엑셀 + 개인정보 = 암호화

엑셀에 개인정보가 있으면 암호화 해야되는데 맨날천날 할려니까 귀찮다. 암호를 걸어도 똑같은 암호만 쓴다. 

그래서 저장하면 자동으로 암호가 걸리는 매크로를 만들어봤다.

나는 컴퓨터에 대해 아무것도 모르는 초짜다. 기본구조, 메모리 그런거 하나도 모른다. 오로지 내 편의를 위해서만 만들었다.

- 매크로 실행했을 때 동작 순서 !

1. 바탕화면에 'password.txt' 파일이 있는지 확인한다.

  1.1 파일 존재할 경우: 텍스트 파일안에 미리 지정해놓은 패스워드를 읽어와 엑셀파일 저장할때 암호를 적용하고 끝.

  1.2 파일 없을 때: 패스워드 파일을 만들것인지 물어본다. 안만들면 거기서 끝. 만들 경우 2차례 거쳐 패스워드를 입력한다. 그러면 바탕화면에 입력한 패                           스워드가 저장된 텍스트 파일이 생성되고, 엑셀파일은 암호가 걸리면서 저장된다.

아래는 동작 순서를 스샷 찍어봄.

[그림1]

엑셀 실행했을 때 화면임

[그림2]

매크로 실행하기 전

[그림3]

저장의 기본 단축키는 ctrl + s

ctrl + shift + s 를 누르면 

암호가 걸리도록 단축키 설정을 했다

[그림4]

바탕화면에 'password.txt' 파일이 없기때문에 

만들거냐고 묻는 창이 뜸

[그림5]

1차로 암호 입력해야함

[그림6]

만인의 비밀번호 1234 입력함

[그림7]

2차 입력할때 일부러 틀리게 입력함

[그림8]

그것도 틀리냐고 나옴

[그림9]

1234로 다시 입력하고 저장함.

[그림10]

바탕화면 'password.txt'파일이 생겨버려따

[그림11]

바탕화면 'password.txt'파일이 생겨버려따

[그림12]

다시 파일을 열어보니 암호를 입력하라한다.

좋은 매크로 만들었다

감사