kết quả từ 1 tới 1 trên 1

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

  1. #1
    quanltv's Avatar
    quanltv đang off
    Thành Viên Thứ: 146858
    Ðến từ: Hà Nội
    Bài gởi
    1.148
    Giới tính: Nam
    Yahoo: Quân
    Thanks
    52
    Thanked 644 Times in 360 Posts

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

    Cách phá Password Excel không cần phần mềm, phá pass sheet excel, phần mềm phá pass excel hiệu quả, phá mật khẩu excel

    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 (hoặc nhấn F5)




    5. Máy hỏi bạn có muốn xử lý 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. Và có thông báo sau khi phá Pass thành công.




    Mã:
    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
    Mình đã thử và thành công.
    Vui lòng để ủng hộ diễn đàn. Thanks!
    Thay đổi nội dung bởi: quanltv, 05-10-2013 lúc 11:24 PM
    Hãy nhấn nút Thank nếu thấy bài viết hữu ích

  2. Những thành viên sau đây đã Cảm ơn quanltv vì bài viết hữu ích:

    ngoctinh81 (05-10-2013)

Xem các chủ đề tương tự:

  1. Cách phá password máy tính win 7, xp bằng USB boot
    By Hoà Bình in forum Tin Học Căn Bản
    Trả lời: 4
    Bài mới: 04-03-2014, 09:49 PM
  2. Trả lời: 0
    Bài mới: 02-10-2013, 12:22 PM
  3. Tính cách của mình qua password
    By nhatcatinh999 in forum Tâm sự & Hỏi Đáp
    Trả lời: 7
    Bài mới: 29-11-2011, 11:22 PM
  4. Hỏi password
    By philip in forum Hỏi Đáp - Yêu Cầu Phim
    Trả lời: 7
    Bài mới: 12-08-2011, 02:53 PM

Tags for this Thread