Unprotect sheet trên Excel 2019

[TrungLeNB]

Chào các bác,
Mình có 1 file bị quên mất password khoá sheet, làm cách nào để unlock được. Mình dùng Excel 2019.
Đã thử chuyển qua .xls chạy VBA nhưng ko đc, thử chuyển qua file .zip thì mở notepad nó kí tự bị mã hoá ko xem được để xoá dòng protect.
File ở trên máy cơ quan nên ko upload đc.
Xin cảm ơn.

 

[befaint]

Mấy cái này 7z + xyz lèo cái xong.

 

[TrungLeNB]

Mấy cái này 7z + xyz lèo cái xong.

Là như nào b, cho mình xin hướng dẫn.

 

[TrungLeNB]

.........................

 

[Yumi_Nagata]

Chào các bác,
Mình có 1 file bị quên mất password khoá sheet, làm cách nào để unlock được. Mình dùng Excel 2019.

Sub PasswordBreaker()
If ActiveSheet.ProtectContents = False Then
MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
Else
If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, do you want to unprotect it?", _
vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub
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)
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
End If
End Sub

Bạn thử xem có được không

 

[TrungLeNB]

Bạn thử xem có được không

Ko được bác ơi, code này chỉ chạy được với Excel 2010 trở xuống thôi

 

[Maika8008]

Mấy cái này 7z + xyz lèo cái xong.

File bị mã hóa rồi. Thớt cũng đã thử rồi mà không tìm được dòng có chữ Protect kìa bạn!

Mà tôi nghi file này không phải của thớt quá!

 

[befaint]

File bị mã hóa rồi. Thớt cũng đã thử rồi mà không tìm được dòng có chữ Protect kìa bạn!

Mà tôi nghi file này không phải của thớt quá!

Cái này đơn giản lắm anh.
Thớt nói kệ thớt, chỉ nói suông thôi mà.
Vấn đề là nội quy diễn đàn không cho phép.

 

[TrungLeNB]

Cái này đơn giản lắm anh.
Thớt nói kệ thớt, chỉ nói suông thôi mà.
Vấn đề là nội quy diễn đàn không cho phép.

Cảm ơn m.n
Mình k biết diễn đàn k cho phép hỏi cái này. Bạn bảo mình k phải chủ file thì mình cũng k có cách nào thanh minh cả.

 

[befaint]

Bạn bảo mình k phải chủ file

Cờ a ka gì mà k.
Có ai viết, có ai nói chủ với khách gì đâu.
Nói suông, tức là chỉ nói vậy thôi, không có cái file nào gửi lên. Nói không có dẫn chứng thì gọi là nói suông.

 

[TrungLeNB]

Cờ a ka gì mà k.
Có ai viết, có ai nói chủ với khách gì đâu.
Nói suông, tức là chỉ nói vậy thôi, không có cái file nào gửi lên. Nói không có dẫn chứng thì gọi là nói suông.

Thì mình cũng bảo mình k chứng minh đc mà bạn

Mình làm NH nên ko bị chặn hệ thống k upfile lên đc, mà file chứa tài liệu nội bộ cũng k đưa đc.

K unprotect đc thì mình cũng phải làm file khác thôi chứ biết sao.

 

[babyheomoi]

Thì mình cũng bảo mình k chứng minh đc mà bạn

Mình làm NH nên ko bị chặn hệ thống k upfile lên đc, mà file chứa tài liệu nội bộ cũng k đưa đc.

K unprotect đc thì mình cũng phải làm file khác thôi chứ biết sao.

Muốn đưa thì không thiếu cách đâu bạn, 1 banker said @@

 

[TrungLeNB]

Nhưng mình cũng có muốn đưa lên đâu b @@

Mà file nào mình thử .zip lại nó cũng bị như dưới hết.

“É @ ÿÿÿÿÿÿÿÿ ” … ‰Ü @ d ˜$ Š † % €• & åÿÿÿÿ , ‘ % €€ & , ’ ¦® † @ +¢‰"²Ó æÇ#š6}á"¸Ú^ Êè„5ŸC4víûÁ/é ëµ!Hµ[ññoƒã²áËÀâ/³7‹;ç×Ô‡ )„¬
pã£÷ø2ì®X¨íc S H A - 5 1 2 —B Ý Ü0ffffffæ?ffffffæ? è? è?333333Ó?333333Ó?‚