Remove Pass file Office ( Word, Excel)

Chắc hẳn có đôi lần bạn đặt mật khẩu cho
File Word hoặc Excel của mình, rồi một ngày đen trời bạn quên béng, hay
lụm lặt đâu đó 1 file về mở ra thì có pass! Bạn sẽ làm gì??? tốt nhất
là nên tự phòng thân cho mình một cái ” tool” để gặp tình huống mà “Xử
đẹp” chứ và cái mà bạn cần chỉnh là Office Password Recovery
Toolbox.

Đặc biệt đây là bản đã được tiêm thuốc
của 1 thành viên bên REA Online VN. Hiện nay kiếm thuốc cho em này rất
khó vì nó đòi hỏi xác thực bản quyền trên sever của nó.


Đầu tiên bạn down theo link bên dưới
về được 1 file, giải nén ra chạy file OPRTbox.exe
[You must be registered and logged in to see this link.]
Giao diện
[You must be registered and logged in to see this image.]

Mở ra và trỏ tới file cần gỡ pass, nhấn
chứ Remove em nó sẽ kết nối lên máy chủ và mở pass trên này, sau đó sẽ
tạo 1 File đã được gỡ pass, nằm trong thư mục cùng cấp với file ban đầu,
có tên Sample_Fixed. Mở ra và tậ hường kết
quả!!

Chúc bạn thành công
(Nguồn: [You must be registered and logged in to see this link.] )


Hoặc nếu là file Excel các bạn có thể cùng 1 cách đơn giản hơn đúng với dân IT. Ko cần phần mềm




Password trong Sheet Excel - Cách mở mà không cần bất kỳ các phần mềm nào



Cách làm như sau:
1. Mở file Excel có pass
2 Chọn menu Tools -> Macro -> Visual Basic Editor
3 Nhấp đúp vào Sheet mà bạn muốn phá pass
4. Copy đoạn mã sau vào và nhấn menu Run -> Run
Sub/UserForm


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
(LeeStar st)