Cơ chế tạo mật khẩu protect sheet của file (đính kèm)

[cdt7688]

Chào tất cả mọi người!
Hôm nay mình có 1 file với 2 sheets đã bị protect bằng mật khẩu (mình không biết mật khẩu đó là gì). Mình đã thử dùng code tìm được trên GPE:

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

nhưng với file thường thì Unprotect được, còn với file này thì không thể Unprotect được, không có bất kỳ thông báo lỗi nào luôn.
Mình Unprotect được cả 2 sheets nhưng phải dùng đến 1 phần mềm khác.
Mình muốn hỏi cơ chế tạo mật khẩu của file này như thế nào và liệu có code VBA nào khác có thể Unprotect được 2 sheets này không (không dùng phần mềm khác)?

 

[vu_tuan_manh_linh]

Mình chạy hoàn toàn bình thường. Chỉ có điều bạn chịu khó chạy lần lượt từng sheet.

 

[cdt7688]

Bạn chạy nhưng có Unprotect được các sheets không?

 

[ndu96081631]

nhưng với file thường thì Unprotect được, còn với file này thì không thể Unprotect được, không có bất kỳ thông báo lỗi nào luôn.
Mình Unprotect được cả 2 sheets nhưng phải dùng đến 1 phần mềm khác.
Mình muốn hỏi cơ chế tạo mật khẩu của file này như thế nào và liệu có code VBA nào khác có thể Unprotect được 2 sheets này không (không dùng phần mềm khác)?

File đó tôi đoán được tạo bằng Excel 2013 nên không thể Unprotect bằng code được
Giải pháp: Save file thành xls rồi hãy Unprotect

 

[huuthang_bd]

Ủa sao thấy mở bình thường ta (Excel 2007). Mà file đó chỉ đóng cửa thôi chứ không có khóa (Protect nhưng không có Password).

 

[ndu96081631]

Ủa sao thấy mở bình thường ta (Excel 2007). Mà file đó chỉ đóng cửa thôi chứ không có khóa (Protect nhưng không có Password).

Mở đương nhiên bình thường rồi
Ý người ta nói: Dùng code Unprotect (Sub PasswordBreaker) có xơi được file đó không

 

[huuthang_bd]

Mở đương nhiên bình thường rồi
Ý người ta nói: Dùng code Unprotect (Sub PasswordBreaker) có xơi được file đó không

Thì em nói mở bình thường là nói mở bằng code của chủ topic luôn đó.

 

[ndu96081631]

Thì em nói mở bình thường là nói mở bằng code của chủ topic luôn đó.

Mình mở bằng Excel 2010, code chạy và treo luôn
Các bạn khác test thử xem!
(hay Excel 2007 có gì lạ lạ trong.. trái ổi?)

 

[ndu96081631]

Em xài 2013 64 Bit - Và chưa bao giờ chạy được bất kỳ 1 Sub Phá code nào...... Cứ mỗi lần nhất Run là excel nó Treo luôn (để cả tiếng nó treo cả tiếng...luôn. - cho dù save as thành .xls cũng không được) (Chắc hok hổ trợ 2013 & có thể là cả 2010 như anh đang xài.)

Nếu lưu thành xls thì Excel 2010 vẫn phá được như thường
Ngoài ra vẫn còn nhiều cách khác (Như mở bằng Open Office chẳng hạn)

 

[Ngoai Thanh]

Mình mở bằng Excel 2010, code chạy và treo luôn
Các bạn khác test thử xem!
(hay Excel 2007 có gì lạ lạ trong.. trái ổi?)

Sáng nhà em chạy thử excel 2010 cũng treo luôn ! file có 2 sheet, 1 sheet khóa có pass, 1 sheet khóa không pass . Có lẽ Hữu Thắng mở sheet khóa không pass nên thôi không xem sheet kia chăng ? Nếu save thành đuôi . xls như thày NDU nói thì mở tẹo, xong ngay .

 

[huuthang_bd]

Ngộ nhỉ
[video=youtube;EzdYVSLl80g]https://www.youtube.com/watch?v=EzdYVSLl80g&feature=youtu.be[/video]

 

[cdt7688]

File đó tôi đoán được tạo bằng Excel 2013 nên không thể Unprotect bằng code được
Giải pháp: Save file thành xls rồi hãy Unprotect

Em lưu về xls nhưng vẫn bị treo như thường
Hơn nữa, lưu về xls sẽ bị thông báo lỗi:

Và sau khi tắt file và mở lại file thì bị lỗi REF