안녕, 내 친구! 엑셀 좀 만진다 하는 우리들, 다들 비슷한 고민 한 번쯤 해봤을 거야.
팀원들과 공유해야 하는 파일인데, 특정 시트나 데이터는 나만 보고 싶을 때. 🤫
월급 명세서, 고객 개인정보, 회사의 일급 기밀 데이터...
이런 민감한 정보들이 담긴 엑셀 파일, 그냥 '시트 보호'나 '통합 문서 암호화'만 걸어두고 마음 놓고 있진 않아?

미안하지만... 그 정도 보안은 마음만 먹으면 10분 만에도 뚫릴 수 있다는 거, 알고 있었어? 😱
마치 "들어오지 마세요"라고 쓴 종이 문짝 같은 거지. 진짜 도둑한테는 아무 소용 없다는 말이야.
그래서 오늘, 우리는 좀 더 '찐'보안, '진짜' 암호화를 배워볼 거야.
바로 엑셀의 숨겨진 히든카드, VBA(Visual Basic for Applications)를 이용해서 말이지!

"코딩? 나는 컴맹인데..." 하고 벌써부터 창을 닫으려는 친구, 잠깐만! ✋
내가 정말 친구한테 설명하듯, 하나부터 열까지 차근차근, 이보다 더 쉬울 수 없게 알려줄게.
오늘 이 글을 다 읽고 나면, 너는 더 이상 평범한 엑셀 유저가 아닐 거야.
너의 엑셀 파일에 강력한 강철 금고를 만들어주는 '데이터 보안관'으로 레벨업하게 될 거라고! 자, 준비됐어? 그럼 지금부터 신나는 VBA 암호화의 세계로 떠나보자! 🚀

1. 왜 굳이 VBA여야만 할까? (기본 기능의 한계)

우리가 본격적으로 VBA 코드를 만지기 전에, 먼저 짚고 넘어가야 할 게 있어.
"아니, 엑셀에 이미 암호 기능 있잖아? 그거 쓰면 안 돼?" 하는 의문 말이야.
물론이지! 엑셀은 우리 편의를 위해 몇 가지 보안 기능을 기본으로 제공해. 한 번 살펴볼까?

(1) 시트 보호 & 통합 문서 보호: 허술한 자물쇠 🔓

가장 흔하게 쓰는 기능이야. [검토] 탭에 가면 '시트 보호'랑 '통합 문서 보호'가 있지.
시트 보호는 특정 셀의 내용을 수정하지 못하게 막는 기능이고,
통합 문서 보호는 시트의 구조(추가, 삭제, 이름 변경 등)를 바꾸지 못하게 막는 기능이야.

암호를 걸어두면 다른 사람들이 함부로 건드릴 수 없으니 좋아 보이지?
하지만 이건 '보호'일 뿐, 데이터 자체를 숨겨주는 '암호화'가 아니야.
데이터는 그냥 맨몸으로 다 보이고, 단지 편집만 막는 수준이지.
심지어 이 암호, 인터넷에 '엑셀 시트 보호 해제'라고 검색만 해봐도 수많은 프로그램과 방법들이 쏟아져 나와. 몇 번 클릭만으로 '펑'하고 풀려버리는 아주 허술한 자물쇠라는 거지.

(2) 통합 문서 암호화: 조금 더 낫지만... 🤔

[파일] > [정보] > [통합 문서 보호] > [암호 설정] 경로로 들어가면 파일 전체를 열 때 암호를 묻게 만들 수 있어.
이건 시트 보호보다는 훨씬 강력해. 파일 자체를 암호화해서 저장하거든.
하지만 이것도 약점은 존재해. 만약 우리가 원하는 게 파일 전체가 아니라, 파일 안의 특정 시트나 특정 범위의 데이터만 선별적으로 암호화하는 거라면? 이 기능으로는 불가능하지.

예를 들어, 10개의 시트 중에서 8개는 팀원 모두가 자유롭게 봐야 하고, 나머지 2개의 '임원 보고용' 시트만 비밀로 하고 싶다고 해봐.
통합 문서 암호화를 걸면, 파일을 열 때마다 모든 팀원이 암호를 물어봐야 하는 불편함이 생겨.
결국 암호를 공유하게 될 거고, 그럼 보안의 의미가 사라지겠지?

2. VBA, 너랑 친해지고 싶어! (기초 준비 운동)

자, 이제 본격적으로 VBA의 문을 열어보자. 코딩이라고 해서 겁먹을 필요 전혀 없어.
우선 VBA를 어디서 어떻게 쓰는지, 그 '놀이터'부터 익숙해지는 시간을 가질 거야.

(1) 개발 도구 탭 소환하기 🪄

엑셀을 딱 켰을 때, 기본적으로 상단 메뉴에 [파일], [홈], [삽입]... 이런 것들은 보이는데, [개발 도구]라는 탭은 안 보일 거야. 이건 우리가 직접 꺼내 줘야 해.

1. [파일] 탭을 클릭해.
2. 맨 아래에 있는 [옵션]을 클릭.
3. 'Excel 옵션' 창이 뜨면 왼쪽 메뉴에서 [리본 사용자 지정]을 클릭.
4. 오른쪽 '리본 메뉴 사용자 지정' 박스에서 '기본 탭' 목록을 쭉 봐봐. 그럼 중간쯤에 '개발 도구'가 체크 해제되어 있을 거야. 이걸 체크 ✔️ 해주고 [확인] 버튼을 누르면 끝!

이제 엑셀 상단 메뉴에 [개발 도구] 탭이 멋지게 나타났을 거야. 여기가 바로 우리가 VBA 마법을 부릴 장소야.

(2) VBA 편집기(VBE) 입장하기

이제 진짜 코드를 입력할 창을 열어보자. 방법은 두 가지!

방법 1: 방금 만든 [개발 도구] 탭을 누르고, 맨 왼쪽에 있는 [Visual Basic] 아이콘을 클릭.
방법 2: 단축키의 제왕! 키보드에서 `Alt` + `F11`을 동시에 누르기. (이건 진짜 자주 쓰니까 외워두면 편해!)

