Cách gỡ bỏ Password trong Excel

Cách gỡ bỏ password trong Excel
Để bảo vệ các file Excel không cho người khác in, rút trích thông tin bạn thường đặt mật khẩu chống sửa đổi nội dung. Nhưng do sơ ý bạn lại quên mất mật khẩu này. Không sao, 3 thủ thuật dưới đây sẽ giúp bạn loại bỏ mật khẩu bảo vệ các Sheet hay Workbook một cách nhanh chóng và dễ dàng. 1. Dùng tiện ích Excel Password Remover 2009 (ER09): một add-in của Excel giúp loại bỏ mật khẩu bảo vệ các Sheet hay Workbook để chống thay đổi nội dung. ER09 tương thích với Excel 2000, XP and 2003, được cung cấp miễn phí ở địa chỉ: sau đây Sau khi tải về, bạn mở Excel, nhấp chọn menu Tools > Add-Ins. Trong hộp thoại xuất hiện bạn nhấn Browse chỉ đường dẫn đến file password.xal vừa tải về rồi bấm Ok. Khởi động lại Excel để Add-In phát huy tác dụng. Tiếp theo, bạn mở file Excel có đặt mật khẩu chống chỉnh sửa nội dung, nhấp chọn menu Tools. Chọn Unprotect Sheet hay Unprotect Workbook trong trình đơn ngữ cảnh để loại bỏ mật khẩu bảo vệ Sheet hay Workbook. Lưu ý: Nếu trong quá trình sử dụng AR09 hộp thoại cảnh báo Macros are disabled…xuất hiện, bạn bấm OK. Sau đó, vào menu Tools > Options, trong hộp thoại xuất hiện, bạn chọn thẻ Security, nhấn nút Macro Security. Đánh dấu chọn mục Low trong thẻ Security Level rồi bấm Ok. 2. Dùng đoạn mã Visual Basic: bạn cũng có thể tự tay xóa mật khẩu bảo vệ các Sheet mà không cần dung đến ER09, cách thực hiện như sau: Mở file Excel, nhấp phải chuột lên Sheet đã được bảo vệ chọn View Code. Cửa sổ Microsoft Visual Basic xuát hiện, bạn dán đoạn mã 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 vào khung trống. Tiếp đến, nhấp chọn menu Run > Run Sub/UserForm (hay nhấn F5) rồi đợi trong giây lát để chương trình xử lý. Xong, bạn đóng cửa sổ Microsoft Visual Basic và thử nhập liệu vào file Excel bạn sẽ thấy điều kỳ diệu. 3. Sử dụng dịch vụ trực tuyến Excel Spreadsheet Unlock Online Utility: truy cập vào địa chỉ http://www.ensode.net/xls-crack.jsf, nhấn nút Browse chọn file Excel cần xóa bỏ mật khẩu, đánh dấu chọn mục I accept the terms and conditions rồi nhấn Submit. Đợi trong giây lát để dịch vụ xử lý. Hoàn tất, hộp thoại Download xuất hiện, bạn nhấn Save để lưu lại file kết quả.