Trang 1/3 123 cuối
kết quả từ 1 tới 12 trên 29
  1. #1
    Ðến Từ
    Hà Nội
    Thành Viên Thứ: 146858
    Giới tính: Nam
    Bài gởi
    3.441

    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.
    Quick reply to this message Trả lời       

  2. 8 thành viên đã cảm ơn quanltv:


  3. #2
    Ðến Từ
    Thừa Thiên - Huế
    Thành Viên Thứ: 222215
    Bài gởi
    1

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

    password giúp ta bảo mật tốt dữ liệu, nhưng đôi lúc do công việc nhiều quá nên quên. ACE nào phá không được alo cho mình :Tuấn 0972709052, email: lenguyen9984@yahoo.com.vn. Chỉ cần 5 phút là có tin vui, đảm bảo toàn vẹn dữ liệu.

  4. Đã cảm ơn tuancntt84:

    tanvy 

  5. #3
    Ðến Từ
    Long An
    Thành Viên Thứ: 188314
    Giới tính: Nam
    Bài gởi
    643

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

    Excel 2013 có làm được không anh?

  6. #4
    Ðến Từ
    Hà Nội
    Thành Viên Thứ: 222438
    Giới tính: Nam
    Bài gởi
    2

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

    vãi bạn có email không mình gửi cho bạn file excel của mình thêm câu trức hire và protect window xem ban có phá được không
    không cho bạn có quyên xâm nhập vào các ô để xem bạn làm thế nào???
    bạn chỉ có mở excel với quyền người xem chứ không có quyền xâm nhập hay viết bất kỳ ký tự nào!

  7. #5
    Ðến Từ
    Tỉnh Khác
    Thành Viên Thứ: 171316
    Giới tính: Nam
    Bài gởi
    2

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

    Trích Nguyên văn bởi chinh.ld Xem bài viết
    vãi bạn có email không mình gửi cho bạn file excel của mình thêm câu trức hire và protect window xem ban có phá được không
    không cho bạn có quyên xâm nhập vào các ô để xem bạn làm thế nào???
    bạn chỉ có mở excel với quyền người xem chứ không có quyền xâm nhập hay viết bất kỳ ký tự nào!

    langtugiangho0210@gmail.com

    Mời bạn cứ gửi

  8. #6
    Ðến Từ
    TP. Hồ Chí Minh
    Thành Viên Thứ: 228783
    Bài gởi
    75

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

    Thật là cao thủ quá mà. Bạn làm gì để tìm được đoạn mã lợi hại như vậy?

  9. #7
    Ðến Từ
    Hà Nội
    Thành Viên Thứ: 221419
    Bài gởi
    12

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

    Cái này có ảnh hưởng tới định dạng văn bản không bạn ?

  10. #8
    Ðến Từ
    Huyện Giá Rai
    Thành Viên Thứ: 76069
    Giới tính: Nam
    Bài gởi
    1

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

    Trích Nguyên văn bởi thanhnx1990 Xem bài viết
    Cái này có ảnh hưởng tới định dạng văn bản không bạn ?
    cái này không ảnh hưởng đến định dạng văn bản đâu bạn, chỉ cần làm như hướng dẫn chạy đoạn code trên kia là xóa mọi protected sheet thôi

  11. #9
    Ðến Từ
    Hà Nội
    Thành Viên Thứ: 264761
    Bài gởi
    1

    Thumbs up Reply: Cách phá Password Excel không cần phần mềm

    Trích Nguyên văn bởi quanltv Xem bài viết
    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.
    Bạn giỏi quá, mình làm theo được rồi,hihi

  12. #10
    Ðến Từ
    Đắk Nông
    Thành Viên Thứ: 264774
    Giới tính: Nam
    Bài gởi
    9

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

    thank thớt nhiều lắm

  13. #11
    Ðến Từ
    Thái Nguyên
    Thành Viên Thứ: 277061
    Bài gởi
    3

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

    Mình có file quên mk (excel 2003), rất cảm ơn khi đc bạn giúp.

  14. #12
    Ðến Từ
    Tiền Giang
    Thành Viên Thứ: 197872
    Giới tính: Nam
    Bài gởi
    148

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

    thanks chủ thớt nhìu


Trang 1/3 123 cuối