Với cách làm sau đây sẽ tiến hành mở khóa password Excel đối đa 4 ký tự số. Các bạn có thể làm như sau:
Bước 1: Mở file Excel trắng bằng cách chọn Fil/New hoặc bấm Ctrol+N.
Bước 2: Nhấn chọn tổ hợp phím Alt F11 trên bàn phím để mở công cụ Microsoft Visual Basic for Application (VBA).
Bước 3: Từ thanh công cụ chọn menu sau đó chọn insert -> Module.
Bước 4: Sao chép đoạn mã dưới đây vào trong module vừa được mở.
Sub Breakpassword()
Dim i As Long
i = 0
Dim ConVerTyPe As String
Dim FileName As Variant
On Error Resume Next
Set oFD = Application.FileDialog(msoFileDialogOpen)
ConVerTyPe = "*.xls;*.xlsm;*.xlsx" & ";*.xlsb;*.xla;*.xlam"
ConVerTyPe = "(" & ConVerTyPe & ")," & ConVerTyPe
FileName = Application.GetOpenFilename(filefilter:="Excel " & ConVerTyPe, MultiSelect:=False)
If FileName = "" Or FileName = False Then Exit Sub
Application.ScreenUpdating = False
Line2: On Error GoTo Line1
Workbooks.Open FileName, False, True, , i & ""
MsgBox "Password is: " & i
Application.ScreenUpdating = True
Exit Sub
Line1: i = i + 1
If i > 9999 Then MsgBox "Password not find": Application.ScreenUpdating = True: Exit Sub
Resume Line2
End Sub
Bước 6: Sau khi chờ đợi sẽ tìm ra thông báo nội dung password và đồng thời mở file đó lên. * Chú ý: Vì quá trình dò tìm từng password nên sẽ lâu và mất thời gian vì vậy đoạn code trên chỉ giới hạn dò tìm password là số tối đa chỉ 4 ký tự. Nếu file có chứa password các ký tự khác hoặc số ký tự nhiều hơn 4 bạn nên dùng phần mềm chuyên dụng khác sẽ chạy nhanh hơn.

