Dịch vụ sửa chữa

Bật Mí Cách Phá Pass Excel 2003 “Thần Tốc” Không Cần Phần Mềm

Posted on by admin

Bạn đang đau đầu vì lỡ quên mật khẩu file Excel 2003 quan trọng? Đừng lo, Service24h sẽ “mách nước” cho bạn cách phá pass Excel 2003 cực kỳ đơn giản và hiệu quả, không cần cài đặt thêm bất kỳ phần mềm nào.

“Hô Biến” Mật Khẩu Excel 2003 Chỉ Với Vài Click Chuột

Tin được không? Chỉ với vài thao tác đơn giản, bạn có thể “mở khóa” file Excel 2003 bị khóa một cách dễ dàng. Hãy cùng theo dõi nhé!

Bước 1: Mở Cửa Cho Visual Basic Editor

  • Khởi động ứng dụng Microsoft Excel và mở file Excel 2003 chứa sheet bị khóa bằng mật khẩu.
  • Click vào menu Tools > Macro > Visual Basic Editor.

Bước 2: Hiện Thị “Danh Tính” Các Sheet

  • Nếu chưa thấy danh sách các Sheet hiển thị bên trái màn hình, hãy nhấn tổ hợp phím Ctrl + R.
  • Lưu ý: Một số máy tính có thể sử dụng tổ hợp phím Alt + F11 để hiển thị danh sách Sheet.

Bước 3: Sao Chép “Bùa Giải Mật”

  • Nhấn đúp vào Sheet cần phá mật khẩu.
  • Sao chép đoạn mã “bùa giải mật” sau đây và dán vào cửa sổ Visual Basic Editor:
Sub PasswordBreaker()
If ActiveSheet.ProtectContents = False Then
  MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
Else
  If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, do you want to unprotect it?", _
  vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub
  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)
  Next: Next: Next: Next: Next: Next
  Next: Next: Next: Next: Next: Next
  If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
End If
End Sub

Bước 4: Kích Hoạt “Bùa Giải Mật”

  • Chọn menu Run > Run Sub/UserForm (hoặc nhấn phím F5).
  • Một hộp thoại sẽ xuất hiện hỏi bạn có muốn xử lý hay không. Chọn Yes để tiếp tục.

Bước 5: “Săn Sẵn” Tận Hưởng Kết Quả

  • Chờ đợi trong giây lát để quá trình “phá mật khẩu” hoàn tất.
  • Sau khi hoàn thành, bạn sẽ thấy thông báo “Sheet ‘Tên Sheet’ is unprotected!”.

Lời Kết

Vậy là chỉ với vài bước đơn giản, bạn đã có thể “giải cứu” thành công file Excel 2003 bị khóa. Hãy thử áp dụng ngay và chia sẻ kết quả với Service24h nhé! Đừng quên ghé thăm website của chúng tôi để khám phá thêm nhiều thủ thuật tin học hữu ích khác!

0911287898