กำหนดวันที่หมดอายุการใช้งาน Excel

[tananpong]

เรียนสอบถามอาจารย์ ท่านผู้รู้ทั้งหลาย คือผมได้ทำโปรแกรม 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

ขอบพระคุณล่วงหน้าครับ

[snasui]

การทำเช่นนั้นควรมีเงื่อนไข 2 เงื่อนไขเป็นอย่างน้อยครับ คือ ชื่อเครื่องหรือไอพีที่ใช้งานและจำนวนวันที่ต้องการให้ทดลองใช้งาน

เมื่อมีการเปิดไฟล์นี้เป็นครั้งแรกให้เก็บค่าชุดนี้ไว้ในชีตที่มีการซ่อน ซึ่งต้องซ่อนระดับ Very Hidden เพื่อไม่ให้ผู้ใช้งานเปิดขึ้นมาแก้ไขค่าได้

เมื่อเป็นการเปิดใช้งานครั้งแรกก็จะเก็บค่าเครื่องที่เปิดใช้งานและกำหนดจำนวนวันที่เหลือเอาไว้ หากเปิดใช้ครั้งต่อไปให้เช็คว่าเป็นเครื่องเดียวกันหรือไม่ หากใช่ก็จะลบวันที่เหลือออกไป เมื่อวันที่เหลือเป็น 0 ก็จะแจ้งว่าหมดอายุแล้ว เช่นนี้ครับ

[tananpong]

เดี๋ยวจะนั่งลองทำดูครับ ติดขัด หรือได้ผลประการใด จะแจ้งให้ทราบครับ