Mở Khóa Sheet Bằng VBA | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Giải thích, gỡ rối, xử lý lỗi công thức

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Mở khóa Sheet bằng VBA (1 người xem)

• Thread starter Thread starter Ngoc Hang Truong
• Ngày gửi Ngày gửi 23/9/20
• Thẻ Thẻ vba basic

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) N

Ngoc Hang Truong

Thành viên mới

Tham gia 23/9/20 Bài viết 2 Được thích 0 Chào các anh/chị Trước giờ em hay mở khóa file excel bằng code VBA (do file em làm thường xuất trên phần mềm xuống và bị đặt khóa để không cho chỉnh sửa), mở rất nhanh chỉ 1,2s là xong nhưng hôm nay em vẫn xài code đó, vẫn file dạng đó thì file bị đứng luôn và không chạy được. Em đã thử qua nhiều máy tính vẫn không chạy được. Xin được anh/chị chỉ giáo. Em cảm ơn nhiều ạ Code em dùng: 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

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,240 Được thích 24,793 Khả năng code này chỉ hoạt động với phiên bản Excel cũ. Phiên bản mới họ đã update về bảo mật nên có thể không thực hiện được.

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,843 Bạn gửi file lên mình làm cho nhé. Mấy cái này không cần code mà.

Doãn Quốc Bình

Thành viên chính thức

Tham gia 18/7/18 Bài viết 59 Được thích 3 Giới tính Nam Các anh/chị cho em hỏi code Protect sheet, em đang dùng code dưới để Unprotect sheet nhưnng chỉ Unprotect sheet của ActiveSheet, giờ em muốn tất các sheet đều Unprotect. trong workbook có nhiều sheet mà cứ mỗi lần chuyển sheet để UnProtect thì mất thời gian quá. Code em đang dùng: Sub PasswordBreaker() 'Breaks worksheet password protection. 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) If ActiveSheet.ProtectContents = False Then MsgBox "Mot mat khau co the su dung la: " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub Em xin chân thành cảm ơn!

Cu Tồ

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Tham gia 6/5/20 Bài viết 735 Được thích 347

Doãn Quốc Bình đã viết: UnProtect thì mất thời gian quá. Nhấp chuột vào đây để mở rộng...

Mã: Sao chép. Option Explicit Sub Mo_Khoa() Dim Ws As Worksheet 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 Each Ws In Worksheets If Ws.ProtectContents = True Then 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 Ws.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) If Ws.ProtectContents = False Then MsgBox "Mot mat khau co the su dung la: " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) GoTo chuyen End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End If chuyen: Next Ws End Sub Nếu thông báo mật khẩu mới lặp lại nhiều lần bạn không muốn nhấn enter nhiều lần thì có thể bỏ dòng lệnh thông báo đó đi Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Copilot bình luận các ván cờ vua từng ngày. (1 người xem)

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 75 Đọc 2K Hôm nay lúc 19:59 SA_DQ M Bảo mật code VBA autocad! (1 người xem)

• Michael Bit
• 9/2/26
• Hỏi đáp những vấn đề khác

Trả lời 18 Đọc 503 Hôm nay lúc 13:11 Michael Bit M T Sử dụng Google Sheets để tạo webapp nhận báo giá online

• thuctien
• Chủ nhật lúc 11:47
• Google Sheets

Trả lời 0 Đọc 104 Chủ nhật lúc 11:47 thuctien T A

• Question Question

Đã cách dòng, nhưng có Mã trùng lặp thì báo trùng

• AnhThu-1976
• 9/1/26
• Lập Trình với Excel

Trả lời 14 Đọc 637 Thứ bảy lúc 21:53 ptm0412 VNFastSearch – DLL tìm kiếm tiếng Việt tốc độ cao cho Excel VBA

• phuongnam366377
• 31/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 2 Đọc 342 Thứ bảy lúc 12:39 Maika8008 Các bạn hãy giúp mình tính tổng số ngày mà Bác Hồ sống trên nhân gian trên trang tính Excel

• • 

