Nội dung

Tài nguyên dạy học

HỖ TRỢ TRỰC TUYẾN

  • (ĐẶNG THANH NGHỊ)
  • (camnangtrithuc@yahoo.com)

Xin ý kiến của quý vị

Hân hạnh được đón tiếp quý vị ! Xin Quý vị cho biết ! Quý vị là :
Giáo viên- Giảng viên
Học sinh
Sinh viên
Công chức
Khác

Thành viên trực tuyến

0 khách và 0 thành viên

Ảnh ngẫu nhiên

Video_13cailuongEnglish.flv Tim_hieu_ve_dep_con_nguoi_Tay_Bac_qua_cac_tac_pham_van_hoc___VTVVN.flv _Day_Boi_Ech.flv 16_chu_e_dtd.swf 14_viet_chu_q_g.swf 12_viet_chu_a_dtd.swf 11luyen_chu_o.swf Kiniemmaitruong.swf Bachocoloi.swf CodoHoaludenvuadinh_LangDu.jpg Mot_chut_moi_ngay.swf Rieng_mgtroi1.swf Co_be_quang_khan_do.flv Truyen_su_tich_tho_ngoc.flv Flash_thiep_27.swf Mua_Xuan_Nho_Nho1.swf Happy_new_year.flv Chucmungnammoi4.swf 9.swf

ĐỐI TÁC

Thống kê

  • truy cập   (chi tiết)
    trong hôm nay
  • lượt xem
    trong hôm nay
  • thành viên
  • Chỉ số Alexa

    Chào mừng quý vị đến với Cẩm nang Tri thức- Đặng Thanh Nghị - Knowledge Handbook.

    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ư liệu của Thư viện về máy tính của mình.
    Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.

    Hàng chuẩn mua Oline

    cod loai bo pass trong excel

    Nhấn vào đây để tải về
    Hiển thị toàn màn hình
    Báo tài liệu có sai sót
    Nhắn tin cho tác giả
    (Tài liệu chưa được thẩm định)
    Nguồn:
    Người gửi: Phan Văn Việt (trang riêng)
    Ngày gửi: 17h:05' 19-10-2011
    Dung lượng: 25.0 KB
    Số lượt tải: 51
    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.
     
    Gửi ý kiến

    dangthanhnghi.violet.vn

    CẢM ƠN QUÝ THẦY CÔ VÀ QUÝ VỊ ĐÃ GHÉ THĂM WEBSITE CỦA THẦY GIÁO ĐẶNG THANH NGHỊ

    Dai ly Motion