짠! 그럼 엑셀 창과는 별개로 생긴 건 좀 촌스럽지만(?) 뭔가 전문가 포스가 나는 새 창이 뜰 거야. 여기가 바로 VBE(Visual Basic Editor), 즉 VBA 편집기야.

(3) 코드 입력할 종이(모듈) 준비하기

VBE 창이 열렸다고 바로 코드를 쓸 순 없어. 코드를 적을 깨끗한 종이를 한 장 꺼내야지.
VBA에서는 이 종이를 '모듈(Module)'이라고 불러.

1. VBE 창 왼쪽을 보면 '프로젝트 탐색기'라는 창이 보일 거야. (만약 안 보이면 `Ctrl` + `R`을 눌러봐)
2. `VBAProject (네 파일 이름.xlsm)` 이렇게 생긴 항목이 보이지? 여기서 마우스 오른쪽 버튼을 클릭해.
3. [삽입(Insert)] > [모듈(Module)]을 차례대로 클릭!

그럼 오른쪽에 하얀 빈 공간이 생기면서 커서가 깜빡일 거야. 드디어 코드를 입력할 준비가 모두 끝났어! 🎉

3. 첫 번째 암호화: 쉽고 빠른 XOR 암호화 맛보기

모든 준비는 끝났어. 이제 진짜 암호화 코드를 작성해 볼 시간이야.
가장 먼저 배울 암호화 기법은 'XOR 암호화'야. 이름은 좀 어려워 보이지만, 원리는 정말 간단하고 컴퓨터가 가장 좋아하는 연산 중 하나라서 속도도 엄청나게 빨라.

(1) XOR이 대체 뭔데? 🤔

XOR은 'Exclusive OR(배타적 논리합)'의 줄임말이야. 어렵게 생각할 것 없이, '서로 다르면 참(1), 서로 같으면 거짓(0)'이라고 기억하면 돼.
컴퓨터는 모든 글자를 숫자로 기억하잖아? (이걸 아스키 코드라고 해)
XOR 암호화는 이 원리를 이용하는 거야.

예를 들어, 암호화할 원본 데이터 'A'가 있고, 우리만 아는 비밀 키(Key) 'K'가 있다고 해보자.

암호화 과정: 원본(A) XOR 비밀키(K) = 암호문(B)
복호화 과정: 암호문(B) XOR 비밀키(K) = 원본(A)

놀랍지 않아? 똑같은 비밀키로 XOR 연산을 두 번 하면 원래 데이터로 돌아와! 😮
마치 스위치 같아. 한 번 누르면 켜지고(암호화), 똑같은 스위치를 한 번 더 누르면 꺼지는(복호화) 거지. 이 간단한 원리 덕분에 암호화 함수와 복호화 함수를 따로 만들 필요 없이, 함수 하나로 두 가지 작업을 모두 처리할 수 있어.

(2) VBA로 XOR 암호화/복호화 함수 만들기

자, 이제 이 원리를 코드로 옮겨보자. 아까 열어둔 VBE 창의 모듈에 아래 코드를 그대로 복사해서 붙여넣어 봐.

'//================================================================
'// 함수 이름: XorEncryptDecrypt
'// 기능:      문자열을 주어진 키를 사용하여 XOR 암호화 또는 복호화한다.
'// 인자:      strText - 암호화/복호화할 문자열
'//            strKey  - 암호화/복호화에 사용할 비밀 키
'// 반환값:    암호화 또는 복호화된 문자열
'//================================================================
Function XorEncryptDecrypt(strText As String, strKey As String) As String
    Dim i As Long, j As Long
    Dim textLen As Long, keyLen As Long
    Dim tempChar As String
    Dim result As String
    
    ' 입력된 문자열이나 키가 비어있으면 함수를 종료
    If strText = "" Or strKey = "" Then
        XorEncryptDecrypt = ""
        Exit Function
    End If
    
    textLen = Len(strText) ' 원본 텍스트의 길이
    keyLen = Len(strKey)   ' 비밀 키의 길이
    
    j = 1 ' 키 문자열의 인덱스를 추적하기 위한 변수
    
    ' 원본 텍스트의 각 글자를 하나씩 순회
    For i = 1 To textLen
        ' 원본 텍스트의 i번째 글자의 아스키 코드 값과
        ' 비밀 키의 j번째 글자의 아스키 코드 값을 가져와서 XOR 연산 수행
        tempChar = ChrW(AscW(Mid(strText, i, 1)) Xor AscW(Mid(strKey, j, 1)))
        
        ' 결과 문자열에 한 글자씩 추가
        result = result & tempChar
        
        ' 키 인덱스(j)를 증가시킴
        j = j + 1
        ' 만약 키 인덱스가 키의 길이를 넘어서면 다시 1로 리셋 (키를 순환 사용)
        If j > keyLen Then
            j = 1
        End If
    Next i
    
    ' 최종 결과물을 함수의 반환값으로 지정
    XorEncryptDecrypt = result
End Function

코드가 좀 길어 보여도 겁먹지 마! 주석을 꼼꼼히 달아뒀으니 한 줄 한 줄 읽어보면 금방 이해될 거야.
핵심은 바로 이 부분이야: `ChrW(AscW(Mid(strText, i, 1)) Xor AscW(Mid(strKey, j, 1)))`
글자를 아스키 코드(숫자)로 바꾸고(`AscW`), 키의 글자 아스키 코드랑 XOR 연산을 한 다음, 그 결과 숫자를 다시 글자로(`ChrW`) 바꿔주는 거지. 이 과정을 텍스트 길이만큼 반복하는 거야.

(3) 엑셀 시트에서 직접 사용해보기

이제 이 함수를 실제로 써먹어 봐야지! 엑셀 시트에 간단한 암호화/복호화 도구를 만들어보자.

