Hướng dẫn dưới đây không khuyến khích phá mật khẩu của các tệp Excel 2016 liên quan đến quyền riêng tư cá nhân của người khác. Bài viết chỉ nhằm hỗ trợ người dùng trong trường hợp quên mật khẩu của tệp Excel 2016 mà họ đang sử dụng.
Bí quyết phá mật khẩu Excel 2016
Hướng dẫn mở khóa Excel 2016
Để phá mật khẩu tệp Excel trên Excel 2016, bạn chỉ cần thực hiện theo các bước sau đây:
Bước 1: Mở tệp Excel chứa Sheet cần phá mật khẩu. Vì tệp có mật khẩu nên bạn không thể Copy, Cut hoặc thao tác gì khác. Khi thao tác, bạn sẽ nhận thông báo như hình dưới:
Bước 2: Nhấn OK để đóng cửa sổ tại Bước 1
Bước 3: Chọn Sheet mà bạn muốn phá mật khẩu. Nếu chưa thấy các Sheet ở phía bên trái màn hình, bạn có thể nhấn tổ hợp phím Ctrl + R để hiển thị chúng.
Bước 4: Sao chép đoạn mã VBA dưới đây:
Function PhaMatKhau()
If ActiveSheet.ProtectContents = False Then
MsgBox 'Sheet '' & ActiveSheet.Name & '' chưa được bảo vệ!', vbInformation
Else
If MsgBox('Sheet '' & ActiveSheet.Name & '' đang được bảo vệ, bạn có muốn bỏ bảo vệ không?', _
vbYesNo + vbQuestion, 'Bỏ Bảo Vệ Sheet') = vbNo Then Exit Function
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 In 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)
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
If ActiveSheet.ProtectContents = False Then MsgBox 'Sheet '' & ActiveSheet.Name & '' chưa được bảo vệ!', vbInformation
End If
End Function
Sau đó, bạn dán (paste) vào cửa sổ mới xuất hiện -> tiếp theo, bạn chọn menu Run ->rồi click vào Run Sub/UserForm (hoặc nhấn phím tắt F5).
Bước 5: Hộp thoại xuất hiện với Unprotect Active Sheet -> nhấn Yes để xác nhận tiếp tục xử lý.
Bước 6: Đợi một chút để ứng dụng tự động phá mật khẩu cho bạn. Khi thành công, thông báo sẽ xuất hiện như hình dưới:
Vậy là bạn vừa Thành công trong việc phá mật khẩu Excel 2016 . Các bước thực hiện khá đơn giản và không khó khăn chút nào. Bạn không cần tìm kiếm ứng dụng hoặc phần mềm đặc biệt để phá mật khẩu cho file Excel của mình.
Nếu bạn đang sử dụng Excel 2013, Excel 2010, 2007, 2003, hãy xem ngay cách phá mật khẩu Excel trên những phiên bản đó mà Mytour đã chia sẻ. Chúc bạn thành công!