Excel cung cấp một môi trường phát triển mạnh mẽ trong đó nhiều người tận dụng tối đa. Trên thực tế, nhiều người đã viết toàn bộ chương trình ứng dụng bằng VBA với Excel làm khung.

Nếu bạn phát triển chương trình trong Excel, bạn có thể tự hỏi liệu có cách nào để viết chương trình của mình để nó không còn hoạt động sau một ngày cụ thể hay không. May mắn thay, điều này là khá dễ dàng. Một giải pháp là sử dụng một cái gì đó như sau làm macro Auto_Open:

Sub Auto_Open()

Dim exdate As Date     exdate = "09/30/2015"

If Date > exdate Then         MsgBox ("You have reached end of your trial period")

ActiveWorkbook.Close     End If     MsgBox ("You have " & exdate - Date & "Days left")

End Sub

Nếu ngày trên hệ thống chạy chương trình lớn hơn ngày được chỉ định trong biến exdate, người dùng sẽ thấy một hộp thông báo cho biết thời gian dùng thử của họ đã hết. Khi người dùng bấm vào nút OK, sổ làm việc sẽ đóng lại. Nếu thời gian dùng thử chưa kết thúc, thì hộp thông báo cho biết còn bao nhiêu ngày trong khoảng thời gian đó.

Tất nhiên, nếu bạn đặt macro như macro này trong ứng dụng của mình, nó có thể ngăn bạn mở sổ làm việc để thực hiện các thay đổi chương trình. Tất nhiên, cách rõ ràng để giải quyết vấn đề này là giữ phím Shift khi bạn mở sổ làm việc. Làm như vậy sẽ ngừng chạy macro Auto_Open. Tuy nhiên, nếu người dùng của bạn biết điều này, họ có thể bỏ qua kiểm tra hết hạn dễ dàng như bạn. Giải pháp là đặt các kiểm tra tương tự trong các macro khác không thể bị bỏ qua và điều đó rất cần thiết cho chương trình của bạn.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2590) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: