Bạn quên mật khẩu excel và không biết làm như thế nào để phá bỏ nó. Ở bài viết này, mình xin được chia sẻ đến các bạn cách phá Password Excel không dùng phần mềm đơn giản và dễ dàng.

Bài viết liên quan :

Như các bạn đã biết thì việc phá password excel hoàn toàn không phải là dễ dàng gì đối với những người không giỏi về máy tính. Nhiều bạn nghĩ rằng khi mình mất mật khẩu của file dữ liệu excel thì cần phải ra tiệm sửa chữa máy tính nhờ thợ hoặc làm điều gì cao siêu lắm thì mới có thể lấy lại được dữ liệu đó. Nhưng không, bài viết này mình sẽ chia sẻ đến toàn bộ những ai không biết một cách cực kì dễ dàng bạn có thể loại bỏ được password khi bị quên




Hướng dẫn cách phá Password Excel không dùng phần mềm

Ở bài viết này, mình sẽ thực hiện với bộ excel 2003 các thao tác của những phiên bản này hoàn toàn giống nhau. Thế nhưng, đối với các phiên bản đời cao hơn như 2007, 2010… trở đi thì các bạn cần phải làm bước nữa đó là mở bảng Visual Basic Editor lên trước rồi mới thực hiện các bước tiếp theo

Bước 1 : Đầu tiên, bạn cần mở file Excel mà bạn muốn phá password

Bước 2 : Bây giờ, các bạn nhấn vào menu Tool chọn Macro. Sau đó, bạn tìm đến Visual Basic Editor và nhấn vào đó

Bước 3 : Tiếp đến, bạn nhấn vào Sheet để tiến hành phá password ( Nếu như bạn thực hiện bước 3 này mà không tìm thấy sheet mình cần phá mật khẩu thì có thể nhấn tổ hợp phím Ctrl + R để hiện nhé )



Bước 4 : Ở bước này, các bạn cần copy dòng mã code phía dưới  và vào Run chọn Run Sub/UserForm ( bạn cũng có thể sử dụng phím tắt F5 nhé )

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

Dưới đây là một hình ảnh minh họa cho bước thực hiện vừa xong của mình

Bước 5 : Ở bước này, hệ thống sẽ hiển thị lên 1 bảng thông báo ( đại khái là hỏi bạn có muốn xử lý sheet đó không ). Nhấn Yes để tiếp tục như ảnh minh họa

Bước 6 : Sau khi xong, thì các bạn chỉ cần đợi cho đến khi hệ thống của excel hiện ra bảng thông báo như ảnh minh họa bên dưới là hoàn thành công cuộc phá password thành công mĩ mãn nhé