1. Hãy dành vài giây Đăng nhập hoặc Đăng ký tài khoản để truy cập và sử dụng TBit hiệu quả nhất.
    Ẩn thông báo
  2. Bạn hãy like trang Facebook của TBit để nhận được tin tức công nghệ nhanh nhất từ chúng tôi.
    Ẩn thông báo

Hướng dẫn phá Pass Protect sheet trong Excel không cần phần mềm

Thảo luận trong 'Tin học văn phòng' bắt đầu bởi xuantruongit1410, 28/10/14.

0/5, 0 phiếu

    1. xuantruongit1410 TBit-Member

      Cách phá Password Excel không cần phần mềm, phá pass sheet excel, phần mềm phá pass excel hiệu quả, phá mật khẩu excel.
      • Cách làm trong Excel 2007/2010 như sau: bấm Alt + F11 để hiện ra bảng Visual Basic Editor rồi sau đó thực hiện theo bước 3 như phía dưới.
      • Cách làm trong Excel 2003 như sau:
      1. Mở file Excel có chứa các Sheet có pass.

      2. Chọn menu Tools -> Macro -> Visual Basic Editor.

      3. Nhấp đúp vào Sheet mà bạn muốn phá pass
      Nếu bạn chưa thấy các Sheet bên phía trái của màn hình thì bấm: Ctrl + R để hiện các Sheet. (Nhiều máy khi bấm Alt + F11 thì không thấy cửa sổ bên trái hiện các Sheet).

      4. Copy đoạn mã sau vào và nhấn menu Run -> Run Sub/UserForm (hoặc nhấn F5).

      [​IMG]

      5. Máy hỏi bạn có muốn xử lý nó không ? Nếu muốn bấm YES.

      [​IMG]

      6. Bạn chờ một lúc máy sẽ phá Pass cho bạn. Và có thông báo sau khi phá Pass thành công.

      [​IMG]

      Mã hoạt động:

      Mã (Text):
      1. Sub PasswordBreaker()
      2. If ActiveSheet.ProtectContents = False Then
      3.     MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
      4. Else
      5.     If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, do you want to unprotect it?", _
      6.     vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub
      7.     Dim i As Integer, j As Integer, k As Integer
      8.     Dim l As Integer, m As Integer, n As Integer
      9.     Dim i1 As Integer, i2 As Integer, i3 As Integer
      10.     Dim i4 As Integer, i5 As Integer, i6 As Integer
      11.     On Error Resume Next
      12.     For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
      13.     For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
      14.     For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
      15.     For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
      16.         ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
      17.         Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
      18.         Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
      19.     Next: Next: Next: Next: Next: Next
      20.     Next: Next: Next: Next: Next: Next
      21.     If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
      22. End If
      23. End Sub
      Xong!

      Lưu ý quan trọng:

      - Lưu file dưới dạng (save as) sau khi hoàn thành, hoặc lưu ngay sang file khác từ khi mới mở: lý do là một số bạn tải file từ mạng về nên mặc định file chỉ đọc (Read only), khi đó mình đã gặp lỗi: mở lại file thì báo nhập mật khẩu file excel, công cốc! [​IMG] Save as file sang tên mới cũng là để backup 1 file khác, đề phòng trong quá trình làm mất điện, máy yếu –>gây ra lỗi file gốc ngoài ý muốn.

      - Bài hướng dẫn này dành cho việc phá mật khẩu password ở sheet: File ở chế độ protect readonly: Trường hợp này bạn cần bỏ protect readonly mới đổi được. Có thể cần mật khẩu mới có thể bỏ được protect. Lưu ý dạng khoá file này khác hoàn toàn với sheet protected.

      – File có quá nhiều sheet, định dạng, dữ liệu và công thức trên Excel 2003 trở về trước: Các excel phiên bản cũ (2003 về trước) không hỗ trợ file quá nhiều sheet, định dạng, dữ liệu và công thức, nó sẽ có nhiều lỗi xảy ra, nhẹ nhất là không copy hay edit được, nặng thì mất toàn bộ định dạng và công thức. Trong trường hợp này cách duy nhất là dùng Excel 2007 hoặc mới hơn.



      Chúc các bạn thành công!
       
      Admin thích bài này.
      Đang tải...

Chia sẻ trang này

Đang tải...