• SA_DQ
• Thứ sáu lúc 04:54
• Làm việc với ngày tháng và thời gian

Trả lời 3 Đọc 175 Thứ sáu lúc 11:37 SA_DQ Có thể tô màu tiêu đề bài viết để làm nổi bật giữa những tiêu đề các bài đăng khác được chăng?

• • 

• SA_DQ
• Thứ năm lúc 04:27
• Những góp ý với diễn đàn

Trả lời 1 Đọc 135 Thứ năm lúc 08:02 Hai Lúa Miền Tây H Lọc giá trị duy nhất theo cụm (1 người xem)

• hoaiantrinh
• 10/2/26
• Hàm và công thức Excel

Trả lời 7 Đọc 298 11/2/26 87kilua

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (7 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 624 Đọc 93K 11/2/26 tombongtep T N Tạo COM Add-In bằng Visual C++

• • 

• nguyendang95
• 6/7/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 18 Đọc 2K 10/2/26 nguyendang95 N

• Dán lên cao
• Suggestion Suggestion

CHÚC MỪNG NĂM MỚI BÍNH NGỌ 2026

• • 
  • 
  • 

• GPE-Trợ Lý
• 10/2/26
• Bài viết nổi bật và thông báo

Trả lời 0 Đọc 246 10/2/26 GPE-Trợ Lý L Thu Chi Gia Đình (1 người xem)

• • 

• lehang0812
• 5/2/26
• TPHCM

Trả lời 5 Đọc 313 10/2/26 nguoiconxunui N

• Đã giải quyết

FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 77 Đọc 31K 9/2/26 chothadiem

• Đã giải quyết

LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động (phiên bản 2026) (1 người xem)

• • 
  • 
  • 

• HeSanbi
• 5/3/21
• Lập Trình với Excel

Trả lời 85 Đọc 18K 8/2/26 chothadiem

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 62 Đọc 13K 7/2/26 Nguyễn Duy Tuân E Giúp Đặt tên lại (Rename) cho hàng loạt các file PDF theo cùng 1 quy tắc

• Excel my love_1
• 15/4/23
• Tin học mở rộng

Trả lời 4 Đọc 4K 6/2/26 luongha.ktqd L

• Question Question

Chia sẻ một thuật toán đơn giản để trộn cells

• • 
  • 

• Quang_Hải
• 4/2/26
• Lập Trình với Excel

Trả lời 12 Đọc 467 5/2/26 Quang_Hải TaxCode v4.33 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 19 Đọc 3K 5/2/26 HeSanbi

• Question Question

Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó

• • 
  • 

• HeSanbi
• 2/2/26
• Lập Trình với Excel

Trả lời 1 Đọc 313 4/2/26 HeSanbi Hàm EXACT

• • 

• TranThanhPhong
• 30/4/14
• Dự án: Công thức & Hàm 97-2019

Trả lời 3 Đọc 9K 3/2/26 ptm0412 Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• HeSanbi 14
• chothadiem 11
• Michael Bit 9
• YêuCN 7
• HieuCD 5
• Gà Công Nghệ 5
• DeTong 4
• Officexinh 4
• vietdang170 4
• pycckuu410 3
• chiendich 3
• hoanglocphat 3
• ptm0412 3
• SA_DQ 3
• LOGANWover 2
• VietHoangPhan 2
• Gà Con yêu VBA 2
• Quang_Hải 2
• hoaiantrinh 2
• thuctien 1

Thành viên có điểm tương tác cao nhất tháng

• HeSanbi 19
• GPE-Trợ Lý 11
• Quang_Hải 7
• SA_DQ 7
• HieuCD 6
• DeTong 5
• vietdang170 5
• Gà Con yêu VBA 4
• LOGANWover 3
• pycckuu410 3
• chiendich 3
• Phuocam 3
• Hai Lúa Miền Tây 3
• Michael Bit 3
• hungvinh1402 2
• HUONGHCKT 2
• huhumalu 2
• YêuCN 2
• Officexinh 2
• ptm0412 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Giải thích, gỡ rối, xử lý lỗi công thức

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom