Cách khóa worksheet hoặc workbook theo khung giờ

[khidotdn]

Chào các cao thủ, hiện tại mình nhờ ở 4rum có 1 bài hướng dẫn cách khóa sheet hoặc file excel theo khung giờ ( 7:00 đến 8:00, 13:00 đến 15:00 ....) Mình tìm từ tối qua đến giờ vẫn ko tìm ra. Mong các cao thủ nào còn nhớ link thì cho mình xin ạ. Chân thành cảm ơn.

 

[Kiều Mạnh]

Chào các cao thủ, hiện tại mình nhờ ở 4rum có 1 bài hướng dẫn cách khóa sheet hoặc file excel theo khung giờ ( 7:00 đến 8:00, 13:00 đến 15:00 ....) Mình tìm từ tối qua đến giờ vẫn ko tìm ra. Mong các cao thủ nào còn nhớ link thì cho mình xin ạ. Chân thành cảm ơn.

Theo mình nghĩ cho vào usb xong cất vào két sắt xong thuê 1 Cty viết 1 phần mềm điều khiển két sắt xong usb phải đồng bộ với két sắt là ok đấy ... mà két săt phải nối mạng mới lấy được khung giờ .,. Là an toàn he

 

[khidotdn]

Theo mình nghĩ cho vào usb xong cất vào két sắt xong thuê 1 Cty viết 1 phần mềm điều khiển két sắt xong usb phải đồng bộ với két sắt là ok đấy ... mà két săt phải nối mạng mới lấy được khung giờ .,. Là an toàn he

Mình biết rằng ko có gì là tuyệt đối, chủ yếu làm để đề phòng người ngay chứ ko thể đề phòng kẻ gian được bạn à. Có két sắt thì kẻ gian cũng có thể lấy cả két sắt mà hehehe

 

[batman1]

Biết nó chắc chắn ở đâu đó thì tìm thôi.

Tôi lấy bừa 2 từ trong bài của bạn và nhập vào công cụ tìm kiếm của GPE.

vd. tôi nhập "khóa sheet" thì ở bài thứ 14 trong trang đầu có tiêu đề Giúp code khóa sheet khi hết ngày. Chắc đây là bài dạng của bạn.

 

[ExcelQN]

Chào các cao thủ, hiện tại mình nhờ ở 4rum có 1 bài hướng dẫn cách khóa sheet hoặc file excel theo khung giờ ( 7:00 đến 8:00, 13:00 đến 15:00 ....) Mình tìm từ tối qua đến giờ vẫn ko tìm ra. Mong các cao thủ nào còn nhớ link thì cho mình xin ạ. Chân thành cảm ơn.

Mình nhớ thế này:
- Cho một ô nhận giá trị giờ phút online (giả sử là ô A1).
- Trong sự kiện SelectionChange:
* If giá trị ô A1>7:00 và A1<8:00 then
ActiveSheet.Protect ("MK")
else
ActiveSheet.Unprotect ("MK")
and if
tương tự cho khung giờ 13:00 đến 15:00.
Bạn thử xem.

 

[khidotdn]

Mình nhớ thế này:
- Cho một ô nhận giá trị giờ phút online (giả sử là ô A1).
- Trong sự kiện SelectionChange:
* If giá trị ô A1>7:00 và A1<8:00 then
ActiveSheet.Protect ("MK")
else
ActiveSheet.Unprotect ("MK")
and if
tương tự cho khung giờ 13:00 đến 15:00.
Bạn thử xem.

Thực sự mình làm mà ko đc, bạn có thể gợi ý rõ hơn 1 chút đc ko bạn

 

[Quang_Hải]

Mình biết rằng ko có gì là tuyệt đối, chủ yếu làm để đề phòng người ngay chứ ko thể đề phòng kẻ gian được bạn à. Có két sắt thì kẻ gian cũng có thể lấy cả két sắt mà hehehe

Mình gợi ý cho bạn thế này
1. Dùng sự kiện Auto_open để chay 1 Sub chỉ định
2. Thủ tục Application.OnTime sẽ thực hiện được việc hẹn giờ để chạy code nhưng file đó phải đang mở
3. Phải kết hợp đúng các bước khóa sheet, mở sheet nếu không sẽ loạn
4. Nếu file mở không đúng giờ mong đợi thì phải kết hợp sự kiện Auto_open để kiểm tra giờ hiện hành và chạy code mong muốn

Cơ bản là cái này chắc cũng không khó nhưng thật sự có cần thiết hay không thì bạn tự quyết định nhé

 

[thaytutn]

Mình nhớ thế này:
- Cho một ô nhận giá trị giờ phút online (giả sử là ô A1).
- Trong sự kiện SelectionChange:
* If giá trị ô A1>7:00 và A1<8:00 then
ActiveSheet.Protect ("MK")
else
ActiveSheet.Unprotect ("MK")
and if
tương tự cho khung giờ 13:00 đến 15:00.
Bạn thử xem.

thế này ai muón mở chỉ việc thay đổi giờ máy tính là xong