กำหนดวันที่หมดอายุการใช้งาน Excel
Posted: Sat Nov 26, 2016 11:34 am
เรียนสอบถามอาจารย์ ท่านผู้รู้ทั้งหลาย คือผมได้ทำโปรแกรม vba ขึ้นมา และอยากให้โปรแกรมทำงานได้เรื่อยๆ จนถึงวันที่กำหนดไว้ และแสดงข้อความว่าโปรแกรมหมดอายุแล้ว และปิดโปรแกรม ซึ่งผมใช้ฟังก์ชั่น Today ใน range A1 เป็นตัวกำหนดเงื่อนไข แต่ปัญหามีอยู่ว่าเมื่อ User แก้วันที่ในระบบ window โดยการย้อนวันที่ ก็จะสามารถใช้โปรแกรมได้เรื่อย ๆ จึงอยากสอบถามว่ามีวิธีอื่นๆ หรือไม่ในการทำ เช่น โปรแกรมอื่นๆ ที่ดาวน์โหลดให้ใช้ฟรี 30 วัน แต่เป็น Shareware
ขอบพระคุณล่วงหน้าครับ
Code: Select all
Sub test()
If Sheet1.Range("A1") > "26 / 11 / 2016" Then
MsgBox "โปรแกรมหมดอายุการใช้งาน"
ActiveWorkbook.Close False
End If
End Sub
การทำเช่นนั้นควรมีเงื่อนไข 2 เงื่อนไขเป็นอย่างน้อยครับ คือ ชื่อเครื่องหรือไอพีที่ใช้งานและจำนวนวันที่ต้องการให้ทดลองใช้งาน