Ngăn không cho chọn, xóa khu vực dữ liệu mà không dùng tới Protect Sheet

[dutrungdung94]

Em đang cần bảo vệ 1 vùng dữ liệu, muốn người khác không chọn hoặc xóa công thức trong các ô đó nhưng không muốn sử dụng Protect Sheet do VBA chạy trên này hay bị lỗi và phải mở ra khóa lại thì rất tốn thời gian. Mong cao nhân nào chỉ em cách xử lý vấn đề trên.

 

[befaint]

Protect Sheet do VBA chạy trên này hay bị lỗi và phải mở ra khóa lại thì rất tốn thời gian

Có cách Protect Sheets mà VBA vẫn chạy bình thường. Chỉ cần lưu ý tham số khi Protect Sheets là được.

 

[Vanminh123]

Em đang cần bảo vệ 1 vùng dữ liệu, muốn người khác không chọn hoặc xóa công thức trong các ô đó nhưng không muốn sử dụng Protect Sheet do VBA chạy trên này hay bị lỗi và phải mở ra khóa lại thì rất tốn thời gian. Mong cao nhân nào chỉ em cách xử lý vấn đề trên.

Gửi bạn 1 câu chuyện thực tế

Sub abc()
' Mở khóa nhà và cho tên trộm vào nhà
Sheets("abc").Unprotect "123" ' abc là tên sheet, 123 là pass Protect

'--Code viết tại đây. bạn có thể xử tên trộm bằng nhiều cách ( copy, cut, delete,...) kiểu gì chả được

' Khóa lại nhà. cho tên trộm ở trỏng luôn. Gọi 911 báo cảnh sát
Sheets("abc").Protect "123"

End Sub

 

[dutrungdung94]

Có cách Protect Sheets mà VBA vẫn chạy bình thường. Chỉ cần lưu ý tham số khi Protect Sheets là được.

cách nào vậy ạ, bác chỉ em với

Bài đã được tự động gộp: 8/12/20

Gửi bạn 1 câu chuyện thực tế

Sub abc()
' Mở khóa nhà và cho tên trộm vào nhà
Sheets("abc").Unprotect "123" ' abc là tên sheet, 123 là pass Protect

'--Code viết tại đây. bạn có thể xử tên trộm bằng nhiều cách ( copy, cut, delete,...) kiểu gì chả được

' Khóa lại nhà. cho tên trộm ở trỏng luôn. Gọi 911 báo cảnh sát
Sheets("abc").Protect "123"

End Sub

em cũng thử cách này rồi, vì advanced filter trên hơn 10 sheet, đang chạy mà lỗi cái thì lung tung cả lên. VBA vẫn chạy bình thường, nhưng vào 1 ngày đẹp trời thì nó mới dở chứng báo lỗi, không bị thường xuyên.

 

[snow25]

cách nào vậy ạ, bác chỉ em với

Code lại cái code khác không cần mở khóa sheets vẫn chạy được.

 

[dutrungdung94]

Code lại cái code khác không cần mở khóa sheets vẫn chạy được.

code advanced filter của em ko mở khóa vẫn chạy được, nhưng lâu lâu nó lại bị báo lỗi range method class failse

 

[batman1]

cách nào vậy ạ, bác chỉ em với

Hãy đọc về phương thức Protect, đặc biệt về vai trò của tham số UserInterfaceOnly.

Nói ngắn gọn thì cần gọi Protect trong Workbook_Open với UserInterfaceOnly = True. Với cách này thì Protect chỉ là rào cản cho người dùng (User Interface Only), còn code thao tác thoải mái mà không cần UnProtect.