Tuy nhiên, vì một lý do chết tiệt nào đó khiến bạn quên mất mật khẩu của file Excel. Vậy phải làm thế nào để chỉnh sửa, hoặc sao lưu toàn bộ dữ liệu trong bảng tính Excel để làm việc bây giờ ?
Vâng, nếu bạn đang gặp rắc rối đó thì đây chính là bài viết dành cho bạn. Trong bài viết này tinhocdct.xyz sẽ chia sẻ với các bạn 2 cách phá mật khẩu file Excel, bẻ khoá Password Protect Sheet hiệu quả nhất hiện nay mà mình biết đến. Giúp bạn có thể mở file Excel để làm việc như bình thường.
Đây là hình ảnh sau khi Sheet đã bị khóa, tức là khi bạn click vào ô bất kỳ trong file Excel sẽ nhận được thông báo yêu cầu mở khoá Unprotect Sheet như hình bên dưới.
Bây giờ mình sẽ đi vào nội dung chính của bài viết luôn nhé.
#1. Phá mật khẩu Sheet trong Excel bằng cách đổi thành file .Zip
Mình khuyên dùng cách này nhé, vì tỷ lệ thành công 100%
+ 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
như hình.
+ 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: 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 Rename
. Hoặ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.
Anh em chú ý chỗ này này….
Bây giờ chúng ta bôi đên cái đoạn code <sheetProtection………………… > đó đi.
Như nội dung mình vừa xóa là: <Tất nhiên là mỗi file mỗi khác, nhưng mình copy lên đây để bạn dễ hình dung ra hơn.>
<sheetProtection algorithmName=”SHA-512″ hashValue=”pH2G+QkKsh3EYYdyP1ipBE8/hYbi2PFiSwOj3yiNwDnt6IOGyPw2ziVLIeQ4yHH7kEqCWUPTRiQEAVZS8/tLNA==” saltValue=”ExcuIRf9Cdlu1SsXgr2AZA==” spinCount=”100000″ sheet=”1″ objects=”1″ scenarios=”1″/>
File
=> Save
để lưu lại.*.zip
thành *.xlsx
như ban đầu để hiển thị file Excel của mình là xong.+ Bước 13: OK, đã xong.
Bây giờ bạn có thể mở file Excel ra để kiểm tra. Bạn click vào tab REVIEW
, tại đây bạn có thể thấy mục Protect Sheet
của chúng ta đã được mở. Bây giờ bạn đã có thể chỉnh sửa các dữ liệu trong Sheet Excel của mình rồi.
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
.
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 😀
Lời kết
Như vậy là mình vừa hướng dẫn rất chi tiết cho các bạn 2 cách phá mật khẩu của Sheet trong Excel mà không cần sử dụng phần mềm rồi nhé.
Và mình vẫn khuyên các bạn nên sử dụng theo cách thứ 1, bởi nếu đã làm được một lần rồi thì lần sau sẽ rất dễ dàng. Bạn cũng chả cần phải chuẩn bị gì nhiều, chả cần phải có công cụ hay đoạn code nào cả, chỉ cần nhớ cách làm là được rồi…
Hi vọng bài viết sẽ hữu ích với bạn. Chúc các bạn thành công !
Tác giả bài viết: Thanh Sơn
Ý kiến bạn đọc
Những tin mới hơn
Những tin cũ hơn