1. 엑셀 시트를 아래처럼 간단하게 구성해봐.
- B2 셀: "원본/암호문" 이라고 텍스트 입력
- C2 셀: 여기에 암호화할 텍스트나 암호화된 텍스트를 입력할 거야. (예: "나의 비밀일기")
- B3 셀: "비밀번호" 라고 텍스트 입력
- C3 셀: 여기에 우리만 아는 비밀번호(키)를 입력할 거야. (예: "1234")

2. 이제 마법의 버튼을 만들 차례! [개발 도구] > [삽입] > [양식 컨트롤]에서 첫 번째에 있는 '단추(양식 컨트롤)'를 클릭해. 그리고 시트의 적당한 곳에 드래그해서 버튼을 만들어줘.

3. 버튼을 만들면 '매크로 지정' 창이 바로 뜰 거야. 여기서 [새로 만들기]를 클릭해. 그럼 VBE 창이 다시 열리면서 새로운 코드를 입력할 수 있는 공간이 생길 거야. 아래 코드를 입력해줘.

Sub EncryptDecrypt_ButtonClick()
    Dim targetCell As Range
    Dim keyCell As Range
    Dim result As String
    
    ' 암호화/복호화할 데이터가 있는 셀을 C2로 지정
    Set targetCell = ThisWorkbook.ActiveSheet.Range("C2")
    
    ' 비밀번호(키)가 있는 셀을 C3로 지정
    Set keyCell = ThisWorkbook.ActiveSheet.Range("C3")
    
    ' 만약 C2나 C3 셀이 비어있으면 사용자에게 알림
    If targetCell.Value = "" Or keyCell.Value = "" Then
        MsgBox "원본/암호문과 비밀번호를 모두 입력해주세요!", vbExclamation, "입력 오류"
        Exit Sub
    End If
    
    ' 우리가 만든 XorEncryptDecrypt 함수를 호출해서 결과를 받아옴
    result = XorEncryptDecrypt(targetCell.Value, keyCell.Value)
    
    ' 결과를 다시 C2 셀에 덮어쓰기
    targetCell.Value = result
    
    MsgBox "작업이 완료되었습니다!", vbInformation, "완료"
End Sub

4. 이제 VBE 창은 닫고 엑셀로 돌아와. 방금 만든 버튼에 마우스를 대고 오른쪽 클릭 > '텍스트 편집'을 눌러서 버튼 이름을 "암호화/복호화 실행" 같은 걸로 바꿔주자.

이제 모든 준비가 끝났어! C2 셀에 "나의 비밀일기"를, C3 셀에 "1234"를 입력하고 버튼을 눌러봐.
C2 셀의 내용이 `lQU}#G{Q{O` 같은 알아볼 수 없는 문자로 바뀌었지? 이게 바로 암호화된 거야! 🥳
다시 한 번 버튼을 눌러봐. 그럼 마법처럼 다시 "나의 비밀일기"로 돌아올 거야. 이게 복호화지!

4. 레벨 업! Base64로 데이터 위장하기

XOR 암호화로 맛보기를 했다면, 이제 한 단계 더 나아가 보자. 이번에 배울 건 'Base64'야.
엄밀히 말하면 Base64는 '암호화(Encryption)'가 아니라 '인코딩(Encoding)'이야. 둘의 차이가 뭘까?

(1) 암호화 vs 인코딩: 뭐가 다른데?

- 암호화 (Encryption): '비밀키(Key)'를 가진 사람만 원래 내용으로 되돌릴 수 있도록, 허가되지 않은 사람이 내용을 아예 볼 수 없게 만드는 것을 목적으로 해. 보안이 핵심이지. (예: XOR, AES)

- 인코딩 (Encoding): 데이터를 다른 형식으로 변환하는 거야. 목적은 보안이 아니라, 데이터를 안전하게 전송하거나, 특정 시스템(예: 웹)에서 문제없이 처리할 수 있도록 표준화된 형태로 바꾸는 데 있어. 변환 규칙(알고리즘)이 공개되어 있어서 누구나 원래 내용으로 되돌릴 수(디코딩) 있어.

그럼 쓸모없는 거 아니냐고? 천만에! Base64는 데이터를 영문 대소문자, 숫자, 그리고 몇몇 특수문자(+, /)만으로 이루어진 '안전한 텍스트'로 바꿔줘. 이게 왜 중요하냐면, 우리가 만든 XOR 암호문은 가끔 이상한 특수문자나 제어문자를 만들어내는데, 이게 엑셀 셀에 저장되거나 다른 시스템으로 옮겨질 때 문제를 일으킬 수 있거든. 💥

그래서 우리는 이런 전략을 쓸 거야:
1단계: XOR로 1차 암호화한다.
2단계: 그 결과를 Base64로 인코딩해서 안전한 텍스트로 위장한다.

이렇게 하면 보안성도 조금 더 올라가고(한 번 더 꼬았으니까!), 데이터 안정성도 확보하는 일석이조의 효과를 누릴 수 있지!

(2) VBA로 Base64 인코딩/디코딩 함수 만들기

Base64를 VBA로 직접 구현하는 건 꽤 복잡해. 하지만 다행히도, 우리는 Windows 시스템이 기본으로 제공하는 아주 강력한 도구를 빌려 쓸 수 있어. 바로 'Microsoft XML, v6.0'이라는 라이브러리야.

먼저, 라이브러리 참조 설정부터 해야 해.

1. VBE 창(Alt + F11)을 열어.
2. 상단 메뉴에서 [도구(Tools)] > [참조(References)]를 클릭.
3. '참조' 창이 뜨면 목록을 쭉 내려서 'Microsoft XML, v6.0'을 찾아서 체크 ✔️ 해주고 [확인]을 눌러줘. (만약 v6.0이 없으면 v3.0이나 보이는 가장 높은 버전을 선택해도 괜찮아)

이 작업을 해줘야 VBA가 "아, 이제 XML 라이브러리의 기능을 쓸 수 있구나!" 하고 알아들어.

자, 이제 모듈에 아래의 Base64 관련 함수 두 개를 추가로 복사해서 붙여넣자.

