Hướng dẫn từng bước để xây dựng chức năng mã hóa trong Excel

Trong khi chúng ta làm việc trong Excel, đôi khi có thể muốn mã hóa dữ liệu vì mục đích bảo mật. Chúng ta có thể dễ dàng tạo chức năng mã hóa để mã hóa dữ liệu trong Excel. Ở đây, chúng tôi sẽ trình bày quy trình từng bước để tạo chức năng mã hóa trong Excel.

Tạo hàm mã hóa trong Excel:Quy trình từng bước

Trong phần này, chúng ta sẽ thảo luận về quy trình từng bước để tạo hàm mã hóa trong Excel. Một đoạn mã VBA đơn giản sẽ thực hiện công việc. Hãy làm theo các bước dưới đây.

BƯỚC 1:Chuẩn bị tập dữ liệu cho chức năng mã hóa

• Trước tiên, hãy tạo tập dữ liệu trong bảng tính của bạn. Để minh họa, chúng tôi đã đưa vào tập dữ liệu có Nhân viên bán hàng , Tiền lương , Tiểu bang cho một công ty. Chúng tôi sẽ mã hóa dữ liệu trong Mức lương cột.

BƯỚC 2:Mở cửa sổ VBA trong Excel

• Tiếp theo, đi tới Nhà phát triển và chọn Visual Basic để mở VBA cửa sổ.
• Ngoài ra, bạn có thể nhấn Alt + F11 để mở cửa sổ.

BƯỚC 3:Nhập mã vào mô-đun VBA cho chức năng mã hóa

• Sau đó, chọn Chèn > Mô-đun từ VBA cửa sổ.

• Liên tiếp, một Mô-đun cửa sổ sẽ hiển thị.
• Viết đoạn mã sau vào đó.

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

BƯỚC 4:Chạy mã để mã hóa dữ liệu

• Tiếp theo, nhấn nút Chạy nút từ VBA  cửa sổ.

• Ngay lập tức, một Macro hộp thoại sẽ xuất hiện. Nhấp vào Chạy nút.

• Sau đó, Mã hóa Excel hộp thoại sẽ xuất hiện.
• Chọn phạm vi ô mong muốn có dữ liệu bạn muốn mã hóa. Nhấn OK .

• Một lần nữa, một hộp thoại sẽ xuất hiện.
• Viết mật khẩu vào đó. Nhấn OK .

• Liên tiếp, một hộp thoại khác sẽ xuất hiện.
• Viết 1 ở đó để mã hóa dữ liệu. Ngoài ra, nhấn OK .

Đầu ra cuối cùng

• Cuối cùng, quay lại bảng tính và xem dữ liệu của phạm vi đã chọn đã được mã hóa.

• Hơn nữa, để giải mã dữ liệu, hãy chạy lại mã và làm theo các bước đã đưa ra trước đó.
• Chỉ cần viết 2 trong hộp thoại cuối cùng thay vì 1 .
• Ngoài ra, đừng quên nhập cùng một mật khẩu để giải mã giống như mật khẩu bạn đã cung cấp để mã hóa.

• Và bạn sẽ thấy dữ liệu được mã hóa lại được giải mã.

Đọc thêm: Cách mã hóa nội dung ô trong Excel

Cách mã hóa file Excel bằng mật khẩu

Trong phần này, chúng ta sẽ thảo luận về quy trình từng bước để bảo vệ bảng Excel bằng mật khẩu để mở tệp.

• Trước tiên, hãy đi tới Tệp tab từ Excel ruy băng.

• Sau đó, chọn Lưu bản sao tùy chọn từ khung.

• Sau đó, chọn Tùy chọn khác từ cửa sổ xuất hiện.

• Tiếp theo, chọn Công cụ > Tùy chọn chung từ cửa sổ tiếp theo.

• Tiếp theo, nhập mật khẩu vào phần Mật khẩu để mở phần Tùy chọn chung hộp thoại. Ngoài ra, nhấn OK .

• Sau đó, viết lại mật khẩu vào phần Xác nhận mật khẩu hộp thoại. Nhấn OK .

• Cuối cùng, lưu tệp.
• Từ lần sau, bạn phải cung cấp mật khẩu để mở Excel tập tin.

Đọc thêm: Cách giải mã file Excel không cần mật khẩu

Tải xuống sổ tay thực hành

Bạn có thể tải sách bài tập thực hành xuống từ đây.

Kết luận

Trong bài viết này, chúng tôi đã trình bày các quy trình từng bước dễ dàng để mã hóa dữ liệu trong Excel. Nếu bạn có bất kỳ thắc mắc hoặc đề xuất nào, vui lòng để lại nhận xét.

Bài viết liên quan

• Cách xóa mã hóa khỏi Excel
• [Đã giải quyết!]:Không thể mở tệp Excel được mã hóa

<< Quay lại Mã hóa trong Excel |  Bảo vệ Excel | Học Excel