1. Cảm ơn bạn đã chọn Diễn đàn Tư vấn kế toán 24h. Hãy chung tay cùng chúng tôi xây dựng một cộng động kế toán vững mạnh, cởi mở và mang kiến thức đến cho mọi người!
    HƯỚNG DẪN ĐĂNG KÝ TÀI KHOẢN
    HƯỚNG DẪN TẢI FILE ĐÍNH KÈM
    QUY ĐỊNH KHU VỰC ĐĂNG TIN QUẢNG CÁO

Mở khóa một file Excel không cần Mật khẩu (Áp dụng cho Excel 2010 trở xuống)

Chủ đề thuộc danh mục 'MS Excel - Word - Office' được đăng bởi ktvn, 6/3/17.

  1. ktvn

    ktvn Ban quản trị MOD

    Tham gia:
    10/9/16
    Số bài viết:
    744
    Thích đã nhận:
    873
    Đến từ:
    Thủ đô Hà Nội
    Tiền Zen:
    10.000.020 (VND)
    How to Unprotect an excel sheet without password


    THis document will tel you how to unprotect an excel spread sheet without having the password
    This procedure works in Excel 2010 and earlier but in Excel 2013 this will not work.


    In case of a password protect worksheet you are unable to Edit the data on the Excel Sheet. If you do not Remember the Password or do not know the password to unprotect the sheet just follow the below simple steps.
    [​IMG]
    Press ALT + F11 or click on View Code in Developers Tabs
    [​IMG]
    In the Above White Space Enter the below Code. Do not change the code just copy paste:
    Sub PasswordBreaker()
    'Breaks worksheet password protection.
    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)
    If ActiveSheet.ProtectContents = False Then
    MsgBox "One usable password is " & Chr(i) & Chr(j) & _
    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub
    Now Click on the Run Button or press F5:
    [​IMG]

    And there you go the sheet is unprotected for you now. Also you would be getting a message in the pop up window.
    This Message is contains the password which can be used to unprotect the other sheets in the same workbook.
    [​IMG]
     
  2. dungtran50k

    dungtran50k MEMBER

    Tham gia:
    21/8/18
    Số bài viết:
    18
    Thích đã nhận:
    0
    Đến từ:
    Bắc Ninh
    Tiền Zen:
    0 (VND)
    Up lên đầu cho mọi người cùng xem
     
  3. nvtu553

    nvtu553 MEMBER

    Tham gia:
    17/9/18
    Số bài viết:
    3
    Thích đã nhận:
    0
    Đến từ:
    18 Nguyễn Trường Tộ, P Tân Thành, Q Tân Phú, HCM
    Tiền Zen:
    0 (VND)
    Tiếng anh không vậy, cái này cũng khó nói, nếu file excel được tạo ra từ excel 2013 , qua máy excel 2010 thì cũng mở không được.
    đuôi mở rộng là giống nhau, thì làm sau biết file đó được tạo ra từ excel phiên bản nào.
     

Ủng hộ diễn đàn

Đang tải...