'//================================================================
'// 함수 이름: Base64Encode
'// 기능:      문자열을 Base64로 인코딩한다. (UTF-8 형식)
'// 인자:      strText - 인코딩할 문자열
'// 반환값:    Base64로 인코딩된 문자열
'// 필요 참조: Microsoft XML, v6.0
'//================================================================
Function Base64Encode(strText As String) As String
    Dim arrData() As Byte
    Dim objXML As MSXML2.DOMDocument60
    Dim objNode As MSXML2.IXMLDOMElement

    ' UTF-8 형식으로 문자열을 Byte 배열로 변환
    arrData = StrConv(strText, vbFromUnicode)

    Set objXML = New MSXML2.DOMDocument60
    Set objNode = objXML.createElement("b64")
    
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    
    Base64Encode = objNode.Text
    
    Set objNode = Nothing
    Set objXML = Nothing
End Function

'//================================================================
'// 함수 이름: Base64Decode
'// 기능:      Base64로 인코딩된 문자열을 디코딩한다. (UTF-8 형식)
'// 인자:      strBase64 - 디코딩할 Base64 문자열
'// 반환값:    디코딩된 원본 문자열
'// 필요 참조: Microsoft XML, v6.0
'//================================================================
Function Base64Decode(strBase64 As String) As String
    Dim arrData() As Byte
    Dim objXML As MSXML2.DOMDocument60
    Dim objNode As MSXML2.IXMLDOMElement

    Set objXML = New MSXML2.DOMDocument60
    Set objNode = objXML.createElement("b64")

    objNode.DataType = "bin.base64"
    objNode.Text = strBase64
    
    arrData = objNode.nodeTypedValue
    
    ' Byte 배열을 다시 문자열로 변환
    Base64Decode = StrConv(arrData, vbUnicode)
    
    Set objNode = Nothing
    Set objXML = Nothing
End Function

코드가 훨씬 간결해졌지? 복잡한 인코딩 과정은 `Microsoft XML` 라이브러리가 알아서 다 처리해주고, 우리는 그냥 "이거 인코딩해줘!", "이거 디코딩해줘!" 하고 명령만 내리면 되는 거야. 이게 바로 라이브러리를 쓰는 즐거움이지! 😎

(3) XOR + Base64, 이중 보안 시스템 구축하기

이제 우리가 가진 두 개의 무기, XOR과 Base64를 합쳐보자.
암호화할 때는 XOR -> Base64 순서로, 복호화할 때는 그 반대인 Base64 -> XOR 순서로 진행하면 돼.

이 과정을 처리해 줄 새로운 매크로를 만들어보자. 아까 만든 `EncryptDecrypt_ButtonClick` 매크로는 그대로 두고, 새로운 버튼과 새로운 매크로를 만들어서 비교해보는 게 좋아.

시트에 버튼을 하나 더 만들고, '매크로 지정'에서 [새로 만들기]를 눌러 아래 코드를 입력해줘.

Sub AdvancedEncrypt_ButtonClick()
    Dim targetCell As Range
    Dim keyCell As Range
    Dim tempResult As String
    
    Set targetCell = ThisWorkbook.ActiveSheet.Range("C2")
    Set keyCell = ThisWorkbook.ActiveSheet.Range("C3")
    
    If targetCell.Value = "" Or keyCell.Value = "" Then
        MsgBox "원본/암호문과 비밀번호를 모두 입력해주세요!", vbExclamation, "입력 오류"
        Exit Sub
    End If
    
    ' 1단계: XOR로 암호화
    tempResult = XorEncryptDecrypt(targetCell.Value, keyCell.Value)
    
    ' 2단계: 그 결과를 Base64로 인코딩
    targetCell.Value = Base64Encode(tempResult)
    
    MsgBox "XOR + Base64 암호화가 완료되었습니다!", vbInformation, "암호화 완료"
End Sub

Sub AdvancedDecrypt_ButtonClick()
    Dim targetCell As Range
    Dim keyCell As Range
    Dim tempResult As String
    
    Set targetCell = ThisWorkbook.ActiveSheet.Range("C2")
    Set keyCell = ThisWorkbook.ActiveSheet.Range("C3")
    
    If targetCell.Value = "" Or keyCell.Value = "" Then
        MsgBox "원본/암호문과 비밀번호를 모두 입력해주세요!", vbExclamation, "입력 오류"
        Exit Sub
    End If
    
    On Error GoTo DecodeError ' Base64 디코딩 중 오류 발생 시 처리
    
    ' 1단계: Base64 디코딩
    tempResult = Base64Decode(targetCell.Value)
    
    ' 2단계: 그 결과를 XOR로 복호화
    targetCell.Value = XorEncryptDecrypt(tempResult, keyCell.Value)
    
    MsgBox "복호화가 완료되었습니다!", vbInformation, "복호화 완료"
    Exit Sub

DecodeError:
    MsgBox "올바른 암호문이 아니거나 비밀번호가 틀립니다." & vbCrLf & "Base64 디코딩에 실패했습니다.", vbCritical, "복호화 오류"
End Sub

이번에는 암호화와 복호화 버튼을 따로 만드는 게 좋겠지? 버튼 두 개를 만들어서 하나에는 `AdvancedEncrypt_ButtonClick` 매크로를, 다른 하나에는 `AdvancedDecrypt_ButtonClick` 매크로를 각각 지정해줘.

이제 C2 셀에 "나의 비밀일기", C3 셀에 "1234"를 입력하고 '암호화' 버튼을 눌러봐.
결과가 어떻게 나와? `bFJXfXtRfg==` 처럼 영문자와 `=` 기호로만 이루어진 깔끔한 텍스트가 나왔을 거야. 이게 바로 Base64 인코딩의 힘이지!
이제 '복호화' 버튼을 누르면 다시 원본 텍스트로 돌아오는 걸 확인할 수 있어.

5. 최종 보스: 미국 표준 AES 암호화 정복하기

