THỦ THUẬT BẢO MẬT TRONG VĂN BẢN WORD Cách phá bỏ mật khẩu Protect Excel Cách phá Password Excel không cần phần mềm, cách làm trong Excel 2007/2010 như sau 1 Mở file Excel có chứa các Sheet có Pas[.]
Cách phá bỏ mật Protect Excel Cách phá Password Excel không cần phần mềm, cách làm Excel 2007/2010 sau: Mở file Excel có chứa Sheet có Password Chọn Sheet muốn phá Password Chọn menu Developer => Visual Basic bấm Alt + F11 Chọn menu Insert, thẻ Module Copy đoạn Mã (ở phần cuối) dán vào thẻ General hình vẽ Sau nhấn menu Run => Run Sub/UserForm (hoặc nhấn F5) Nguyễn Thành Chung Trường THCS Kỳ Long Máy hỏi bạn có muốn xử lý khơng ? Nếu muốn bấm YES Bạn chờ lúc máy phá Pass cho bạn Và có thơng báo sau phá Pass thành cơng Sau Save lại File này,thế xong Đoạn mã cần copy dán vào: Sub PasswordBreaker() If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation Else If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, 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 Chúc thầy cô bạn thành công! Nguyễn Thành Chung Trường THCS Kỳ Long ... thơng báo sau phá Pass thành cơng Sau Save lại File này,thế xong Đoạn mã cần copy dán vào: Sub PasswordBreaker() If ActiveSheet.ProtectContents = False Then MsgBox "Sheet ''" & ActiveSheet.Name &