Cách 1: Lấy lại mật khẩu file Excel bằng phần mềm Office password recovery

• Đường dẫn tải Link tải phần mềm

• Brute-force Attack: sử dụng kiểu này nếu các bạn không biết hoặc nhớ bất kỳ ký tự nào trong mật khẩu file Excel. Các bạn cần thiết lập phạm vi trong thẻ Range và độ dài mật khẩu trong thẻ Length để rút ngắn thời gian và tăng khả năng khôi phục, lấy lại mật khẩu file Excel.

• Mask Attack: nếu các bạn vẫn nhớ một số ký tự trong mật khẩu file Excel thì các bạn nên chọn Mask và chỉ định mật khẩu sử dụng biểu tượng “?” thay thế bằng ký tự mà bạn không nhớ, để rút ngắn thời gian khôi phục mật khẩu thì các bạn có thể sử dụng kết hợp kiểu Brute-Force với Mask.

• Dictionary Attack: nếu các bạn đã ghi chú mật khẩu trên một tài liệu nào đó, các bạn hãy tạo một từ điển mật khẩu sau đó sử dụng kiểu tấn công Dictionary để khôi phục, lấy lại mật khẩu cho file Excel nhanh hơn. Nếu không các bạn cũng có thể sử dụng từ điển được tạo bởi chương trình mật khẩu.

• Smart Attack: chọn kiểu tấn công này nếu mật khẩu file Excel của bạn phức tạp mà bạn lại không nhớ gì về nó.

Cách 2: Xóa mật khẩu file Excel bằng phần mềm Office Password Remover

• Tải tại trang chủ Link tải phần mềm

Cách 3: Phá mật khẩu bảo vệ sheet

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