Code gỡ pass word trong excel

Dear all, -------- copy doan code sau ( vao excel (
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 Đoạn code đã chỉnh sửa nhằm loại bỏ các lỗi có thể xảy ra. Các bạn cũng có thể cải tiến thủ tục để truyền tham số là một Worksheet bất kỳ đang được "protected" chứ không chỉ là ActiveSheet. Chúc các bạn thành công!


hướng dẫn:

Mở trang Excel cần làm cho hiện lại toàn bộ công thức bi ẩn( Các thực hiện như sau: Trong bảng tính cần được bảo mật, bạn hãy nhấn ALT+F11 để mở cửa sổ Microsoft Visual Basic ra( nhấp dup chuột vào Sheet cần xử lí( copy doạn code đã có sẵn dán vào cửa sổ vừa mở( nhấn nút RUN trên thanh công cụ( hoặc vào menu Run chọn Run sub/ userform( ngồI đợI cho may tự xử lí khoảng 12 h( he he) jon thôi… đợI khoảng tốI đa 15 phút( nếu may có cấu hình cao thi khoảng 4 phút là xong) ( hoàn thành máy sẽ có thông báo. Chúc mi thành công.