Cách vô hiệu password protect sheet trên excel

Trong nhiều trường hợp ta cần bảo vệ sheet trong excel để không cho phép người khác chỉnh sửa, thay đổi nội dung, định dạng của các sheet thì ta đặt "password protect sheet" cho sheet cần được bảo vệ.

Right click trên sheet cần đặt pass chọn "Protect sheet...", đặt pass như hình trên

   Trường hợp, chúng ta có một sheet đã được bảo vệ bằng pass thì việc chỉnh sửa sheet đó ta cần phải biết pass để unprotect, trường hợp chúng ta không biết pass thì làm theo cách sau để unprotect sheet.

   Bạn right click trên sheet cần loại bỏ password chọn "View code", một cửa sổ Vb mở ra như hình sau:

Click chuột phải lên sheet cần loại bỏ pass chọn "view code"

   Bạn copy đoạn code sau paste vào box:

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

Paste đoạn code trên vào box

   Sau đó bạn nhấn "F5" để chạy code, đợi tí ti nhé, sau khi chạy code xong bạn đóng cửa sổ vb lại, trở lại file excel thì bạn sẽ vô tư chỉnh sửa vì ta đã loại bỏ thành công pass protect sheet.

nguồn: dientudieukhien.net, code internet