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.