Excel에서 암호화 기능 만드는 방법: VBA 코드부터 파일 비밀번호 설정까지 완벽 가이드

Excel로 업무를 진행하다 보면 보안상의 이유로 데이터를 암호화해야 할 때가 있습니다. Excel에서는 간단한 VBA 코드만으로 직접 암호화 함수를 만들어 데이터를 안전하게 보호할 수 있습니다. 이번 글에서는 Excel에서 암호화 기능을 만들고 활용하는 방법을 단계별로 자세히 소개합니다.

Excel에서 암호화 기능 만들기: 단계별 방법

이 섹션에서는 VBA 코드를 활용해 Excel에 암호화 기능을 구축하는 절차를 하나씩 살펴보겠습니다. 생각보다 어렵지 않으니 아래 순서대로 따라 해 보세요.

1단계: 암호화할 데이터 준비하기

먼저 워크시트에 데이터를 입력합니다. 예제에서는 한 회사의 영업사원(Salesman), 급여(Salary), 지역(State) 정보로 구성된 데이터셋을 사용했으며, 급여 열의 데이터를 암호화해 보겠습니다.

Excel에서 암호화 기능 만드는 방법: VBA 코드부터 파일 비밀번호 설정까지 완벽 가이드

2단계: VBA 창 열기

리본 메뉴에서 개발 도구(Developer) 탭을 클릭한 후 Visual Basic을 선택하면 VBA 편집기가 열립니다.
또는 키보드에서 Alt + F11을 눌러도 동일하게 VBA 창을 열 수 있습니다.

Excel에서 암호화 기능 만드는 방법: VBA 코드부터 파일 비밀번호 설정까지 완벽 가이드

3단계: VBA 모듈에 코드 입력하기

VBA 창 상단 메뉴에서 삽입(Insert) > 모듈(Module)을 선택합니다.

Excel에서 암호화 기능 만드는 방법: VBA 코드부터 파일 비밀번호 설정까지 완벽 가이드

그러면 새로운 모듈 창이 나타납니다.
아래의 코드를 그대로 복사해서 붙여 넣습니다.

Private Function iStrTPsd(ByVal Txt As String) As Long
Dim xVl As Long
Dim xCha As Long
Dim xSf1 As Long
Dim xSf2 As Long
Dim J As Integer
Dim xLn As Integer
xLn = Len(Txt)
For J = 1 To xLn
xCha = Asc(Mid$(Txt, J, 1))
xVl = xVl Xor (xCha * 2 ^ xSf1)
xVl = xVl Xor (xCha * 2 ^ xSf2)
xSf1 = (xSf1 + 7) Mod 19
xSf2 = (xSf2 + 13) Mod 23
Next J
iStrTPsd = xVl
End Function
Private Function iEncryption(ByVal Pd As String, ByVal InTx As String, Optional ByVal Encc As Boolean = True) As String
Dim xOfset As Long
Dim xLn As Integer
Dim J As Integer
Dim xCha As Integer
Dim xOutTx As String
xOfset = iStrTPsd(Pd)
Rnd -1
Randomize xOffset
xLn = Len(InTx)
For J = 1 To xLn
xCha = Asc(Mid$(InTx, J, 1))
If xCha >= 32 And xCha <= 126 Then
xCha = xCha - 32
xOfset = Int((96) * Rnd)
If Encc Then
xCha = ((xCha + xOfset) Mod 95)
Else
xCha = ((xCha - xOfset) Mod 95)
If xCha < 0 Then xCha = xCha + 95
End If
xCha = xCha + 32
xOutTx = xOutTx & Chr$(xCha)
End If
Next J
iEncryption = xOutTx
End Function
Sub xEncryption_Range()
Dim xxRg As Range
Dim xxPsd As String
Dim xxTxt As String
Dim xxEnc As Boolean
Dim xxRet As Variant
Dim xxCell As Range
On Error Resume Next
xxTxt = ActiveWindow.RangeSelection.Address
Set xxRg = Application.InputBox("You need to select range:", "Excel Encryption", xxTxt, , , , , 8)
Set xxRg = Application.Intersect(xxRg, xxRg.Worksheet.UsedRange)
If xxRg Is Nothing Then Exit Sub
xxPsd = InputBox("Type your password:", "Excel Encryption")
If xxPsd = "" Then
MsgBox "Your password can't be empty", , "Excel Encryption"
Exit Sub
End If
xxRet = Application.InputBox("Insert 1 to encrypt cells or Insert 2 to decrypt cells", "Excel Encryption", , , , , , 1)
If TypeName(xxRet) = "xBoolean" Then Exit Sub
If xxRet > 0 Then
xxEnc = (xxRet Mod 2 = 1)
For Each xxCell In xxRg
If xxCell.Value <> "" Then
xxCell.Value = iEncryption(xxPsd, xxCell.Value, xxEnc)
End If
Next
End If
End Sub

Excel에서 암호화 기능 만드는 방법: VBA 코드부터 파일 비밀번호 설정까지 완벽 가이드