Bẻ khóa file trong excel

Trước hết bật file excel có chứa sheet đang khóa
Ngay tại sheet đó, các bạn bật lên :
Tools\Macro\Visual Basic Editor hoặc Alt+F11
Copy đoạn mã mới downd vào sau đó nhấn F5 là oke. Ngồi chờ 1 tí là tha hồ nghịch!

Đoạn mã này thực hiện ma trận password bẻ khóa! (Đừng hỏi thêm nha, bí mật nghề nghiệp)
Đảm bảo không hề có virus.
Các bác nào có file excel bị người ta không cho edit thì chỉ cần ma trận này! cỡ nào cũng bunk được! trích từ hoangdinhvuong.webs.com (michael)

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 michael1112 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