Chào mừng quý vị đến với website của Hoàng Văn Hải
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành
viên, vì vậy chưa thể tải được các tài liệu của
Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Phá password Excel
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Hoàng Văn Hải (trang riêng)
Ngày gửi: 06h:11' 22-08-2015
Dung lượng: 66.0 KB
Số lượt tải: 3
Nguồn:
Người gửi: Hoàng Văn Hải (trang riêng)
Ngày gửi: 06h:11' 22-08-2015
Dung lượng: 66.0 KB
Số lượt tải: 3
Số lượt thích:
0 người
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
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)
5. Máy hỏi bạn có muốn xử lý nó không ? Nếu muốn bấm YES
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.
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
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)
5. Máy hỏi bạn có muốn xử lý nó không ? Nếu muốn bấm YES
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.
CHÀO NGÀY MỚI
TIN TỨC
SÁCH DANH NGÔN
DOWNLOADS PHAN MEM
ĐỌC BÁO CÙNG HOÀNG HẢI
DANH NGÔN NHÀ GIÁO
8/3 VUI VẺ
Code chèn blog:
BÉ LÀM TOÁN
VẺ ĐẸP CỦA CÁC LOAI HOA
KARAOKE CÙNG HOÀNG HẢI
KARAOKE CÙNG HOÀNG HẢI
XIN CHÀO QUÝ THẦY CÔ
HOÀNG VĂN
HẢI TRƯỜNG THCS VÀM RẦY
XEM BẢN ĐỒ
Các ý kiến mới nhất