Cách phá Password

Cách mở password trên Excel mà không cần bất kỳ các phần mềm nào
Các đồng chí tiến hành theo các bước sau để có thể phá password trên 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 và nhấn menu Run -> Run Sub/UserForm
5. Cuối cùng máy tính hỏi bạn có muốn “phá” nó không ? Nếu muốn bấm
Yes
6. Và bạn chờ một lúc máy sẽ phá Pass cho bạn. Có thông báo sau khi phá
Pass
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 cách…phá mà thôi.
Các đồng chí copy phần màu đỏ sau:
Vũ Đình Dũng-Sở GD&ĐT Bắc Kạn - Trang 1
Cách mở password trên Excel mà không cần bất kỳ các phần mềm nào
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
Vũ Đình Dũng-Sở GD&ĐT Bắc Kạn - Trang 2