Chào mừng quý vị đến với Blog Nguyễn Thanh Tùng-Thủ thuật tin học.
Cách phá password sheet
Muốn phá pass của sheet nào bạn chuột phải vào tên của sheet đó chọn view code một bảng hiện ra bạn copy đoạn mã sau và paste vào đó sau đó vào RUN -> Run sub/userForm hoặc nhấn F5 đợi 1 lúc là được.
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
Nguyễn Thanh Tùng @ 10:19 06/05/2012
Số lượt xem: 683
- Hướng dẫn khóa vùng công thức trong Excel (13/04/12)
- Những điều bạn cần biết về Tools/ Options (16/02/12)
- Những phím tắt “vô giá” trong Excel (22/07/11)
Các ý kiến mới nhất