Cần viết code để xử lý việc bật/tắt Protect Sheet

[huuchuong1174]

Chào các bạn!

Mình có làm 1 file Quản lý công văn trong cơ quan (đính kèm), trong đó có tổng hợp một số kỹ thuật và code của các bài trong diễn đàn. Nhưng mình không biết VB nên cần các bạn giúp mình hoàn chỉnh dùm:

Khi người văn thư nhập nội dung trong sheet "CV DEN", BLĐ cơ quan (có tên ở từng sheet) khi click vào sheet có tên mình thì sẽ excel sẽ tự động lọc những văn bản có liên quan do lãnh đạo cần xử lý trong đó --> Tuy nhiên khi dùng chức năng Protect sheet thì bị báo lỗi.

Mình cần như sau:
1. Nếu click vao sheet "THONG KE" thì không thực hiện lệnh nào hết, và không báo lỗi (giống như click vào sheet "CV DEN" vậy)
2. File mình sẽ để ở chế độ Proctect sheet và đặt password, do đó khi click vào sheet tên từng người trong BLĐ cơ quan thì excel sẽ thực hiện trình tự như sua: tự tắt chức năng protect --> chạy đoạn code lọc dữ liệu --> tự động protect sheet lại với password cũ.

Rất mong các bạn giúp đỡ và góp ý thêm để file Quản lý công văn của mình được hoàn chỉnh. Cám ơn

 

[ptm0412]

Câu lệnh unprotect:

Sheets("abc").Unprotect "xyzt"

Câu lệnh Protect:

Sheets("abc").Protect "xyzt"

 

[huuchuong1174]

Mình đã làm được rồi. Nhưng vẫn còn báo lỗi khi mình click vào sheet có tên la "THONG KE". Xin nhờ giúp xử lý dùm.

Ngoài ra nếu như mình dùng chức năng Protect and Share thì câu lệnh sẽ như thế nào vậy bạn? Thanks

 

[tuyettrang186]

Mình đã làm được rồi. Nhưng vẫn còn báo lỗi khi mình click vào sheet có tên la "THONG KE". Xin nhờ giúp xử lý dùm.

Ngoài ra nếu như mình dùng chức năng Protect and Share thì câu lệnh sẽ như thế nào vậy bạn? Thanks

Bạn thêm code này vào vào thủ tục nhé!!

On error resume next

 

[huuchuong1174]

Đã hết báo lỗi rồi. Cám ơn bạn nhiều

Nhưng khi thiết lập chức năng Protect and Share workbook thì phải viết lại code bật/tắt pass như thế nào vậy bạn? Thanks

 

[huuchuong1174]

Có sư phụ nào giúp mình thêm với. Nếu cài đặt pass với chức năng Protect and share thi bật/tắt như thế nào vậy?!!? Thanks

 

[huuchuong1174]

Xin mọi người chỉ giáo thêm:

1. Khi click chọn những sheet khác với tên sheet CV DEN, có cách nào khai báo để excel chỉ xóa và chép nội dung đã lọc từ sheet CV DEN trong giới hạn từ cột A đến cột X không? Code sửa lại như thế nào?

2. Nếu muốn chia sẽ file cho nhiều người dùng có cài pass (Protect and share) thì code để bật/tắt như thế nào?

Rất mong các bạn giúp đỡ. Thanks

 

[ptm0412]

1. Giới hạn vùng lọc và vùng copy từ A đến X trong câu lệnh (sửa trong Range(...))
2. Khi share với sheet protect thì phải cho người dùng pass để họ tự vào. Có thể dùng 1 inputbox để người dùng nhập pass và so sánh với pass đã lưu.

 

[huuchuong1174]

1. Giới hạn vùng lọc và vùng copy từ A đến X trong câu lệnh (sửa trong Range(...))
2. Khi share với sheet protect thì phải cho người dùng pass để họ tự vào. Có thể dùng 1 inputbox để người dùng nhập pass và so sánh với pass đã lưu.

Mình đã xử lý được việc giới hạn vùng lọc. Cám ơn bạn!

Về ý thứ 2, mình xin nói rõ là khi để file ở chế độ share thì khi click vào các sheet khác ngoài sheet "CV DEN" thì bị báo lỗi, mình chủ động tắt chức năng shảe thì không bị nữa. DO đó mình muốn hỏi câu lệnh việt như thế nào và đặt ở đâu, để khi click vào sheet khác sheet "CV DEN" thì chương trình tự động tắt chức năng share --> thực hiện lệnh lọc dữ liệu --> xong rồi bật chức năng share lại với pass.

Ngoài ra, một khi đã viết code protect and share cho thể cho enable chức năng Auto Filter va Insert Hyperlink không? Cám ơn bạn nhiều