code gỡ pass word trong excel
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn: Phan Văn Việt
Người gửi: Phan Văn Việt (trang riêng)
Ngày gửi: 11h:41' 18-02-2012
Dung lượng: 3.3 KB
Số lượt tải: 140
Nguồn: Phan Văn Việt
Người gửi: Phan Văn Việt (trang riêng)
Ngày gửi: 11h:41' 18-02-2012
Dung lượng: 3.3 KB
Số lượt tải: 140
Số lượt thích:
0 người
Dear all, -------- copy doan code sau ( vao excel (
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 Đoạn code đã chỉnh sửa nhằm loại bỏ các lỗi có thể xảy ra. Các bạn cũng có thể cải tiến thủ tục để truyền tham số là một Worksheet bất kỳ đang được "protected" chứ không chỉ là ActiveSheet. Chúc các bạn thành công!
hướng dẫn:
Mở trang Excel cần làm cho hiện lại toàn bộ công thức bi ẩn( Các thực hiện như sau: Trong bảng tính cần được bảo mật, bạn hãy nhấn ALT+F11 để mở cửa sổ Microsoft Visual Basic ra( nhấp dup chuột vào Sheet cần xử lí( copy doạn code đã có sẵn dán vào cửa sổ vừa mở( nhấn nút RUN trên thanh công cụ( hoặc vào menu Run chọn Run sub/ userform( ngồI đợI cho may tự xử lí khoảng 12 h( he he) jon thôi… đợI khoảng tốI đa 15 phút( nếu may có cấu hình cao thi khoảng 4 phút là xong) ( hoàn thành máy sẽ có thông báo. Chúc mi thành công.
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 Đoạn code đã chỉnh sửa nhằm loại bỏ các lỗi có thể xảy ra. Các bạn cũng có thể cải tiến thủ tục để truyền tham số là một Worksheet bất kỳ đang được "protected" chứ không chỉ là ActiveSheet. Chúc các bạn thành công!
hướng dẫn:
Mở trang Excel cần làm cho hiện lại toàn bộ công thức bi ẩn( Các thực hiện như sau: Trong bảng tính cần được bảo mật, bạn hãy nhấn ALT+F11 để mở cửa sổ Microsoft Visual Basic ra( nhấp dup chuột vào Sheet cần xử lí( copy doạn code đã có sẵn dán vào cửa sổ vừa mở( nhấn nút RUN trên thanh công cụ( hoặc vào menu Run chọn Run sub/ userform( ngồI đợI cho may tự xử lí khoảng 12 h( he he) jon thôi… đợI khoảng tốI đa 15 phút( nếu may có cấu hình cao thi khoảng 4 phút là xong) ( hoàn thành máy sẽ có thông báo. Chúc mi thành công.
↓ CHÚ Ý: Bài giảng này được nén lại dưới dạng RAR và có thể chứa nhiều file. Hệ thống chỉ hiển thị 1 file trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT ↓
Tặng thầy Hùng. Mời thầy ghé thăm và đóng góp ý kiến cho vanviet_bp.
Chúc thầy và gia đình cuối tuần vui vẻ.