자, 지금까지 잘 따라온 내 친구, 정말 대단해! 넌 이미 엑셀 상위 1%의 스킬을 향해 가고 있어.
이제 대망의 마지막 단계, 현존하는 가장 강력하고 표준적인 암호화 방식 중 하나인 AES(Advanced Encryption Standard)를 VBA에서 구현해 볼 거야. 이건 정부 기관, 은행, 군대에서도 사용하는, 그야말로 '찐' 전문가 레벨의 암호화 기술이야. 🛡️

이걸 마스터하면, 네 엑셀 데이터는 거의 '해독 불가능'한 철옹성이 될 거야.
물론, 그만큼 코드는 이전보다 훨씬 더 복잡하고 길어. 하지만 겁먹지 마! 원리를 이해하고 코드를 '가져다 쓰는' 법만 알면 돼. 모든 걸 네가 직접 타이핑할 필요는 없으니까!

(1) AES, 왜 이렇게 강력할까?

AES는 '대칭키' 암호화 방식이야. 암호화할 때와 복호화할 때 같은 키를 사용한다는 점에서는 XOR과 같아.
하지만 그 내부 과정은 비교도 안 될 만큼 복잡해. 입력된 데이터를 여러 라운드에 걸쳐 치환, 순열, 혼합하는 복잡한 수학적 연산을 반복해서 원본 데이터의 흔적을 완벽하게 지워버려.
현재 슈퍼컴퓨터를 동원해도 AES-256(256비트 키 사용)을 무차별 대입으로 뚫는 건 사실상 불가능에 가까워. 우주가 끝날 때까지 계산해도 안 될 정도라고 하니, 얼마나 강력한지 알겠지? 🌌

(2) Windows API의 힘을 빌리자! (CryptoAPI)

이 복잡한 AES 알고리즘을 순수 VBA 코드로 짜는 건... 음, 그냥 불가능하다고 생각하는 게 마음 편해. 너무너무 어렵고, 느리고, 보안 취약점을 만들기도 쉬워.
하지만 우리에겐 비장의 무기가 있지! 바로 Windows 운영체제 자체가 내장하고 있는 암호화 기능(CryptoAPI)을 VBA로 불러와서 사용하는 거야.

이건 마치 내가 직접 자동차를 만드는 대신, 잘 만들어진 페라리를 빌려서 운전만 하는 것과 같아. 훨씬 안전하고, 빠르고, 강력하지! 이 방법을 쓰면 우리는 복잡한 암호화 과정은 Windows에게 맡기고, 결과만 받아오면 돼.

자, 이제부터 나오는 코드는 정말 길고 복잡할 거야. 그냥 '이런 게 있구나' 하고 전체를 복사해서 모듈에 붙여넣으면 돼. 중요한 건 이 코드를 '어떻게 사용하는지' 아는 거야.

※ 주의: 아래 코드는 64비트 Office 환경을 기준으로 작성되었어. (`PtrSafe` 키워드 포함) 대부분의 최신 PC는 64비트 환경이니 그대로 사용하면 돼.

VBE에 새 모듈을 하나 추가하고, 아래의 코드를 통째로! 복사해서 붙여넣어줘.

' 선언부: Windows API 함수들을 VBA에서 사용할 수 있도록 선언
' ----------------------------------------------------------------
' 32비트/64비트 Office 호환성을 위한 조건부 컴파일
#If VBA7 Then
    Private Declare PtrSafe Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As LongPtr, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Long
    Private Declare PtrSafe Function CryptCreateHash Lib "advapi32.dll" (ByVal hProv As LongPtr, ByVal Algid As Long, ByVal hKey As LongPtr, ByVal dwFlags As Long, ByRef phHash As LongPtr) As Long
    Private Declare PtrSafe Function CryptHashData Lib "advapi32.dll" (ByVal hHash As LongPtr, ByVal pbData As String, ByVal dwDataLen As Long, ByVal dwFlags As Long) As Long
    Private Declare PtrSafe Function CryptDeriveKey Lib "advapi32.dll" (ByVal hProv As LongPtr, ByVal Algid As Long, ByVal hBaseData As LongPtr, ByVal dwFlags As Long, ByRef phKey As LongPtr) As Long
    Private Declare PtrSafe Function CryptEncrypt Lib "advapi32.dll" (ByVal hKey As LongPtr, ByVal hHash As LongPtr, ByVal Final As Long, ByVal dwFlags As Long, ByVal pbData As String, ByRef pdwDataLen As Long, ByVal dwBufLen As Long) As Long
    Private Declare PtrSafe Function CryptDecrypt Lib "advapi32.dll" (ByVal hKey As LongPtr, ByVal hHash As LongPtr, ByVal Final As Long, ByVal dwFlags As Long, ByVal pbData As String, ByRef pdwDataLen As Long) As Long
    Private Declare PtrSafe Function CryptDestroyHash Lib "advapi32.dll" (ByVal hHash As LongPtr) As Long
    Private Declare PtrSafe Function CryptDestroyKey Lib "advapi32.dll" (ByVal hKey As LongPtr) As Long
    Private Declare PtrSafe Function CryptReleaseContext Lib "advapi32.dll" (ByVal hProv As LongPtr, ByVal dwFlags As Long) As Long
#Else
    Private Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As Long, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Long
    Private Declare Function CryptCreateHash Lib "advapi32.dll" (ByVal hProv As Long, ByVal Algid As Long, ByVal hKey As Long, ByVal dwFlags As Long, ByRef phHash As Long) As Long
    Private Declare Function CryptHashData Lib "advapi32.dll" (ByVal hHash As Long, ByVal pbData As String, ByVal dwDataLen As Long, ByVal dwFlags As Long) As Long
    Private Declare Function CryptDeriveKey Lib "advapi32.dll" (ByVal hProv As Long, ByVal Algid As Long, ByVal hBaseData As Long, ByVal dwFlags As Long, ByRef phKey As Long) As Long
    Private Declare Function CryptEncrypt Lib "advapi32.dll" (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, ByVal pbData As String, ByRef pdwDataLen As Long, ByVal dwBufLen As Long) As Long
    Private Declare Function CryptDecrypt Lib "advapi32.dll" (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, ByVal pbData As String, ByRef pdwDataLen As Long) As Long
    Private Declare Function CryptDestroyHash Lib "advapi32.dll" (ByVal hHash As Long) As Long
    Private Declare Function CryptDestroyKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
    Private Declare Function CryptReleaseContext Lib "advapi32.dll" (ByVal hProv As Long, ByVal dwFlags As Long) As Long
