Gỡ bỏ password trong Excel

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.. Không sao, 3 thủ thuật dưới đây sẽ giúp

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ỉ: http://www.straxx.com/excel/password.xla (35KB) 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ả

Được đăng bởi vision9x vào lúc 19:29

Phản ứng: