Excel에서 암호화 기능을 구축하기 위한 단계별 가이드

Excel에서 작업하는 동안 보안을 위해 데이터를 암호화해야 하는 경우가 있습니다. Excel에서 데이터를 암호화하는 암호화 기능을 쉽게 만들 수 있습니다. 여기에서는 Excel에서 암호화 기능을 생성하는 단계별 절차를 보여 드리겠습니다.

Excel에서 암호화 기능 만들기:단계별 절차

이 섹션에서는 Excel에서 암호화 기능을 생성하는 단계별 절차를 설명합니다. 간단한 VBA 코드가 작업을 수행합니다. 아래 단계를 따르세요.

1단계:암호화 기능을 위한 데이터세트 준비

먼저 워크시트에 데이터세트를 만듭니다. 시연을 위해 Salesman이 포함된 데이터세트를 포함했습니다. , 급여 , 상태 회사를 위해. 급여 의 데이터를 암호화합니다. 열.

Excel에서 암호화 기능을 구축하기 위한 단계별 가이드

2단계:Excel에서 VBA 창 열기

다음으로 개발자로 이동합니다. 탭을 클릭하고 Visual Basic 을 선택하세요. VBA 열기 창.
또는 Alt를 누를 수도 있습니다. + F11 창을 열려면.

Excel에서 암호화 기능을 구축하기 위한 단계별 가이드

3단계:암호화 기능을 위해 VBA 모듈에 코드 입력

그런 다음 삽입 을 선택하세요.> 모듈 VBA 에서 창.

Excel에서 암호화 기능을 구축하기 위한 단계별 가이드

연속적으로 모듈 창이 나타납니다.
여기에 다음 코드를 작성하세요.

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에서 암호화 기능을 구축하기 위한 단계별 가이드