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

[quote]Để 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). Nếu muốn gỡ bỏ mà bạn không nhớ mật khẩu 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 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[/quote]