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

Cách của bạn TranQuyThanh (I11C) là áp dụng cho Excel 2k3 nha
Còn Excel 2k7 các bạn chọn tab Review - Unprotect Sheet ùi nhập pass vào nhé