em muốn hướng dẫn viết code sự kiện hẹn đóng file excel sau 1 tiếng

Việc hẹn giờ đóng file tự động sau 1 khoảng thời gian có vấn đề là code này sẽ chạy ngầm (và chạy liên tục) khiến file bị chậm hoặc một số tính năng bị ảnh hưởng (nếu file nặng thì bạn sẽ thấy tính toán bị ngắt quãng, chậm hơn) => cân nhắc trước yếu tố này.

Bạn có thể làm 1 cách đơn giản hơn là tạo nhắc nhở nên tắt file khi hết 1 tiếng (quá 1 tiếng thì không làm việc bình thường được) như sau:

- Bước 1: khi mở file, bạn gán lệnh Sheet..Range("B1").Value = Now để ghi nhận thời điểm mở file.

- Bước 2: thiết lập các nội dung khác:

    + ô D1: thể hiện thời gian sau 1 tiếng =B1+0.0415 (quy đổi 1 giờ = 0.0415)

    + ô B2: dùng hàm =NOW() để tự động ghi nhận giờ  hiện tại.

- Bước 3: tạo chức năng tự động tô màu xám cho cả Sheet để khi quá giờ cảnh báo sẽ tự động tô màu xám, không cho phép làm việc bình thường nữa.

(Dùng conditional formatting tạo Rules như hình mẫu: so sánh giờ hiện tại nếu lớn hơn hoặc bằng giờ cảnh báo thì sẽ tô màu)

Khi đó phải đóng file. Lúc mở lại thì thời gian sẽ đặt lại nên có thể làm việc bình thường.