#End If

' 상수 선언부
' ----------------------------------------------------------------
Private Const PROV_RSA_AES As Long = 24
Private Const MS_ENH_RSA_AES_PROV As String = "Microsoft Enhanced RSA and AES Cryptographic Provider"
Private Const CRYPT_VERIFYCONTEXT As Long = &HF0000000
Private Const ALG_ID_AES_256 As Long = &H6610
Private Const ALG_ID_SHA_256 As Long = &H800C
Private Const CRYPT_EXPORTABLE As Long = &H1


'//================================================================
'// 함수 이름: AES_Encrypt
'// 기능:      문자열을 AES-256 방식으로 암호화한다.
'// 인자:      strText - 암호화할 문자열
'//            strKey  - 암호화에 사용할 비밀 키
'// 반환값:    암호화된 문자열 (Base64로 인코딩됨)
'//================================================================
Public Function AES_Encrypt(ByVal strText As String, ByVal strKey As String) As String
#If VBA7 Then
    Dim hProv As LongPtr, hHash As LongPtr, hKey As LongPtr
#Else
    Dim hProv As Long, hHash As Long, hKey As Long
#End If
    Dim dataLen As Long
    Dim encryptedData As String

    On Error GoTo Cleanup
    
    ' 1. 암호화 서비스 공급자(CSP) 핸들 얻기
    If CryptAcquireContext(hProv, vbNullString, MS_ENH_RSA_AES_PROV, PROV_RSA_AES, CRYPT_VERIFYCONTEXT) = 0 Then GoTo Cleanup

    ' 2. 해시 객체 생성 (SHA-256)
    If CryptCreateHash(hProv, ALG_ID_SHA_256, 0, 0, hHash) = 0 Then GoTo Cleanup

    ' 3. 비밀번호를 해시하여 키 생성의 기반으로 사용
    If CryptHashData(hHash, strKey, Len(strKey), 0) = 0 Then GoTo Cleanup

    ' 4. 해시로부터 암호화 키(세션 키) 생성 (AES-256)
    If CryptDeriveKey(hProv, ALG_ID_AES_256, hHash, CRYPT_EXPORTABLE, hKey) = 0 Then GoTo Cleanup

    ' 5. 암호화 수행
    encryptedData = strText
    dataLen = Len(encryptedData)
    If CryptEncrypt(hKey, 0, 1, 0, encryptedData, dataLen, Len(strText) * 2) = 0 Then GoTo Cleanup
    
    ' 암호화된 데이터는 길이가 달라지므로, 실제 길이에 맞게 자름
    encryptedData = Left(encryptedData, dataLen)
    
    ' 6. 결과를 Base64로 인코딩하여 반환 (바이너리 데이터의 안전한 전송을 위해)
    AES_Encrypt = Base64Encode(encryptedData)

Cleanup:
    If hKey <> 0 Then CryptDestroyKey hKey
    If hHash <> 0 Then CryptDestroyHash hHash
    If hProv <> 0 Then CryptReleaseContext hProv, 0
End Function


'//================================================================
'// 함수 이름: AES_Decrypt
'// 기능:      AES-256으로 암호화된 문자열을 복호화한다.
'// 인자:      strEncryptedBase64 - 암호화된 Base64 문자열
'//            strKey             - 복호화에 사용할 비밀 키
'// 반환값:    복호화된 원본 문자열
'//================================================================
Public Function AES_Decrypt(ByVal strEncryptedBase64 As String, ByVal strKey As String) As String
#If VBA7 Then
    Dim hProv As LongPtr, hHash As LongPtr, hKey As LongPtr
#Else
    Dim hProv As Long, hHash As Long, hKey As Long
#End If
    Dim dataLen As Long
    Dim decryptedData As String

    On Error GoTo Cleanup
    
    ' 1. Base64로 인코딩된 암호문을 먼저 디코딩
    decryptedData = Base64Decode(strEncryptedBase64)
    dataLen = Len(decryptedData)

    ' 2. 암호화 서비스 공급자(CSP) 핸들 얻기
    If CryptAcquireContext(hProv, vbNullString, MS_ENH_RSA_AES_PROV, PROV_RSA_AES, CRYPT_VERIFYCONTEXT) = 0 Then GoTo Cleanup

    ' 3. 해시 객체 생성 (SHA-256)
    If CryptCreateHash(hProv, ALG_ID_SHA_256, 0, 0, hHash) = 0 Then GoTo Cleanup

    ' 4. 비밀번호를 해시
    If CryptHashData(hHash, strKey, Len(strKey), 0) = 0 Then GoTo Cleanup

    ' 5. 해시로부터 복호화 키(세션 키) 생성
    If CryptDeriveKey(hProv, ALG_ID_AES_256, hHash, CRYPT_EXPORTABLE, hKey) = 0 Then GoTo Cleanup

    ' 6. 복호화 수행
    If CryptDecrypt(hKey, 0, 1, 0, decryptedData, dataLen) = 0 Then GoTo Cleanup
    
    ' 복호화된 데이터는 원래 길이로 돌아오므로, 길이에 맞게 자름
    decryptedData = Left(decryptedData, dataLen)
    
    AES_Decrypt = decryptedData

Cleanup:
    If hKey <> 0 Then CryptDestroyKey hKey
    If hHash <> 0 Then CryptDestroyHash hHash
    If hProv <> 0 Then CryptReleaseContext hProv, 0
End Function

(3) 최종 병기, AES 암호화/복호화 실행하기

이제 이 강력한 함수들을 사용하는 버튼을 만들어보자. 사용법은 이전과 똑같아. 정말 간단해!

암호화/복호화 버튼을 각각 만들고, 아래의 매크로들을 새로 만들어서 연결해줘.

