قرار دادن تاریخ انقضاء یا شمارشگر پایان اعتبار برای فایل اکسل بوسیله vb ( در رجیستری سیستم )

[misammisam]

با سلام
با این کد بصورت جالبی میشه برای فایل اکسل به وسیله تعریف یک متغییر در رجیستری سیسنم هدف محدودیت اجرا اعمال کنید .
این کد رو در قسمت Thisworkbook کپی کنید

Private Sub Workbook_Open()
n = GetSetting("pass", "pass", "pass", 0) + 1
If n > 5 Then
MsgBox "فایل از دسترس خارج شده", vbCritical
Application.Quit
End If
MsgBox n
SaveSetting "pass", "pass", "pass", n
End Sub 

حتی میتونید با یکم دستکاری متغییر n رو با تاریخ و ساعت مقدار دهی کنید و فایلتونو بعد از یک تاریخ خاص از دسترس خارج کنید ، فرقش با مقدار دهی عادی اینه که کاربر دیگه نمیتونه با عقب و جلو کردن تاریخ سیستم دورش بزنه .
اگر فایل رو کد گذاری کنید و با مبدلهایی که وجود داره فایل رو exe کنید ، دیگه فایلتون خیلی سخت هک میشه و تعداد اجراشم توسط خودتون قابل کنترله .

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.