Quên mật khẩu bảo vệ Sheet trong Excel

Bạn đọc lưu ý:
+Không hỏi sự cố bằng cách nhắn tin qua điện thoại di động.
+Tác giả đã hoàn thành CD dạy Word bằng Video, dạy Photoshop bằng Video
Giá: 50.000đ/1CD mua tại nhà, nếu gửi qua bưu điện 60.000đ/1CD
Nếu ai chưa có người yêu
Cứ mua 1 đĩa buổi chiều có ngay
Đĩa này xem ngay hay hết ý
Xem 1 tý chết cũng sướng đời

1-Quên mật khẩu bảo vệ bảng tính ExcelXP.
Để bảo mật bảng tính Excel không cho người khác táy máy vào bảng tính bằng cách thiết lập chế độ bảo vệ chỉ cho xem, không cho thêm bớt cột và hàng, cấm xóa các dữ liệu trong Sheet, để bảo vệ Sheet bạn mở bảng tính cần bảo vệ, nháy vào Tools\Protect\Protect Sheet, nhập mật khẩu bấm OK, nhập lại mật khẩu, bấm OK sau đó ấn CTRL+S để ghi lại. Tuy nhiên trong thực tế do đãng trí bạn không tài nào nhớ nổi mật khẩu do chính mình thiết lập. Vậy muốn gỡ bỏ mật khẩu bảo vệ bảng tính làm thế nào? Để giải quyết vấn đề này bạn làm như sau:

Bước 1: Bạn Copy đoạn mã trên Blog này để xóa mật khẩu Sheet.

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

Bước 2: Tiến hành xóa mật khẩu Sheet.
+Để xóa mật khẩu bảo vệ Sheet bạn khởi động chương trình ExcelXP.
+Nháy vào File\Open và chỉ ra đường dẫn tới ổ đĩa, thư mục chứa, nháy vào tập tin Excel đã bị quên mật khẩu (Chỉ cho xem nội dung).
+Nháy chuột phải vào Sheet 1 chẳng hạn chọn mục View Code.


+Bạn dán đoạn mã vào.



+Nháy vào Run \ Run Sup/USEFrom hoặc bạn có thể ấn phím F5 cũng được.


+Bạn chờ hơn 1 phút để chương trình thực thi lệnh, bây giờ bạn có thể nhập được chữ hoặc số trong Sheet1 thật là thuận tiện.

Posted in: Excel