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)

diendanbaclieu-101843-capture-2.jpg



5. Máy hỏi bạn có muốn xử lý nó không ? Nếu muốn bấm YES

diendanbaclieu-101843-capture1.jpg


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.

diendanbaclieu-101843-capture-3.jpg



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.
 
Sửa lần cuối:
  • Chủ đề
    do pass excel pha mat khau file excel pha pass excel tim pass excel
  • 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.
     
    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!
     
    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
     
    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
     
    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)

    diendanbaclieu-101843-capture-2.jpg




    5. Máy hỏi bạn có muốn xử lý nó không ? Nếu muốn bấm YES

    diendanbaclieu-101843-capture1.jpg



    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.

    diendanbaclieu-101843-capture-3.jpg




    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
     
    Bac cho e hỏi cái..e muốn phá pass của tên sheep thì sao bác..e có cái file đá phá dc pass trong từng sheep còn pass của tên sheep thì ko phá dc..nó ko cho sửa tên, copy, xóa..híc
     
    Mình có file quên mk (excel 2003), ko phải pass của sheet, mà là của cả file, bạn giúp mình đc ko?. Xin cảm ơn!
     
    Mình có file đang tập làm Excel 2003 mà quên mk rồi, bạn có thể giúp mình đc ko?
     
    Ngoại trừ password open file là mình không phá được thôi vì nó mã hóa tới 128bit chứ tất cả các vấn đề còn lại mình cân hết. Hiện công thức, phá pass, Project is Inviewable mình cân hết

    fakenamed666@gmail.com
     
    anh ơi cho em hỏi, nếu phá pass như trên có hư hại j cho tệp tin hay máy tính hok a? có bị virut hok a,? e sợ
     
    Top