รหัส VBA เพื่อปลดล็อกแผ่นงาน Excel ที่ล็อก: 4 ขั้นตอน

2025 ผู้เขียน: John Day | [email protected]. แก้ไขล่าสุด: 2025-01-23 15:12

หากคุณเคยลืมรหัสผ่านสำหรับแผ่นงาน Excel แผ่นใดแผ่นหนึ่งของคุณ คุณจะทราบดีว่ามันน่าหงุดหงิดเพียงใด รหัสที่ใช้ในคำแนะนำนี้เป็นหนึ่งในรหัสที่ง่ายที่สุดที่ฉันพบ มันจะสร้างรหัสที่ใช้งานได้ซึ่งจะปลดล็อคแผ่นงานที่ได้รับการป้องกันของคุณ ฉันไม่สามารถให้เครดิตกับโค้ดได้เนื่องจากฉันเพิ่งพบมันในช่วงเวลาที่ต้องการ (และไม่พบไซต์อีกต่อไปแล้ว)… ดังนั้นฉันจะไม่ช่วยอะไรมากถ้ามันไม่ได้ผลสำหรับคุณ แต่ฉัน ประสบความสำเร็จกับมันและคิดว่าฉันจะแบ่งปัน

ขั้นตอนที่ 1: เปิด VBA

เปิดแผ่นงานที่คุณลืมรหัสผ่าน ใช้ Alt+F11 เพื่อเข้าสู่โปรแกรมแก้ไขมาโคร เมื่ออยู่ใน VBA ให้ดับเบิลคลิกที่แผ่นงาน คุณต้องปลดล็อกจากรายการเมนูทางด้านซ้าย ซึ่งจะเป็นการเปิดหน้าประกาศทั่วไปสำหรับแผ่นงาน

ขั้นตอนที่ 2: ตัดและวางตัวแบ่งรหัส

ใส่รหัสด้านล่างในหน้าประกาศทั่วไปที่คุณเปิดไว้ คุณไม่ควรต้องเปลี่ยนแปลงอะไร ชื่อแผ่นงาน ฯลฯ … เพียงแค่ตัดและวาง _ Sub PasswordBreaker() 'แบ่งการป้องกันด้วยรหัสผ่านของเวิร์กชีต Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 ถึง 66: สำหรับ k = 65 ถึง 66 สำหรับ l = 65 ถึง 66: สำหรับ m = 65 ถึง 66: สำหรับ i1 = 65 ถึง 66 สำหรับ i2 = 65 ถึง 66: สำหรับ i3 = 65 ถึง 66: สำหรับ i4 = 65 ถึง 66 สำหรับ i5 = 65 ถึง 66: สำหรับ i6 = 65 ถึง 66: สำหรับ n = 32 ถึง 126 ActiveSheet. Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) หาก ActiveSheet. ProtectContents = False จากนั้น MsgBox "รหัสผ่านที่ใช้งานได้หนึ่งรหัสคือ" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5)) & Chr(i6) & Chr(n) Exit Sub End ถ้าถัดไป: ถัดไป: ถัดไป: ถัดไป: ถัดไป: ถัดไป ถัดไป: ถัดไป: ถัดไป: ถัดไป: ถัดไป: Next End Sub _

ขั้นตอนที่ 3: เรียกใช้ Macro

เมื่อเพิ่มโค้ดแล้ว ให้เรียกใช้ Macro โดยเลือก Run จากแถบแท็บเมนูที่ด้านบนของหน้าจอตัวแก้ไข VBA หรือกด F5 อย่างง่าย

ขั้นตอนที่ 4: ใช้รหัสที่สร้าง

มาโครจะนำคุณกลับไปยังเวิร์กชีตที่คุณต้องการยกเลิกการป้องกัน กล่องรูปแบบการแจ้งเตือนจะปรากฏขึ้นพร้อมรหัสที่ใช้งานได้ ในแท็บเมนูตรวจสอบ ให้คลิก Unprotect sheet ป้อนรหัสที่สร้างเป็นรหัสผ่านและทำเสร็จแล้ว แผ่นงานของคุณควรจะปลดล็อค! คุณควรใช้พลังนี้อย่างชาญฉลาดและมีความรับผิดชอบเพื่อปลดล็อคแผ่นงานของคุณเองเท่านั้น