November 19, 2020

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

Cách xóa iCloud, Mở khóa hệ thống mới Đã kích hoạt Khóa Thủ thuật mới 2020

June 4, 2020

June 4, 2020 44

Hướng dẫn mở khóa icloud iphone 6 , 7 , 8, X đơn gian nhất Hướng dẫn mở khóa icloud...

cách bật và tắt win 10 tự động update chỉ bằng cú nhấp chuột

June 8, 2020

June 8, 2020 24

cách bật và tắt win 10 tự động update chỉ bằng cú nhấp chuột 🔰cách tắt User Account Control trên...

Xóa xác minh tài khoản Google cho Samsung J2 Prime (G532) – New 2017

June 12, 2020

June 12, 2020 34

Samsung Galaxy J2 Prime ở phiên bản cập nhật mới đã fix cách dùng tool gọi điện, fix mở trình...

Mơ thấy bị mất tiền đánh con gì số mấy

June 6, 2020

June 6, 2020

Mơ thấy bị mất tiền đánh con gì số mấy Đăng ký chơi lô đề online tỉ lệ 1 ăn...

Cách chèn một trang trắng vào vị trí bất kỳ trong Word 2013

June 13, 2020

June 13, 2020 10

Khi bạn đang soạn thảo giáo án bằng Word 2013, trong giáo án này có rất nhiều trang và tất...

[HOT] Dùng ICCID mở khoá iPhone Lock thành Quốc Tế không cần sim ghép

May 26, 2020

May 26, 2020 21

👆👆👆 Nếu thấy clip hay các bạn đừng ngần bạn bấm LIKE và nhớ SUBSCRIBE kênh Youtube của Đức Huy...

Mở Rộng Hình Ảnh Trong 1 Phút Photoshop

May 29, 2020

May 29, 2020 46

🔥 HÌNH ẢNH SỬ DỤNG TRONG VIDEO: 🔥 CÓ THỂ BẠN MUỐN XEM: 🔥 DONATE: Nếu bạn thích những video...

Mơ nhặt được điện thoại đánh con gì? Giải mã giấc mơ thấy điện thoại

May 28, 2020

May 28, 2020 3

Chào mừng các bạn đến với kênh Video giải mộng giấc mơ – Tử vi tướng số 2019. Mơ nhặt...

Cách mở khóa facebook account vô hiệu hóa 2020 Full | Minh kiệt tg

June 4, 2020

June 4, 2020 42

#Minhkiettg #unblockfacebook2020 #mokhoafacebook2020 ———————————————————————————- ” ĐỐI TÁC HỔ TRỢ FACEBOOK ” √ SỬ DỤNG DỊCH VỤ MỞ KHÓA HỖ TRỢ...

Ẩn, hiện thanh Ribbon trong excel 2003, 2007, 2010, 2013, 2016,….

June 7, 2020

June 7, 2020 4

✅ Hướng dẫn cách ẩn hoặc hiện thanh menu ribbon trong excel 2003, 2010, 2015, 2013, một cách nhanh gọn,...

Spice 1 – Mo' Mail (ft. E-40)

June 5, 2020

June 5, 2020 30

Lyrics: (E-40) Ah fuck it Ah y’all got your nigga E-40 in this motherfucker I buzz I put a step...

Mẹo giúp Touch ID trên iPhone hoạt động nhạy như mới!

June 15, 2020

June 15, 2020 25

TRUE SMART Hệ Thống Sửa Chữa Điện Thoại Uy Tín Số 1 Hà Nội Khách Hàng Xem Trực Tiếp –...

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

June 7, 2020

June 7, 2020 8

cách lấy lại nick facebook khi bị vô hiệu hóa 2020 🔰Liên hệ Zalo 0932490170 🔰 fb : chúc anh...

Lỗi Xác minh ID Apple, ID Apple Đã Bị Khóa, Tài khoản của bạn bị vô hiệu hóa

May 27, 2020

May 27, 2020 3

Lỗi Xác minh ID Apple, ID Apple Đã Bị Khóa, Tài khoản của bạn bị vô hiệu hóa Video này...

Laptop sáng đèn nguồn nhưng không lên màn hình (Khắc phục cực đơn giản) Áp dụng cho nhiều loại máy

June 10, 2020

June 10, 2020 23

LINK MUA SP: LAPTOP BẬT NGUỒN SÁNG ĐÈN KHÔNG LÊN HÌNH LÀM THEO LÀ ĐƯỢC 📺 No2 – REVIEW CÁC...

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 *