Các bạn phá pass Sheet bị Protect với đoạn code sau : Sub PasswordBreaker() 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) If ActiveSheet.ProtectContents = False Then ActiveWorkbook.Sheets(1).Select Range(“a1”).FormulaR1C1 = Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub (Code sưu tầm Echip ) Cách sử dụng : Các bạn chọn Sheet bị Protect , bấm phải chuột, chọn View Code, bấm phím tắt Alt + F11 Paste đoạn code vào RUn Chờ khoảng 1-2 phút xong Pass bị phá bạn nhập liệu bình thường Chúc bạn thành cơng Thân Nhu cầu bảo mật nên thường đặt mật khẩu cho file Excel để bảo vệ sớ liệu tính tốn Nhưng nếu chẳng may qn mật khẩu thiết lập thật phức tạp Bài viết sau sẽ hướng dẫn bạn cách thức “chữa cháy” trường hợp Đơi ḿn bí mật cho dữ liệu mình, bạn thường đặt mật khẩu file excel để đảm bảo độ an toàn Nhưng sau thời gian dài không sử dụng, việc quên mật khẩu cũng chuyện thường xảy Hoặc sử dụng dữ liệu từ file excel bạn rồi tự ý đặt mật khẩu mà không cho bạn biết… Tuy nhiên, với sự giúp đỡ tiện ích đây, chuyện sẽ đơn giản nhiều Gỡ bỏ mật khẩu bảo vệ với Excel Password Remover 2008 Excel Password Remover 2008 add-in Excel, giúp bạn loại bỏ toàn mật khẩu bảo vệ Excel Với sự giúp đỡ add-in này, bạn thay đởi nội dung sheet hay workbook Excel mà không cần phải biết mật khẩu Rất tiếc, add-in lại không giúp bạn trường hợp file Excel chỉ đặt mật khẩu bảo vệ chống lại việc chỉnh sửa nội dung, chứ không giúp bạn trường hợp file được đặt mật khẩu chống truy cập Tuy nhiên, thông thường, mật khẩu đặt file Excel thường dạng bảo vệ để chống thay đổi nội dung bảo vệ để chống truy cập, vậy, về add-in cũng hữu ích cho bạn Sau download, sử dụng Winrar Winzip để giải nén, bạn sẽ được file password.xla Bây giờ, kích hoạt chương trình Excel Tại giao diện chương trình, click Tools, chọn Add-Ins http://www.quantrimang.com.vn/photos/image/112008/20/Excel-pass1.jpg Cửa sổ Add-Ins Bạn click vào Browse, tìm đến file xla ở chọn OK Sau đó, khởi động lại Excel để Add-In có tác dụng Tiếp theo, bạn mở file Excel được đặt mật khẩu bảo vệ, chọn Tools Lúc sẽ có hai tùy chọn nằm ở tùy chọn Tools Unprotect Sheet Unprotect Workbook http://www.quantrimang.com.vn/photos/image/112008/20/Excel-pass2.jpg Tương ứng với file Excel được đặt mật khẩu bảo vệ Sheet hay Workbook, bạn chọn hình thức gỡ bỏ passwork thích hợp Trong trình thử nghiệm, người viết thử đặt mật khẩu phức tạp, bao gồm chữ thường, chữ in hoa, kí tự sớ… Excel Passwork Remover sẽ khoản phút để hồn thành cơng việc Khá nhanh chóng hiệu Sau cơng việc hồn thành, cửa sở sẽ hiển thị để thơng báo cho bạn biết Bây giờ, bạn thay đổi nội dung bên Sheet Workbook Excel mà không gặp bất kỳ vấn đề về mật khẩu http://www.quantrimang.com.vn/photos/image/112008/20/Excel-pass3.jpg Tải phần mềm địa chỉ: http://s4u.vnexpress.net/details.php?id=8858 Lưu ý: Add-In chỉ sử dụng cho Excel 2000, XP 2003 Excel 2007 có khả mã hóa mạnh nên việc bẻ khóa mật khẩu phức tạp nhiều Password Sheet Excel - Cách mở mà không cần phần mềm Cách làm sau: Mở file Excel có pass Chọn menu Tools -> Macro -> Visual Basic Editor Nhấp đúp vào Sheet mà bạn muốn phá pass Copy đoạn mã sau vào nhấn menu Run -> Run Sub/UserForm Máy hỏi bạn có ḿn CHƠI khơng ? Nếu ḿn bấm YES Bạn chờ lúc máy sẽ phá Pass cho bạn Có thơng báo sau phá Pass Sao mà ghét thằng không muốn chia sẻ thông tin cho người khác ghê Sub PasswordBreaker() If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation Else If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, 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 ... với Excel Password Remover 2008 Excel Password Remover 2008 add-in Excel, giúp bạn loại bỏ toàn mật khẩu bảo vệ Excel Với sự giúp đỡ add-in này, bạn thay đổi nội dung sheet hay workbook Excel. .. sử dụng cho Excel 2000, XP 2003 Excel 2007 có khả mã hóa mạnh nên việc bẻ khóa mật khẩu phức tạp nhiều Password Sheet Excel - Cách mở mà không cần phần mềm Cách làm sau: Mở file Excel có pass... khác ghê Sub PasswordBreaker() If ActiveSheet.ProtectContents = False Then MsgBox "Sheet ''" & ActiveSheet.Name & "'' is unprotected!", vbInformation Else If MsgBox( "Sheet ''" & ActiveSheet.Name &