24 tháng 7 2011

Phá Password Excel không cần phần mềm

Cách làm trong Excel 2007/2010 như sau: bấm Alt + F11 để hiện ra bảng Visual Basic Editor rồi sau đó thực hiện theo bước 3 như phía dưới.

Cách làm trong Excel 2003 như sau:


1. Mở file Excel có chứa các Sheet 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
Nếu bạn chưa thấy các Sheet bên phía trái của màn hình thì bấm:  Ctrl + R để hiện các Sheet.
( Nhiều máy khi bấm Alt + F11 thì không thấy cửa sổ bên trái hiện các Sheet )
4. Copy đoạn mã sau vào và nhấn menu Run -> Run Sub/UserForm 

5. Máy hỏi bạn có muốn CHƠI nó không ? Nếu muốn bấm YES

6. Bạn chờ một lúc máy sẽ phá Pass cho bạn. Có thông báo sau khi phá Pass







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

Các bài liên quan




21 nhận xét:

  1. Rất hữu ích, cảm ơn bạn.

    Trả lờiXóa
  2. Thank !Rất mong bạn sẽ có những bài viết hữu ích khác.

    Trả lờiXóa
  3. Mình làm được rồi, cảm ơn bạn rất nhiều!!!

    Trả lờiXóa
  4. Cach nao mo pass vao file ta/ chi mo duoc pass trong sheet thoi a

    Trả lờiXóa
  5. Nhận phá password word, excel,zip...giá rẻ
    LH email: langphilong@gmail.com

    Trả lờiXóa
  6. Password giúp ta bảo mật tốt dữ liệu,nhưng đôi lúc công việc nhiều,hay lâu quá không dùng đến nên quên.Vậy AE nào phá ko được gọi cho mình nhé:0972709052.Tuấn.Email:lenguyen9984@yahoo.com.vn.Nhanh gọn,chỉ cần 5 phút là có tin vui,đảm bảo toàn vẹn dữ liệu.

    Trả lờiXóa
  7. mình không biết bói gì để cãm ơn bạn nữa ôi! người hùng mình vừa làm được điều mà cả công ty mình cần. Bạn ở đâu cafe nhé

    Trả lờiXóa
  8. Chuyên phá pass word - Excel - Office
    bạn nào quên pass hoặc không phá được thì cứ gởi file cho mình bảo đảm ok 100%
    Email: pallet8vinh@gmail.com hoặc vuongvi2000@yahoo.com
    ĐT: 0918 415 072

    Trả lờiXóa
  9. cam on ban minh da lam duoc rui

    Trả lờiXóa
  10. WOW just what I was searching for. Came here by searching for hack day

    Take a look at my web site - forgot twitter password

    Trả lờiXóa
  11. What's up, just wanted to tell you, I liked this article. It was practical. Keep on posting!

    Feel free to surf to my webpage; dagonvale breeding tips

    Trả lờiXóa
  12. Your style is so unique in comparison to other folks I have read stuff from.
    I appreciate you for posting when you've got the opportunity, Guess I will just book mark this site.

    Also visit my blog post ... sharecash bypass

    Trả lờiXóa

Có thể bạn chưa đọc