Hướng dẫn mở khóa file Word, Excel khi bị khóa bằng mật khẩu (Protect document, Restrict Editing)

Hướng dẫn unlock file word bị khóa bằng mật khẩu Word protect document Bước 1 : Lưu file Word dưới định dạng  Single File Wed File...

Hướng dẫn unlock file word bị khóa bằng mật khẩu
Word protect document

Bước 1 : Lưu file Word dưới định dạng Single File Wed

File lưu có hình dạng như sau:



Bước 2: Mở file trên bằng WordPad (bằng open with hoặc bạn search “wordpad” trong start menu)



Bước 3: Nhấn tổ hợp phím Ctrl + F để tìm kiếm và gõ vào ô tìm kiếm chữ “pass” (tìm từ khóa pass)



Bước 4: Xóa bỏ đoạn ký tự ở giữa (đoạn kí tự màu vàng, xóa hết luôn)

<w:UnprotectPassword>[xóa đoạn ký tự này]</w:UnprotectPassword>

Bước 5: Ctrl + S (lưu lại)

Giờ bạn tắt file đó đi và mở lại nó bằng word


Bước 6: Vào File chọn info chọn Protect Document chọn Restrict Editing.


Nhìn vào góc phải dưới màn hình ấn “Stop Protection”

Lưu lại dưới dạng file word.

Giờ thì có thể chỉnh sửa được file rồi.

VBA mở khóa file Excel bằng mật khẩu hay.

[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 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]