January 7, 2021

Mở Khóa File Excel (2019)



Dùng đoạn code dưới đây:

Sub PasswordBreaker()
If ActiveSheet.ProtectContents = False Then
MsgBox “Sheet ‘” & ActiveSheet.Name & “‘ is unprotected!”, vbInformation
Else
If MsgBox(“Sheet ‘” & ActiveSheet.Name & “‘ is protected, do you want to 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 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)
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
If ActiveSheet.ProtectContents = False Then MsgBox “Sheet ‘” & ActiveSheet.Name & “‘ is unprotected!”, vbInformation
End If
End Sub

Nguồn: https://melhornconstruction.com

Xem thêm bài viết khác: https://melhornconstruction.com/cong-nghe/

Related Posts

Mở lại tab vừa bị đóng trên Google Chrome

June 7, 2020

June 7, 2020 2

Thông thường khi sử dụng Google Chrome, bạn sẽ mở khá nhiều tab để đọc tin tức, xem phim, nghe...

Cách mở nhanh ứng dụng bất kỳ từ Control Center trên iOS 13,không cần jailbreak

June 13, 2020

June 13, 2020 11

Hiện tại Apple chỉ cho phép người dùng thêm phím tắt chức năng trong Trung tâm kiểm soát theo các...

Cách Xóa Lịch Sử Nhạy Cảm Trên Tìm Kiếm Google | Truesmart

June 12, 2020

June 12, 2020 43

Cách Xóa Lịch Sử Trên Tìm Kiếm Google | Truesmart 🌟 Subscribe True Smart để xem ngay video mới nhất:...

Hướng dẫn mở khóa icloud iphone 7 , 8 , X thành công 100% 2020

June 9, 2020

June 9, 2020 4

1. iCloud là gì? – iCloud là một gói gồm nhiều dịch vụ đám mây miễn phí của Apple nhằm...

Cách mở tài khoản facebook khi bị vô hiệu hóa , xác minh ảnh, xác minh danh tính

June 12, 2020

June 12, 2020 40

cách lấy lại nick facebook khi bị vô hiệu hóa 2020 Bạn có thể sử dụng Facebook ngay bây giờ...

Bỏ đĩa CD vào máy tính

June 11, 2020

June 11, 2020 26

► Facebook → ► Email → phuongit9293@gmail.com – Đây là kênh chia sẻ kiến thức về công nghệ thông tin...

Xóa tài khoản google sam sung J2 pro SM j250f ll Samsung Galaxy J2 Pro SM-J250F Frp Bypass 2019

June 15, 2020

June 15, 2020 45

✪Hướng dẫn xóa xác minh tài khoản google J2 pro 2019 ✪Mở khóa tài khoản google J2 pro 2018 ✪Samsung...

Hướng dẫn tự học Vray sketchup từ cơ bản đến nâng cao phần 1

June 3, 2020

June 3, 2020 32

!!! Để giúp các bạn theo dõi một cách có HỆ THỐNG, ĐẦY ĐỦ hết các video trong chủ đề...

Cách kết nối WiFi trên máy tính đơn giản 2019 (How to connnect WiFi on Laptop)

June 10, 2020

June 10, 2020 17

✍ Chia sẻ 2 cách kết nối WiFi trên máy tính đơn giản 2019. Với 2 cách này dễ dàng...

Cách lấy nick facebook bị vô hiệu hóa bất thường | Mới nhất 2019

June 15, 2020

June 15, 2020 37

Giúp #KHÓI Đạt Cột Mốc 5000 Subscribes Nhé ! ►Link phản hồi báo cáo: ►Email đội ngũ fb: ►Link thần...

Cách chữa nút home iPhone bị liệt không bấm được

June 11, 2020

June 11, 2020 35

Với tình trạng nút Home iPhone bị liệt, người dùng chắc hẳn sẽ vô cùng khó chịu khi không thể...

Giải mã giấc mơ thấy máy bay rơi là điềm gì, đánh con gì, tốt hay xấu – susucaokhoe

June 6, 2020

June 6, 2020

Nằm mơ thấy máy bay cháy nổ đánh con 15-74 Nằm mơ thấy máy bay gặp tai nạn đánh con...

Cách mở khoá điện thoại Android khi quên Pass (áp dụng với màn hình khoá cài từ bên thứ 3)

June 9, 2020

June 9, 2020 47

Trong video này mình sẽ hướng dẫn cho các bạn cách mở khoá điện thoại Android khi quên Pass cài...

Hướng dẫn Unlock biến iPhone Lock thành Quốc tế, không cần SIM ghép.

June 14, 2020

June 14, 2020 39

Hướng dẫn mới nhất unlock biến iPhone 7 Plus, 8 Plus, X, XS Max Lock thành Quốc tế, không cần...

Hướng dẫn phá mật khẩu iCloud khi quên rất dễ dàng

June 15, 2020

June 15, 2020 49

Hướng dẫn phá mật khẩu iCloud khi quên rất dễ dàng 🌟 Subscribe True Smart để xem ngay video mới...

Comments
  • Nhận mở khóa file OFFICE (excel, word), khóa file RAR từ 2003 – 2016 với các dạng khóa: Khóa đăng nhập (protect), khóa Sheet (VBA)…

    Vui lòng gửi file vào địa chỉ: tranhoan14012010@gmail.com hoặc liên hệ 0981.396.784

    Lưu ý: Bạn phải cam kết rằng file đó thuộc quyền sở hữu của bạn.

    Hân hạnh phục vụ !

  • Thầy chia sẻ hay đấy thầy lâu ko gặp thầy khỏe ko thầy qua kênh em ủng hộ em nha

Leave a Reply

Your email address will not be published. Required fields are marked *