Sub UltimateEncrypt_ButtonClick()
    Dim targetCell As Range
    Dim keyCell As Range
    Dim result As String
    
    Set targetCell = ThisWorkbook.ActiveSheet.Range("C2")
    Set keyCell = ThisWorkbook.ActiveSheet.Range("C3")
    
    If targetCell.Value = "" Or keyCell.Value = "" Then
        MsgBox "원본 데이터와 비밀번호를 모두 입력해주세요!", vbExclamation, "입력 오류"
        Exit Sub
    End If
    
    ' AES 암호화 함수 호출
    result = AES_Encrypt(targetCell.Value, keyCell.Value)
    
    If result = "" Then
        MsgBox "암호화에 실패했습니다. 코드를 확인해주세요.", vbCritical, "암호화 오류"
    Else
        targetCell.Value = result
        MsgBox "AES-256 암호화가 완료되었습니다!", vbInformation, "암호화 완료"
    End If
End Sub

Sub UltimateDecrypt_ButtonClick()
    Dim targetCell As Range
    Dim keyCell As Range
    Dim result As String
    
    Set targetCell = ThisWorkbook.ActiveSheet.Range("C2")
    Set keyCell = ThisWorkbook.ActiveSheet.Range("C3")
    
    If targetCell.Value = "" Or keyCell.Value = "" Then
        MsgBox "암호문과 비밀번호를 모두 입력해주세요!", vbExclamation, "입력 오류"
        Exit Sub
    End If
    
    ' AES 복호화 함수 호출
    result = AES_Decrypt(targetCell.Value, keyCell.Value)
    
    If result = "" Then
        MsgBox "복호화에 실패했습니다. 암호문이 아니거나 비밀번호가 틀립니다.", vbCritical, "복호화 오류"
    Else
        targetCell.Value = result
        MsgBox "복호화가 완료되었습니다!", vbInformation, "복호화 완료"
    End If
End Sub

이제 다시 C2 셀에 "나의 비밀일기", C3 셀에 "1234"를 넣고 'AES 암호화' 버튼을 눌러봐.
이전과는 또 다른, 훨씬 더 길고 복잡해 보이는 암호문(`U2FsdGVkX1...` 같은 형태)이 생성될 거야.
이게 바로 현존 최강의 보안으로 잠긴 너의 데이터야. 이제 'AES 복호화' 버튼을 눌러서 다시 원본으로 돌아오는지 확인해봐. 비밀번호를 한 글자라도 틀리게 입력하면 절대 복호화되지 않는 것도 꼭 테스트해보고!

축하해! 넌 이제 VBA와 Windows API를 이용해서 업계 표준 암호화를 구현할 수 있는, 진짜 '능력자'가 되었어! 🥳 이 정도 스킬이면 재능넷 같은 플랫폼에서 엑셀 보안 관련 재능을 판매해도 될 수준이라고! 💪

6. 실전 활용! 자동화 & 보안 강화 꿀팁

지금까지 우리는 암호화/복호화 기능을 만드는 법을 배웠어. 하지만 매번 버튼을 누르는 건 좀 귀찮을 수 있지.
이제 진짜 프로처럼, 이 모든 과정을 자동화하고 보안을 한 단계 더 끌어올리는 실전 팁들을 알아볼 거야.

(1) 닫을 때 자동 암호화, 열 때 암호 묻기

우리가 원하는 시나리오는 이거야:
- 파일을 저장하고 닫을 때: 특정 시트의 데이터가 자동으로 AES 암호화된다.
- 파일을 열 때: 사용자에게 비밀번호를 묻는 창이 뜨고, 올바른 비밀번호를 입력해야만 암호화된 데이터가 자동으로 복호화된다.

이런 '이벤트' 기반의 자동화는 '모듈'이 아니라, 'ThisWorkbook'이라는 특별한 곳에 코드를 작성해야 해.

1. VBE 창(Alt + F11)의 왼쪽 프로젝트 탐색기에서 `ThisWorkbook`을 더블클릭해.
2. 그럼 오른쪽에 하얀 코드 창이 열릴 거야. 여기에 아래 코드를 복사해서 붙여넣자.

' 전역 변수: 이 통합 문서 전체에서 사용할 비밀번호 저장용 변수
Private g_Password As String

'================================================================
' 이벤트: 통합 문서가 열릴 때 자동으로 실행되는 코드
'================================================================
Private Sub Workbook_Open()
    Dim secretSheet As Worksheet
    Dim encryptedRange As Range
    Dim cell As Range
    
    ' 암호화/복호화할 시트와 범위를 지정
    ' *** 사용자가 직접 수정해야 할 부분! ***
    Set secretSheet = ThisWorkbook.Sheets("Sheet1") ' 시트 이름
    Set encryptedRange = secretSheet.Range("A1:C10") ' 암호화된 데이터가 있는 범위
    
    ' 사용자에게 비밀번호를 묻는 입력 상자 표시
    g_Password = InputBox("데이터를 복호화하려면 비밀번호를 입력하세요.", "비밀번호 확인")
    
    ' 사용자가 취소를 누르거나 아무것도 입력하지 않으면 그냥 종료
    If g_Password = "" Then
        MsgBox "비밀번호가 입력되지 않아 데이터를 복호화하지 않습니다.", vbExclamation
        Exit Sub
    End If
    
    ' 화면 업데이트를 잠시 멈춰서 작업 속도 향상 및 번쩍임 방지
    Application.ScreenUpdating = False
    
    ' 지정된 범위의 각 셀을 순회하면서 복호화 수행
    For Each cell In encryptedRange
        If Not IsEmpty(cell.Value) Then ' 셀이 비어있지 않은 경우에만
            cell.Value = AES_Decrypt(cell.Value, g_Password)
        End If
    Next cell
    
    ' 화면 업데이트 재개
    Application.ScreenUpdating = True
    
    ' 복호화 실패 여부 확인 (첫 번째 셀만 검사해서 간단히 확인)
    ' AES_Decrypt는 실패 시 빈 문자열을 반환하므로, 이를 이용해 체크 가능
    If encryptedRange.Cells(1, 1).Value = "" Then
         MsgBox "비밀번호가 틀렸거나 데이터가 손상되었습니다. 파일이 암호화된 상태로 유지됩니다.", vbCritical
         ' 잘못된 복호화 시도를 되돌리기 위해 파일을 닫았다 다시 열도록 유도
         ' ThisWorkbook.Close SaveChanges:=False
    Else
        MsgBox "데이터가 성공적으로 복호화되었습니다.", vbInformation
    End If
