คำแนะนำทีละขั้นตอนในการสร้างฟังก์ชันการเข้ารหัสใน Excel

ขณะที่เราทำงานใน Excel บางครั้งอาจต้องการเข้ารหัสข้อมูลเพื่อความปลอดภัย เราสามารถสร้างฟังก์ชันเข้ารหัสเพื่อเข้ารหัสข้อมูลใน Excel ได้อย่างง่ายดาย ที่นี่ เราจะแสดงขั้นตอนทีละขั้นตอนเพื่อสร้างฟังก์ชันการเข้ารหัสใน Excel

สร้างฟังก์ชันการเข้ารหัสใน Excel:ขั้นตอนทีละขั้นตอน

ในส่วนนี้ เราจะพูดถึงขั้นตอนการสร้างฟังก์ชันการเข้ารหัสใน Excel โค้ด VBA ง่ายๆ ก็ใช้ได้ ทำตามขั้นตอนที่ระบุด้านล่าง

ขั้นตอนที่ 1:เตรียมชุดข้อมูลสำหรับฟังก์ชันการเข้ารหัส

• ขั้นแรก สร้างชุดข้อมูลในแผ่นงานของคุณ เพื่อการสาธิต เราได้รวมชุดข้อมูลที่มีพนักงานขายไว้ด้วย , เงินเดือน , สถานะ สำหรับบริษัท เราจะเข้ารหัสข้อมูลใน เงินเดือน คอลัมน์

ขั้นตอนที่ 2:เปิดหน้าต่าง VBA ใน Excel

• ถัดไป ไปที่ นักพัฒนาซอฟต์แวร์ และเลือก Visual Basic เพื่อเปิด VBA หน้าต่าง.
• หรืออีกทางหนึ่ง คุณสามารถกด Alt + F11 เพื่อเปิดหน้าต่าง

ขั้นตอนที่ 3:พิมพ์รหัสในโมดูล VBA สำหรับฟังก์ชันการเข้ารหัส

• หลังจากนั้น เลือก แทรก > โมดูล จาก 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

ขั้นตอนที่ 4:เรียกใช้โค้ดสำหรับการเข้ารหัสข้อมูล

• นอกจากนี้ ให้กด เรียกใช้ ปุ่มจาก VBA หน้าต่าง.

• มาโคร ทันที กล่องโต้ตอบจะปรากฏขึ้น คลิกที่ เรียกใช้ ปุ่ม.

• หลังจากนั้น การเข้ารหัส Excel กล่องโต้ตอบจะปรากฏขึ้น
• เลือกช่วงของเซลล์ที่ต้องการซึ่งมีข้อมูลที่คุณต้องการเข้ารหัส กด ตกลง .

• อีกครั้ง กล่องโต้ตอบจะปรากฏขึ้น
• เขียนรหัสผ่านที่นั่น กด ตกลง .

• กล่องโต้ตอบอื่นจะปรากฏขึ้นติดต่อกัน
• เขียน 1 ที่นั่นเพื่อเข้ารหัสข้อมูล นอกจากนี้ ให้กด ตกลง .

เอาท์พุตสุดท้าย

• สุดท้าย กลับมาที่แผ่นงานและดูว่าข้อมูลในช่วงที่เลือกได้รับการเข้ารหัสแล้ว

• นอกจากนี้ สำหรับการถอดรหัสข้อมูล ให้รันโค้ดอีกครั้งและทำตามขั้นตอนที่ให้ไว้ก่อนหน้านี้
• เพียงเขียน 2 ในกล่องโต้ตอบสุดท้ายแทนที่จะเป็น 1 .
• นอกจากนี้ อย่าลืมป้อนรหัสผ่านเดียวกันสำหรับการถอดรหัสเช่นเดียวกับที่คุณให้ไว้สำหรับการเข้ารหัส

• และคุณจะเห็นข้อมูลที่เข้ารหัสถูกถอดรหัสอีกครั้ง

อ่านเพิ่มเติม: วิธีการเข้ารหัสเนื้อหาของเซลล์ใน Excel

วิธีการเข้ารหัสไฟล์ Excel ด้วยรหัสผ่าน

ในส่วนนี้ เราจะพูดถึงขั้นตอนขั้นตอนในการป้องกันแผ่นงาน Excel ด้วยรหัสผ่านเพื่อเปิดไฟล์

• ขั้นแรก ไปที่ ไฟล์ แท็บจาก Excel ริบบิ้น

• จากนั้น เลือก บันทึกสำเนา ตัวเลือกจากบานหน้าต่าง

• หลังจากนั้น เลือก ตัวเลือกเพิ่มเติม จากหน้าต่างที่ปรากฏ

• นอกจากนี้ เลือก เครื่องมือ > ตัวเลือกทั่วไป จากหน้าต่างถัดไป

• ถัดไป ให้ป้อนรหัสผ่านใน รหัสผ่านเพื่อเปิด ส่วนของ ตัวเลือกทั่วไป กล่องโต้ตอบ นอกจากนี้ ให้กด ตกลง .

• หลังจากนั้น ให้เขียนรหัสผ่านใหม่ในส่วน ยืนยันรหัสผ่าน กล่องโต้ตอบ กด ตกลง .

• สุดท้าย บันทึกไฟล์
• ตั้งแต่ครั้งต่อไป คุณจะต้องให้รหัสผ่านเพื่อเปิด Excel ไฟล์

อ่านเพิ่มเติม: วิธีถอดรหัสไฟล์ Excel โดยไม่ต้องใช้รหัสผ่าน

ดาวน์โหลดหนังสือแบบฝึกหัด

คุณสามารถดาวน์โหลดสมุดแบบฝึกหัดได้จากที่นี่

บทสรุป

ในบทความนี้ เราได้แสดงขั้นตอนง่ายๆ ในการเข้ารหัสข้อมูลใน Excel หากคุณมีข้อสงสัยหรือข้อเสนอแนะโปรดแสดงความคิดเห็น

บทความที่เกี่ยวข้อง

• วิธีลบการเข้ารหัสออกจาก Excel
• [แก้ไขแล้ว!]:ไม่สามารถเปิดไฟล์ Excel ที่เข้ารหัสได้

<แข็งแกร่ง><< กลับไปที่การเข้ารหัสใน Excel |  ป้องกัน Excel | เรียนรู้ Excel รับแบบฝึกหัด Excel ขั้นสูงพร้อมโซลูชันฟรี!