Công Nghệ

Hướng dẫn Cách phá Password Excel không cần phần mềm



Hướng dẫn Cách phá Password Excel không cần phần mềm
Phá pass sheet excel
Code phá pass excel hiệu quả, phá mật khẩu excel

Open…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

Exit Sub

Nguồn: https://truonggiabinh.com

Xem thêm bài viết khác: https://truonggiabinh.com/cong-nghe/

ĐẤT XÀO, ĐẤT MẪU, ĐẤT THỔ CƯ LỘC NINH- BÌNH PHƯỚC GIÁ QUÁ RẺ ✅ ĐỊA ỐC THIÊN MINH 0902.786.222

Previous article

Dự án Thanh Long Bay Bình Thuận – CAFELAND.VN

Next article

3 Comments

  1. Nhận mở khóa file OFFICE (excel, word), khóa file RAR từ 2003 – 2016 với các dạng khóa: Khóa đăng nhập (protect), khóa Sheet (VBA)…
    Vui lòng gửi file vào địa chỉ: tranhoan14012010@gmail.com hoặc liên hệ 0981.396.784
    Lưu ý: Bạn phải cam kết rằng file đó thuộc quyền sở hữu của bạn.
    Hân hạnh phục vụ !

  2. 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

  3. chào bạn bạn làm thêm videos phá mật khẩu không cho xem file excel đi thanks

Leave a reply

Your email address will not be published. Required fields are marked *