August 30, 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

Hướng dẫn khóa dữ liệu không cho chỉnh sửa trong Excel

June 15, 2020

June 15, 2020 5

CÁCH KHÓA DỮ LIỆU KHÔNG CHO CHỈNH SỬA TRONG EXCEL. Gồm 3 trường hợp sau: – Khóa chỉnh sửa dữ...

8 bước sửa lỗi mất cảm biến tiệm cận trên iPhone 6S | Điện Thoại Vui

May 27, 2020

May 27, 2020 24

Trong quá trình sử dụng điện thoại, cảm biến tiệm cận sẽ tự động điều khiển tắt màn hình khi...

IPHONE Thoát VÔ HIỆU HOÁ, MÁY quên mật khẩu IPHONE 4 (cần tk icloud)

May 25, 2020

May 25, 2020 41

SaoReThe.Com Bí kíp giúp IPHONE 4 thoát VÔ HIỆU HOÁ, MÁY quên mật khẩu PASS CODE (cần tk icloud) –...

Vì Sao FBI Không Thể Mở Khóa iPhone Nếu Apple Không Can Thiệp

June 14, 2020

June 14, 2020 47

Link mua iPhone 11 : Link mua iPhone 11 Pro : Link mua iPhone 11 Pro Max: 📣 ShopDunk –...

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...

Cách mở nút home ảo trên iphone 6, 6s, 6s plus, 7, 7 plus, 8, 8 plus, X, 11

June 6, 2020

June 6, 2020 13

Cách mở nút home ảo trên iphone 6, 6s, 6s plus, 7, 7 plus, 8, 8 plus, X, 11 mới...

Khắc phục lỗi Laptop không lên màn hình||Fix a blank or black screen not powering up issues laptop

June 15, 2020

June 15, 2020 30

Hướng dẫn tất cả các bạn tự sửa Laptop tại nhà bằng cách đơn giản nhất,trường hợp khi máy không...

Điều khiển máy lạnh bằng Smartphone từ xa | Điện máy XANH

May 28, 2020

May 28, 2020 36

Điều khiển từ xa trên máy lạnh bằng Smartphone Bạn có bao giờ nghĩ rằng có thể điều khiển một...

Phần 1.3: Làm chủ Layer trong Photoshop

June 4, 2020

June 4, 2020 27

Trong bài này, chúng ta sẽ học các thao tác liên quan đến Layer (lớp ảnh) trong Photoshop, từ việc...

LG Service Remote Control Rules

May 30, 2020

May 30, 2020 10

So you want to know how to use the LG service remote? These are the four rules if you need...

Điều hòa không bật được, sửa điều hòa đơn giản mà

June 17, 2020

June 17, 2020 33

Điều hòa không bật được, sửa điều hòa đơn giản mà Video này hướng dẫn các bạn chính xác là...

Hướng dẫn tháo lắp + vệ sinh Laptop Dell Inspiron 5458!

June 5, 2020

June 5, 2020 12

Hãy LICK “SUBSCRIBE” để nhận thêm nhiều VIDEOS bổ ích nhé! Hoặc truy cập Fanpage của chúng tôi: MÁY TÍNH...

MỞ PHÒNG NÉT NĂM 2019 CẦN BAO NHIÊU VỐN – 100 TRIỆU MỞ PHÒNG NÉT LẬP NGHIỆP Ở QUÊ ĐƯỢC KHÔNG | TDN

June 12, 2020

June 12, 2020 25

MỞ PHÒNG NÉT NĂM 2019 CẦN BAO NHIÊU VỐN – 100 TRIỆU MỞ PHÒNG NÉT LẬP NGHIỆP Ở QUÊ ĐƯỢC...

Cách Mở Khoá iPhone Bị Vô Hiệu Hóa Kết Nối iTunes

June 14, 2020

June 14, 2020 41

Thành Trung Mobile 0909.650.650 Hướng dẫn Cách Mở Khoá iPhone Bị Vô Hiệu Hóa Kết Nối iTunes. FanPage Facebook: Nhiều...

Cách điều khiển Android Tivi Sony bằng điện thoại • Điện máy XANH

June 2, 2020

June 2, 2020 50

Việc dùng điện thoại thay cho remote tivi có những ưu điểm như kết nối không dây bằng sóng wifi...

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 *