[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]