Chắc chắn các bạn đã từng sử dụng một số phần mềm tính điểm ( thiết kế bằng excel ) được chia sẻ trên mạng rồi. Các file này luôn bị tác giả khóa vùng trong các sheet với lý do thật đơn giản là để cho người dùng không làm hỏng các hàm đã được thiết đặt sẵn. Nhưng nếu các bạn muốn xem công thức hàm hoặc chỉnh sửa theo ý mình thì cũng không có gì khó.  Hãy làm một số bước như sau:

- Trên một sheet nào đó , các bạn chỉ cần mở cửa sổ visuabasic rồi paste đoạn mã sau đây vào:

Đoạn mã như sau:

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

-  Tiếp theo là nhấp vào biểu tượng play để chạy chương trình ( run sub/ userfom ) , chờ trong  giây lát để chương trình tự dò và xóa password. ( Nếu bảng tính chứa nhiều nội dung thì thời gian dò tìm hơi lâu một chút- Bạn hãy kiên nhẫn chờ đợi! ) 

-  Cuối cùng là Save và trở lại  excel , mở sheet mà bạn đã dán đoạn mã trên  để kiểm tra.

Chúc các bạn thành công!