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,238 Được thích 24,785 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,840 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

D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 20 Đọc 657 Hôm nay lúc 10:32 ptm0412 T Nhờ các Pro giúp thiết lập bảng excel

• thanhkybk
• Hôm qua, lúc 17:53
• Hàm và công thức Excel

Trả lời 2 Đọc 87 Hôm nay lúc 09:34 thanhkybk T Q Nhờ các anh chị giúp cho công thức đếm số khách hàng theo File đính kèm

• QUANSUNG
• Hôm qua, lúc 10:15
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 6 Đọc 142 Hôm qua, lúc 23:02 Cúc Hr C 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 17 Đọc 790 Hôm qua, lúc 20:38 SA_DQ D Công thức tính thuế TNCN cho người lao động nước ngoài

• Dinh Hong Nhung
• Hôm qua, lúc 10:04
• Hàm và công thức Excel

Trả lời 1 Đọc 118 Hôm qua, lúc 15:05 Phan Thế Hiệp D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc

• Dinh Hong Nhung
• 11/12/25
• Hàm và công thức Excel

Trả lời 16 Đọc 2K Hôm qua, lúc 13:55 dungpham01 D Nhờ các cao nhân chỉ giúp file excel quá nặng. không không biết nguyên nhân

• hanhlx88
• Hôm qua, lúc 13:02
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 0 Đọc 55 Hôm qua, lúc 13:02 hanhlx88 L [Nhờ giúp đỡ] Tìm khoảng thời gian bị gối, hoặc trùng nhau

• Lá chanh
• Thứ sáu lúc 00:53
• Hàm và công thức Excel

Trả lời 8 Đọc 191 Hôm qua, lúc 05:36 lamvankhoat1 L B Tính 1 đồng Doanh thu thuần mang về thì còn lại được bao nhiêu đồng EBITDA

• Bobby52
• Thứ bảy lúc 16:18
• Hàm và công thức Excel

Trả lời 0 Đọc 83 Thứ bảy lúc 16:18 Bobby52 B Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 6 Đọc 508 Thứ năm lúc 23:12 PhanTuHuong A Có cách nào điều chỉnh cho tên Sheet lớn ra

• • 

• AnhThu-1976
• Thứ tư lúc 16:37
• Những vấn đề chung

Trả lời 8 Đọc 272 Thứ năm lúc 17:22 SA_DQ T Xin hỏi cách để lọc dữ liệu ngày tháng của nhiều sheet

• TatLap
• Thứ năm lúc 09:39
• Lọc và sắp xếp dữ liệu

Trả lời 6 Đọc 176 Thứ năm lúc 13:35 TatLap T K xin file excel bảng đấu bóng đá

• • 

• kenshithanh
• 1/4/15
• Chơi Game với Excel

Trả lời 48 Đọc 30K Thứ tư lúc 18:18 SA_DQ Nếu diễn đàn GPE đóng cửa?

• • 
  • 

• PhanTuHuong
• 14/12/25
• Thư giãn

Trả lời 26 Đọc 1K Thứ tư lúc 17:29 TH280861 T Miền Tây mùa nước nổi

• • 
  • 

• PhanTuHuong
• 5/10/20
• Thư giãn

Trả lời 31 Đọc 3K Thứ tư lúc 14:45 SA_DQ T Lọc dự liệu với hai điều kiện

• tiny1010
• 16/3/10
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 20 Đọc 7K Thứ tư lúc 13:23 dungpham01 D

• Question Question

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

• • 
  • 
  • 

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

4 5 6 Trả lời 584 Đọc 84K Thứ tư lúc 09:39 tuanktt3 T P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• 15/12/25
• Hàm và công thức Excel

Trả lời 8 Đọc 385 Thứ tư lúc 08:07 phamdinh.huy.aladin@gmail P Xin chỉ giúp sự khác nhau giữa giá trị trong ô A3 và A4 là gì

• huevantran
• 22/12/25
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 7 Đọc 215 23/12/25 dungpham01 D K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...

• kaoehtkid
• 15/12/25
• Những vấn đề chung

Trả lời 15 Đọc 481 23/12/25 ongke0711 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

• Maika8008 48
• dungpham01 26
• thanthanhan 24
• ongke0711 23
• ptm0412 20
• Phan Thế Hiệp 18
• eagle12 16
• nguyenanhtruong2409 16
• pycckuu410 13
• HUONGHCKT 12
• vic_it 11
• Gà Con yêu VBA 11
• nhhnam 10
• dieppk.nb92 10
• Vũ Hải Sơn 9
• HeSanbi 9
• duongnhuxuyen 9
• le_vis 8
• SA_DQ 8
• bsbnhh 7

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

• Phan Thế Hiệp 98
• Maika8008 41
• ptm0412 25
• thanthanhan 20
• ongke0711 20
• HeSanbi 17
• dungpham01 15
• Cúc Hr 11
• HUONGHCKT 9
• eagle12 9
• SA_DQ 9
• Phuocam 6
• pycckuu410 6
• dieppk.nb92 6
• Gà Con yêu VBA 6
• Mr.hieudoanxd 5
• befaint 5
• Hoàng Tuấn 868 4
• nguyenanhtruong2409 4
• HieuCD 3

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