[EXCEL] CODE CRACK PASSWORK SHEET IN EXCEL

Chào mọi người, bài viết này cũng đơn giản nhưng nó chưa nhiều thứ bổ ích cho mọi người tìm hiểu về nguyên lý bẻ khóa bảo mật của EXCEL trên WINDOWS, và một số hệ điều hành khác sữ dụng được EXCEL.

Như mọi người cũng đã biết về việc khóa SHEET trong EXCEL để khóa thao tác của người dùng lại và tránh bị chỉnh sữa tùy biến để ăn cắp hay làm gì ảnh hưởng đến tài liệu.

Nhưng bảo mật thể nào cũng sẽ có một số lỗi xãy ra, chứ không phải khi nào nó cũng hoàn toàn tốt cả. Và sau đây mình sẽ chia sẽ cho mọi người một đoạn code để mỡ khóa việc thao tác trên SHEET IN EXCEL đơn giản nhất.

Chúng ta bắt đầu với đoạn code bên dưới.

Bạn vào file EXCEL bị khóa đó ở sheet bạn muốn, và nhấp chuột phải chọn ở phần VIEW CODE và dán bộ code bên dưới vào và đợi 1 đến 2p là hoàn thành nhé.

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

Chúc mọi người thành công với thủ thuật này.