Hướng Dẫn Cách Bỏ Mật Khẩu Trong Excel 2007, 2010, 2013, 2016, 2019

Với tính chất các bước của một số người yên cầu tính bảo mật cao, thì để password mang lại file dữ liệu là điều rất đề xuất thiết, trong Excel cũng vậy.Bài viết sau đang hướng dẫn cụ thể cho bạn cách đặt password đến file Excel một cách đơn giản và dễ dàng nhất trên nền Microsoft Excel 2013.

Bạn đang xem: Cách bỏ mật khẩu trong excel

NỘI DUNG TRẮC NGHIỆM

1.Mở files Excel rất cần phải bảo mật

 

 

2. Vào file, chọn Info sau đó chọn Encrypt with Password vào Protect Workbook

 

3. Hộp thoại Encrypt Document xuất hiện

Bạn hãy nhập mật khẩu nhưng mình muốn

 

Và xác thực lại mật khẩu

 

4. Khám nghiệm sự thành công

Các bạn hãy ngừng hoạt động sổ trang tính đang sử dụng và mở lại, hôm nay cửa sổ Password xuất hiện và chúng ta phải nhập mật khẩu để đăng nhập.

 

 

Vậy, sau thời điểm đã đặt password thành công, có thể bạn ko nhớ password cơ mà mình đặt, yêu cầu làm cố gắng nào?

Cũng giống như các áp dụng khác, chúng ta cũng cần một trong những phần mềm cung cấp nào đó.

Xem thêm: Địa Điểm Đẹp Ở Thái Nguyên, Kinh Nghiệm Phượt Tự Túc Giá Rẻ A

Tuy nhiên, vẫn có phương pháp để bạn phá bỏ password mang đến sheet đã đặt mà lại không bắt buộc sự hỗ trợ nào khác

1. Mở tệp tin Excel đã bị khóa

2. Mở visual basic Editor bằng cách nhấn nút Alt+ F11 với excel: 2003,2007,2010. Với excel 2013 trở lên trên thì lựa chọn Developer trên thanh luật pháp rồi chọn visual basic Editor

3. Chọn sheet yêu cầu mở khóa

4. Xào luộc mã code vào 

Sub PasswordBreaker()

If ActiveSheet.ProtectContents = False Then

MsgBox "Sheet "" và ActiveSheet.Name và "" is unprotected!", vbInformation

Else

If MsgBox("Sheet "" và ActiveSheet.Name & "" is protected, bởi you want khổng lồ 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 khổng lồ 66: For k = 65 khổng lồ 66

For l = 65 khổng lồ 66: For m = 65 khổng lồ 66: For i1 = 65 lớn 66

For i2 = 65 to 66: For i3 = 65 to 66: For i4 = 65 to lớn 66

For i5 = 65 to lớn 66: For i6 = 65 to lớn 66: For n = 32 to 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) và Chr(m) & Chr(i1) và Chr(i2) & Chr(i3) và _

Chr(i4) và Chr(i5) và Chr(i6) & Chr(n)

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

If ActiveSheet.ProtectContents = False Then MsgBox "Sheet "" và ActiveSheet.Name và "" is unprotected!", vbInformation