Gỡ bỏ mật khẩu bảo vệ Sheet của Excel

Gỡ bỏ mật khẩu bảo vệ sheet của Excel
Để bảo vệ các tập tin Excel khỏi sự sửa chữa, bạn thường thiết lập mật khẩu bảo vệ (menu Tools > Protection > Protect sheet). Nhưng nếu một ngày xấu trời nào đó bạn cần chỉnh sửa gấp một tập tin Excel nhưng lại không thể nhớ mật khẩu là gì thì thiệt khổ! Nếu bạn “ráng” chỉnh sửa thì sẽ nhận được thông báo như sau:


Để giải quyết sự cố này, có một giải pháp rất hiệu quả mà cách thực hiện lại đơn giản. Trước tiên, bạn mở tập tin Excel cần sửa, chọn menu Tools > Macro > Visual Basic Editor và nhấp đúp vào Sheet đã tạo mật khẩu bảo vệ. Tiếp theo, bạn nhập đoạn mã sau vào và nhấn menu Run > Run Sub/UserForm để chạy. Bạn chờ một lúc, sau khi hoàn tất bạn trở lại bảng tính Excel và bây giờ thì bạn có thể chỉnh sửa dữ liệu được rồi! Sub PasswordBreaker() 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 ActiveWorkbook.Sheets(1).Select Range(“a1”).FormulaR1C1 = 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