Cách g]x bỏ mật khẩu trong bảng tính 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. 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ỉ:
(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ỉ 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ả.