Hướng dẫn phá mật khẩu bảo vệ sheet trong Excel

Excel là một công cụ tuyệt vời cho tính toán, phân tích dữ liệu, đặc biệt dành cho dân văn phòng. Excel cung cấp một tính năng rất hay, đó là "bảo vệ" khóa một vùng dữ liệu, hoặc cả sheet để ngăn chặn sự can thiệp không mong muốn.Tuy nhiên trong quá trình sử dụng Excel, đôi lúc bạn bỗng sao nhãng, không nhớ được mật khẩu bảo vệ, hoặc bạn có một file excel nào đó và cần thay đổi, cần xem các công thức hay ho trong những phần nội dung đã bị khóa, 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 đó thì bạn hãy làm theo các bước sau:

Yêu cầu hệ thống:

• Có phần mềm MS Office
• Có cài VBA, bạn có thể kiểm tra xem VBA đã được cài chưa bằng cách mở Excel, ấn Alt+F11, nếu nó mở ra cửa sổ Microsoft Visual Basic tức đã cài VBA, nếu nó không ra thì hãy chạy lại bộ cài MS Office, chọn update, xong tìm trong nhóm cuối cùng của các gói cài đặt sẽ thấy nó.

Các bước thực hiện:

• Mở file excel cần phá mật khẩu bảo vệ
• Ấn Alt+F11 để mở VBA
• Ấn F7 để mở cửa sổ soạn thảo mã nguồn
• Dán đoạn code bên dưới vào cửa sổ vừa mở ra đó

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 '" & MySheet.Name & "' 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) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MySheet.Unprotect pass
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
If MySheet.ProtectContents = False Then
MsgBox "Sheet '" & MySheet.Name & "' is unprotected!", vbInformation
End If
End If
End Sub

• Ấn F5, hoặc vào menu Run\Run Sub/User form để chạy đoạn mã này
• Nếu ấn 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

Chờ từ một đến vài phút (tuỳ tốc độ từng máy tính) sẽ có thông báo sheet đã được unprotect. Mỗi khi một sheet được unprotected thành công, bạn sẽ nhận được thông báo, nhớ nhấn Ok để nó unprotect sheet tiếp theo nhé.