พอดีเจอบทความ ช่วยปลดล๊อกเลยเอามาฝากเพือนๆ ที่เจอปัญหานี้นะครับ
THis document will tel you how to unprotect an excel spread sheet without having the password
In case of a password protect worksheet you are unable to Edit the data on the Excel Sheet. If you do not Remember the Password or do not know the password to unprotect the sheet just follow the below simple steps.
(ไปที่แท็บเครื่องมือ Review แล้ว เลือก Show Ink)

Press ALT + F11 or click on View Code in Developers Tabs
(จากนั้นกดปุ่ม ALT+F11 เพื่อเข้าหน้า view code ครับ)

In the Above White Space Enter the below Code. Do not change the code just copy paste:
Sub PasswordBreaker()
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim 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 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 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)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & 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 If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim 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 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 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)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & 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 If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Now Click on the Run Button or press F5:
(double click sheet ที่เราต้องการจะปลด password แล้ว copy โค้ดทั้งหมดตั้งแต่ sub PasswordBreaker() จนถึง End Sub ไปวางไว้จากนั้นกด F5 ให้โค้ดเราทำงานครับ ทำทีละ sheet จนครบตามที่เราต้องการครับ)

And there you go the sheet is unprotected for you now. Also you would be getting a message in the pop up window.
This Message is contains the password which can be used to unprotect the other sheets in the same workbook.

----------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------
ขอบคุณมากครับ หาอยู่ตั้งนานนนนนน
ReplyDeleteขอบคุณครับ
ReplyDeleteขอบคุณมากเลยค่ะ กำลังต้องการมากๆ
ReplyDeleteขอบคุณมากค่ะ เป็นประโยชน์มากๆขอให้มีแต่ความเจริญรุ่งเรืองค่ะ
ReplyDeleteขอบคุณครับ ได้จริงๆด้วย
ReplyDeleteขอบคุณครับ
ReplyDeleteThank You Very much
ReplyDeleteทำไม่ได้เลยค่ะช่วยหน่อย
ReplyDeleteทำได้แล้วขอบคุณมากๆค่ะ
ReplyDeleteຂໍຖາມແດ່ ຟາຍນ້ອງຖຶກບ໋ອກ 2 sheet ແຕ່ປົດບ໋ອກໄດ້ແຕ່ sheet ດຽວ
ReplyDeleteຊ່ວຍແນະນຳແດ່ຈ່າ
ຂອບໃຈຫຼາຍໆ
ช่วยหน่อยทำแล้วค้างเลยจร้า
ReplyDelete