Chatbox

Các bạn vui lòng dùng từ ngữ lịch sự và có văn hóa,sử dụng Tiếng Việt có dấu chuẩn. Chúc các bạn vui vẻ!
16/03/2019 08:03 # 1
Hoang123DTU
Cấp độ: 7 - Kỹ năng: 1

Kinh nghiệm: 10/70 (14%)
Kĩ năng: 2/10 (20%)
Ngày gia nhập: 21/09/2016
Bài gởi: 220
Được cảm ơn: 2
Cách phá mật khẩu của Sheet trong Excel thành công 100%


#1. Phá mật khẩu Sheet trong Excel bằng cách đổi thành file .Zip

+ Bước 1: Để bẻ khoá Protect Sheet (mật khẩu của Sheet) thì trước tiên bạn cần mở chế độ hiển thị đuôi file lên trước. 

Hoặc nếu bạn dùng Windows 7 thì có thể xem luôn hướng dẫn sau đây: Bạn click chuột vào menu Start => và chọn Control Panel 

+ Bước 2: Tại hộp thoại Control Panel => bạn click vào User Acounts and Family Safety.

Rồi chọn Appearance and Personalization => sau đó click vào Folder Options.

+ Bước 3: Ở hộp thoại Folder Options, bạn chọn tab View và bỏ dấu tích tại ô Hide extensions for known file types đi.

Và click vào nút Apply để áp dụng việc hiện đuôi file trên Windows. Sau đó bạn click vào dấu (x)để thoát.

+ Bước 4: Okay, bước chuẩn bị vậy là đã xong rồi. Bây giờ chúng ta sẽ tiến thành xóa mật khẩu cho sheet Excel.

Sau khi hiển thị đuôi file trên Folder thành công. Bạn click chuột phải vào file Excel bị khoá Sheet => và chọn RenameHoặc bạn cũng có thể chọn file Excel => sau đó nhấn phím F2 cũng được.

+ Bước 5: Bây giờ bạn hãy đổi từ đuôi *.xlsx thành *.zip => và nhấn Yes để xác nhận.

Tiếp theo bạn click mở file *.zip lên => và mở tiếp file xl trong file nén đó.

Tiếp tục click mở thư mục Worksheet.

+ Bước 6: Sau đó bạn copy Sheet bị khoá (hoặc Sheet mà bạn muốn phá khóa) ra bên ngoài bằng cách nắm giữ chuột và kéo ra.

+ Bước 7: Rồi click chuột phải vào Sheet mà bạn vừa copy ra bên ngoài => chọn Open with => chọn Notepad để mở file dưới định dạng Text.

+ Bước 8: Sau khi file đã mở ra => bạn click chọn Edit => chọn Find. Hoặc là bạn nhấn tổ hợp phím Ctrl + F để mở hộp thoại tìm kiếm.

+ Bước 9: Tại hộp thoại Find bạn gõ từ khóa protect vào ô Find What => và click Find Nextđể tìm từ khóa protect có trong file.

Bây giờ chúng ta bôi đên cái đoạn code <sheetProtection………………… > đó đi.

Vâng, nếu như các bạn cảm thấy khó khăn để bôi đen khi dùng chuột thì có thể sử dụng phím Shift + phím mũi tên sang phải (hoặc sang trái) để bôi đen nội dung cần xóa sẽ dễ hơn.

+ Bước 10: Sau đó bạn chọn File => Save để lưu lại.

+ Bước 11: Sau đó bạn kéo thả file vừa chỉnh sửa trở lại file nén Winrar.

Và nhấn OK tại hộp thoại tiếp theo để xác nhận việc copy đè lên file cũ.

+ Bước 12: Lúc này gần như mọi việc đã hoàn tất, bạn chỉ việc thay đổi đuôi của file *.zip thành *.xlsx như ban đầu để hiển thị file Excel của mình là xong.

#2. Sử dụng code VBA để xóa mật khẩu Sheet trong Excel

Thú thực thì cách này mình làm lúc được lúc không, tỷ lệ thành công không cao như cách 1 bên trên. Có máy mình làm phát ăn luôn, nhưng có máy chạy là bị treo luôn máy.

Nhưng mình cứ trình bày ra đây, vì cách làm này dễ hơn cách bên trên.

+ Bước 1: Bạn nhấn chuột phải vào Sheet mà bạn muốn phá Password => sau đó chọn View Code.

+ Bước 2: Cửa sổ Microsoft Visual Basic for Applications xuất hiện. Tại đây bạn nhấn vào nút Insert => và chọn Module như hình dưới.

+ Bước 3: Và copy đoạn code sau vào khung Module đó: 

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

Sau đó chọn Run => và chọn Run Sub/UserFrom hoặc nhấn phím F5 để chạy code.

+ Bước 4: Bạn bấm Yes và đợi trong giây lát để chương trình bắt đầu quá trình pass. Và nếu thành công thì sẽ xuất hiện một thông báo hiện ra, còn ngược lại thì nó cứ quay hoài vậy thôi 😀

 

 

 

 

Bài viết!




 
Copyright© Đại học Duy Tân 2010 - 2024