End Sub

'================================================================
' 이벤트: 통합 문서가 닫히기 직전에 자동으로 실행되는 코드
'================================================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim secretSheet As Worksheet
    Dim targetRange As Range
    Dim cell As Range
    
    ' 비밀번호가 입력된 적이 없다면 (파일 열 때 취소했거나, 그냥 열어만 뒀을 경우)
    ' 암호화 작업을 수행하지 않고 그냥 닫는다.
    If g_Password = "" Then Exit Sub
    
    ' 암호화/복호화할 시트와 범위를 지정
    ' *** 사용자가 직접 수정해야 할 부분! ***
    Set secretSheet = ThisWorkbook.Sheets("Sheet1") ' 시트 이름
    Set targetRange = secretSheet.Range("A1:C10") ' 암호화할 데이터가 있는 범위
    
    ' 화면 업데이트 중지
    Application.ScreenUpdating = False
    
    ' 지정된 범위의 각 셀을 순회하면서 암호화 수행
    For Each cell In targetRange
        If Not IsEmpty(cell.Value) Then
            cell.Value = AES_Encrypt(cell.Value, g_Password)
        End If
    Next cell
    
    ' 화면 업데이트 재개
    Application.ScreenUpdating = True
    
    ' 변경 내용을 저장하도록 설정 (이걸 안하면 암호화된 내용이 저장 안됨!)
    ThisWorkbook.Save
    
    MsgBox "데이터를 안전하게 암호화하고 파일을 닫습니다.", vbInformation
End Sub

※ 진짜 중요! 위 코드에서 `ThisWorkbook.Sheets("Sheet1")`과 `secretSheet.Range("A1:C10")` 부분은 네가 실제로 암호화하고 싶은 시트 이름과 셀 범위로 꼭! 바꿔줘야 해!

이제 이 파일을 저장하고 닫아봐. "데이터를 안전하게 암호화하고 파일을 닫습니다." 라는 메시지가 뜰 거야. 그리고 다시 파일을 열면? "비밀번호를 입력하세요" 라는 창이 뜰 거고, 올바른 비밀번호를 넣어야만 데이터가 보이게 될 거야. 완벽한 자동화 시스템 완성! 🤖

(2) VBA 코드 자체를 잠그기: 금고에 자물쇠 채우기

우리가 이렇게 열심히 암호화 코드를 짜놨는데, 만약 누군가 `Alt + F11`을 눌러서 VBE를 열고 우리 코드를 맘대로 뜯어본다면? 심지어 코드 안에 비밀번호를 직접 적어두기라도 했다면? 모든 게 허사가 되겠지. 😱

그래서 VBA 프로젝트 자체에도 암호를 걸어서, 허가된 사람 외에는 코드를 아예 볼 수 없게 막아야 해. 이건 금고 자체에 자물쇠를 한 번 더 채우는 것과 같아.

1. VBE 창(Alt + F11)을 열어.
2. 상단 메뉴에서 [도구(Tools)] > [VBAProject 속성(VBAProject Properties...)]을 클릭.
3. 'VBAProject - 프로젝트 속성' 창이 뜨면 [보호(Protection)] 탭으로 이동.
4. '프로젝트를 볼 수 없도록 잠금(Lock project for viewing)'에 체크 ✔️.
5. 아래에 암호와 암호 확인을 두 번 입력하고 [확인]을 눌러.

이제 파일을 저장하고 닫았다가 다시 열어봐. 그리고 `Alt + F11`로 VBE를 열려고 하면? 프로젝트가 잠겨있고, 암호를 입력해야만 코드를 볼 수 있게 될 거야. 이걸로 우리의 소중한 코드까지 완벽하게 지킬 수 있게 됐어!

마치며: 이제 당신은 데이터 보안관!

와, 정말 긴 여정이었어! 여기까지 포기하지 않고 따라온 너 자신에게 큰 박수를 보내줘. 짝짝짝! 👏
단순히 '시트 숨기기'나 하던 엑셀 초보에서, 이제는 XOR, Base64, 심지어 미국 표준 암호화 방식인 AES까지 자유자재로 다루는 'VBA 데이터 보안관'으로 거듭난 걸 진심으로 축하해!

오늘 우리는 단순히 코드 몇 줄을 배운 게 아니야.
내 소중한 정보를 어떻게 지켜야 하는지에 대한 '개념'을 배웠고, 엑셀의 기본 기능을 넘어 '나만의 맞춤 도구'를 만들어내는 '창의력'을 배웠으며, 복잡한 문제에 부딪혔을 때 어떻게 해결해 나가는지에 대한 '문제 해결 능력'을 배웠어.

이제 네 앞에 놓인 엑셀 파일은 더 이상 단순한 스프레드시트가 아닐 거야.
너의 아이디어와 코드를 통해 무한한 가능성을 가진 캔버스가 될 수 있지.
오늘 배운 내용을 바탕으로 더 멋진 기능들을 추가해봐.
특정 사용자만 다른 비밀번호로 다른 시트를 볼 수 있게 하거나, 암호화 로그를 남기는 기능을 추가하는 식으로 말이야.

기억해, 코딩은 어려운 학문이 아니라 즐거운 '놀이'이자 강력한 '무기'가 될 수 있다는 걸.
오늘의 경험이 너의 엑셀 라이프, 나아가서는 너의 커리어에 반짝이는 터닝포인트가 되기를 진심으로 응원할게.
그럼, 또 다른 재미있는 주제로 다시 만날 날을 기대하며! 안녕! 👋