huong dan pha pass trong word va excell

Lời chia sẻ: Chúng ta cực kỳ ghét những thằng nào đó… không muốn chia sẻ thông tin với người khác,chỉ muốn giữ riêng cho bản thân mình và cứ bắt chúng ta phải học và muốn chúng ta học[r]

Các đồng chí tiến hành theo bước sau để phá password sheet Excel:

1 Trước hết mở file Excel có password

2 Sau chọn menu Tools -> Macro -> Visual Basic Editor ( Hoặc ấn tổ hợp phím Alt+F11)

3 Tiếp tục nhấp đúp vào Sheet mà bạn muốn phá pass

4 Và copy đoạn mã sau vào nhấn menu Run -> Run Sub/UserForm

5 Cuối máy tính hỏi bạn có muốn “phá” khơng ? Nếu muốn bấm Yes

6 Và bạn chờ lúc máy phá Pass cho bạn Có thơng báo sau phá Pass

Sub PasswordBreaker()

If ActiveSheet.ProtectContents = False Then

MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation

Else

If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, 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