วิธีปลดล็อกไฟล์ Excel ที่ป้องกันด้วยรหัสผ่าน – 2 วิธีง่ายๆ

เราจะใช้แผ่น Excel นี้สาธิตการถอดรหัส มีภาพรวมยอดขาย

หากพยายามแก้ไขในแผ่น Excel นี้ จะแสดง กล่องเตือน (Warning Box)

เพื่อตรวจสอบว่าแผ่น Excel ถูกป้องกัน ไปที่แท็บ Review จาก Ribbon ในกลุ่ม Protect จะเห็นว่าแผ่นถูกป้องกัน

หาก คลิก ที่ Unprotect Sheet จะเห็นกล่อง Unprotect Sheet ต้องใส่รหัสผ่านเพื่อถอดรหัสไฟล์ Excel เราจะแสดงวิธี ถอดรหัสไฟล์ Excel โดยไม่ต้องใช้รหัสผ่าน ใน 2 วิธี

วิธีที่ 1 – ใช้นามสกุล ZIP เพื่อถอดรหัสไฟล์ Excel โดยไม่ต้องใช้รหัสผ่าน

ใช้แผ่นที่ป้องกันเพื่อสาธิตวิธีนี้

ขั้นตอน:

• ในภาพต่อไปนี้ สามารถเห็นได้ว่านามสกุลไฟล์ไม่แสดง

• ไปที่แท็บ View
• ติ๊ก File name extensions

• เปลี่ยนนามสกุลไฟล์เป็น zip
• กด Enter

• กล่องเตือนจะขึ้นขอยืนยันการเปลี่ยนแปลง เลือก Yes

• จะเห็นนามสกุลไฟล์ใหม่

• เลือกไฟล์
• คลิกขวา
• เลือก Extract to Decrypting Excel File

• โฟลเดอร์ใหม่จะถูกสร้าง เปิดโฟลเดอร์นั้น

• เปิดโฟลเดอร์ชื่อ xl

• เปิดโฟลเดอร์ชื่อ worksheets

• จะเห็นแผ่นงานทั้งหมดของไฟล์ Excel นั้น เราต้องการลบการป้องกันจาก sheet3

• คลิกขวาที่ sheet3
• เลือก Open with
• เลือก WordPad

• ในเอกสารนั้น หาส่วนที่ไฮไลท์ในภาพด้านล่าง เริ่มต้นด้วย <sheetProtection
• ลบส่วนนั้น
• กด Ctrl + S บันทึกไฟล์

• เลือกโฟลเดอร์และไฟล์ทั้งหมด
• คลิกขวา เลือก Send to
• เลือก Compressed (zipped) folder

• ตั้งชื่อไฟล์ตามต้องการ

• จะเห็นว่าได้ไฟล์ zipped

• เปลี่ยนนามสกุลไฟล์เป็น xlsm
• กด Enter

• กล่องเตือนจะขึ้น เลือก Yes

• จะได้ไฟล์ Excel ที่ต้องการ
• เปิดไฟล์เพื่อตรวจสอบว่าไฟล์ถูกถอดรหัสแล้ว

• เห็นว่าคุณถอดรหัสไฟล์ Excel โดยไม่ต้องใช้รหัสผ่าน

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

ใช้แผ่นเดียวกันสาธิตวิธีนี้

ขั้นตอน:

• ไปแท็บ Developer
• เลือก Visual Basic

• หน้าต่าง Visual Basic editor จะเปิด เลือกแท็บ Insert
• เลือก Module

• Module จะเปิด วางโค้ดต่อไปนี้ใน Module:

Sub Decrypt_File()
Dim p As Integer, q As Integer, r As Integer
Dim a As Integer, b As Integer, c As Integer
Dim p1 As Integer, p2 As Integer, p3 As Integer
Dim p4 As Integer, p5 As Integer, p6 As Integer
On Error Resume Next
For p = 65 To 66: For q = 65 To 66: For r = 65 To 66
For a = 65 To 66: For b = 65 To 66: For p1 = 65 To 66
For p2 = 65 To 66: For p3 = 65 To 66: For p4 = 65 To 66
For p5 = 65 To 66: For p6 = 65 To 66: For c = 32 To 126
ActiveSheet.Unprotect Chr(p) & Chr(q) & Chr(r) & Chr(a) & Chr(b) _
& Chr(p1) & Chr(p2) & Chr(p3) & Chr(p4) & Chr(p5) & Chr(p6) & Chr(c)
If ActiveSheet.ProtectContents = False Then
MsgBox "Done!"
Exit Sub
End If
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next:
End Sub

โค้ดทำงานอย่างไร?

• ใช้ 12 For Next loop วนลูปผ่านตัวอักษร
• ใช้เมธอด ActiveSheet.Unprotect ลบการป้องกันจากแผ่นงานที่ใช้งานอยู่
• ฟังก์ชัน Chr ได้ตัวอักษรเทียบเท่ารหัส ASCII
• คุณสมบัติ ActiveSheet.ProtectContents ตรวจสอบว่าแผ่นงานยังป้องกันอยู่หรือไม่ หากเป็น False กล่องข้อความจะขึ้นแสดง “Done!”

• Save โค้ด และกลับไปแผ่นงาน

• ไปแท็บ Developer อีกครั้ง
• เลือก Macros

• กล่อง Macro จะขึ้น เลือก Decrypt_File เป็น Macro name
• เลือก Run

• กล่องข้อความจะขึ้น เลือก OK

• การป้องกันจะถูกลบจากแผ่น Excel ตรวจสอบโดยลองแก้ไขแผ่น
• เลือกช่วงที่ต้องการเพิ่ม Fill Color
• ไปแท็บ Home
• คลิก เมนูดรอปดาวน์ Fill Color

• เลือกสีที่ต้องการ

• เห็นว่า Fill Color ถูกเพิ่มในช่วงที่เลือก หมายถึงคุณถอดรหัสไฟล์โดยไม่ต้องใช้รหัสผ่าน

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

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

ขั้นตอน:

• จะเห็นกล่องโต้ตอบเมื่อเปิดไฟล์
• ใส่รหัสผ่านในกล่อง
• กด OK

• ไฟล์ Excel จะถูกถอดรหัส
• ไปแท็บ File

• เลือก Info

• คลิก เมนูดรอปดาวน์ Protect Workbook
• เลือก Encrypt with Password

• กล่องโต้ตอบจะขึ้น ล้างรหัสผ่านที่นี่
• เลือก OK

• คุณลบการป้องกันจากไฟล์ Excel แล้ว

สิ่งที่ควรจำ

• สำหรับ วิธีที่ 2 หากต้องการลบการป้องกันจากหลายแผ่น จะต้องรันโค้ดจากแต่ละแผ่นแยกกัน และโค้ดอาจใช้เวลานาน

ส่วนฝึกปฏิบัติ

เราเตรียมแผ่นฝึกปฏิบัติสำหรับคุณฝึกวิธีถอดรหัสไฟล์ Excel ด้วยรหัสผ่าน

ดาวน์โหลดสมุดงานฝึกปฏิบัติ

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

• [Solved!]: Cannot Open Encrypted Excel File
• วิธิลบการเข้ารหัสจาก Excel

<< กลับไป Encryption in Excel | Excel Protect | Learn Excel

รับแบบฝึกหัด Excel ขั้นสูงพร้อมเฉลยฟรี!