Phá mật khẩu Excel

Bạn muốn xóa mật khẩu của file Excel trong trường hợp bạn quên , hoặc vì một lý do nào đó. Có một số phần mềm hỗ trợ việc này nhưng hôm nay tôi muốn chia sẽ một cách khá đơn giản không cần dùng thêm phần mềm nào mà rất hiệu quả. Tôi đã test thành công với cả Excel 2003, 2007, 2010.




Bước 1 :  Mở file cần phá password.
- Đối với Excel 2007, 2010 bạn nhấn Alt + F11 để hiện ra cửa sổ Visual Basic Editor .
- Đối với Excel 2003 : Bạn vào Tools -> Macro -> Visual Basic Editor để hiện ra bảng Visual Basic Editor 

Bước 2: Nhấp đúp vào Sheet mà bạn muốn phá pass :

Bạn copy đoạn code sau vào paste vào khung vừa mở ra:

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

==> Vào menu Run -> Run Sub/UserForm (hoặc nhấn F5)

Chờ một lúc máy sẽ báo thành công :

==> Bạn tắt cửa sổ Visual Basic Editor và lưu file excel, việc phá pass hoàn thành.