Thông thường, để bảo vệ việc thay đổi dữ liệu dẫn tới sai sót không đáng có, thì phương án khoá mật khẩu cho sheet là lựa chọn tuyệt vời. Tuy nhiên sẽ thế nào nếu một ngày đẹp trời nào đó bạn quên mật khẩu? Hoặc bạn lấy một file excel nào đó trên mạng và cần thay đổi những phần nội dung đã bị khoá? Hoặc một số trường hợp virus tự động khoá sheet bằng một mật khẩu ngẫu nhiên nào đó

  • Sau khi đã chuẩn bị đầy đủ đồ chơi, tiếp theo thực hiện các bước sau:

    1. Clt+F11 để mở VBA
    3. F5 mà nó yêu cầu lựa chọn Macroname thì chọn SheetXXX.unprotectedAll rồi click Run nó sẽ chạy

    Sub unprotectedAll()
    Dim i As Integer
    For i = 1 To Application.Sheets.Count
    PasswordBreaker Application.Sheets(i)
    Next
    End Sub
    Sub PasswordBreaker(MySheet)
    Dim pass As String
    If MySheet.ProtectContents = False Then
    MsgBox "Sheet '" amp; MySheet.Name amp; "' is unprotected!", vbInformation
    Else
    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
    pass = Chr(i) amp; Chr(j) amp; Chr(k) amp; _
    Chr(l) amp; Chr(m) amp; Chr(i1) amp; Chr(i2) amp; Chr(i3) amp; _
    Chr(i4) amp; Chr(i5) amp; Chr(i6) amp; Chr(n)
    MySheet.Unprotect pass
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    If MySheet.ProtectContents = False Then
    MsgBox "Sheet '" amp; MySheet.Name amp; "' is unprotected!", vbInformation
    End If
    End If
    End Sub

    •
    Cách phát mật khẩu unprotect sheet trong excel | 11024 lượt xem | | Rating: 4.5 2013-01-29

    DỊCH VỤ CHỦ LỰC

    Chuyên : cung cấp sản phẩm và dịch vụ liên quan như: lắp đặt camera quan sát , lắp đặt tổng đài điện thoại , Lắp đặt hệ thống báo trộm , thi công mạng nội bộ , Sửa chữa camera quan sát , Lắp đặt điện văn phòng , máy bộ đàm , máy chấm công , Bộ lưu điện , Lắp camera quan sát tại tphcm , Lắp báo trộm , Lắp máy chấm công , Lắp kiểm soát cửa ra vào , Lắp đặt bộ phát sóng wifi , Lắp đặt chuông cửa có hình , Lắp đặt máy chấm công , Lắp đặt hệ thống âm thanh , Bảo trì hệ thống camera an ninh , Sửa chữa camera quan sát , Sửa chữa tổng đài điện thoại ... thiết bị điện tử viễn thông cho gia đình, văn phòng, nhà máy, xưởng sản xuất, khách sạn, showroom, . . . đã có nhiều kinh nghiệm và đã thi công cho nhiều công trình cũng như những dự án trên địa bàn thành phố Hồ Chí Minh và các tỉnh lân cận, , Cung cấp sản phẩm chính hãng, đa dạng cùng với chế độ hậu mãi tốt và lâu bền, chúng tôi hy vọng làm hài lòng với tất cả khách hàng.

    Hệ thống camera quan sát

    CAMERA QUAN SÁT

    Hệ thống báo động

    BÁO ĐỘNG CHỐNG TRỘM

    Chuông cửa màn hình

    CHUÔNG CỬA MÀN HÌNH

    Kiểm soát cửa ra vào

    KIỂM SOÁT CỬA RA VÀO

    Giải pháp mạng LAN / WIFI

    GIẢI PHÁP MẠNG LAN / WIFI

    ổng đài điện thoại

    TỔNG ĐÀI ĐIỆN THOẠI

    Hệ thống âm thanh thông báo

    HỆ THỐNG ÂM THANH THÔNG BÁO

    Cổng, Cửa tự động - Auto Door

    CỔNG, CỬA TỰ ĐỘNG - AUTO DOOR

    Giải pháp bãi giữ xe thông minh

    GIẢI PHÁP BÃI GIỮ XE THÔNG MINH

    Điều khiển thiết bị bằng điện thoại

    ĐIỀU KHIỂN THIẾT BỊ BẰNG ĐIỆN THOẠI

    lắp đặt máy chấm công vân tay, thẻ từ

    LẮP MÁY CHẤM CÔNG VÂN TAY

    Dịch vụ bảo trì sửa chữa camera, hệ thống an ninh

    Dịch vụ bảo trì sửa chữa

    QUY TRÌNH TRIỂN KHAI DỰ ÁN

    KHẢO SÁT, TƯ VẤN

    Tiếp nhận nhu cầu của khách hàng. Đội ngũ kỹ thuật sẽ trực tiếp khảo sát công trình để đưa ra giải pháp tối ưu nhất.

    THIẾT KẾ

    Sau khi lựa chọn được giải pháp tối ưu, kỹ sư thiết kế của công ty bắt đầu thiết kế, đem lại giải pháp tối ưu cho chủ đầu tư.

    THI CÔNG

    Quá trình thi công an toàn, hoàn thành đúng tiến độ. Với đội ngũ kỹ thuật >10 năm kinh nghiệm.

    BẢO TRÌ

    Quá trình vận hành hệ thống ổn định trước khi bàn giao. Bảo dưỡng định kỳ. Hỗ trợ, tiếp nhận yêu cầu của khách hàng.

    ĐỐI TÁC CHIẾN LƯỢC

    Chúng tôi là đại lý phân phối, lắp đặt ủy quyền của các thương hiệu lớn trên tất cả thế giới trong lĩnh vực an ninh

    đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác đối tác

    KHÁCH HÀNG TIÊU BIỂU

    Xin chân thành cảm ơn quý Công ty, Đơn vị, Cá nhân Đã - đang và sẽ ủng hộ chúng tôi... Chúng tôi luôn trân trọng và sẽ cố gắng hơn nữa để thắt chặt tình hữu nghị.....Chúng tôi luôn mong muốn được hợp tác với các đơn vị, cá nhân tổ chức doanh nghiệp trên địa bàn TP. Hồ Chí Minh và các tỉnh lân cận.
    Sau đây là một số công trình tiêu biểu và những khách hàng thân thiết mà Khánh An đã có cơ hội được hợp tác, ngoài ra còn rất nhiều những khách hàng cá nhân đã ủng hỗ chúng tôi. xem thêm

    lắp camera quan sát lắp camera quan sát lắp camera quan sát Dự Án Thi Công Sân Vận Động Vũng Tàu lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát lắp camera quan sát
    lắp camera quan sát
    giấy chứng nhận đại lý phân phối lắp đặt giấy chứng nhận đại lý phân phối lắp đặt giấy chứng nhận đại lý phân phối lắp đặt giấy chứng nhận đại lý phân phối lắp đặt giấy chứng nhận đại lý phân phối lắp đặt giấy chứng nhận đại lý phân phối lắp đặt giấy chứng nhận đại lý phân phối lắp đặt giấy chứng nhận đại lý phân phối lắp đặt giấy chứng nhận đại lý phân phối lắp đặt giấy chứng nhận đại lý phân phối lắp đặt

    Bản quyền thuộc Khánh An © 2013. All rights reserved. Phát triển bởi Khánh An .

    DMCA.com Protection Status Khánh An