[حل شده] اجرا فایل به تعداد محدود (مثلا 5 بار)

[a.dal65]

با سلام خدمت اساتید انجمن

دوستان من میخوام بعد از هر اجرا فایل، توی یک سلول مشخص اضافه کنه و اگه مقدار اون سلول به 5 رسید
دیگه فایل اجرا نشه.

تو انجمن یه سرچ کردم و چند تا تاپیک پیدا کردم که دوستان زحمت کشیده بودن.
ولی این مقدار توی رجیستری ذخیره میشد و اگه بروی سیستم دیگه فایل اجرا بشه باز تا 5 بار اجرا میشه.

برای همین فکر میکنم بهترین کار اینه که با هر بار اجرا تو یه آدرس مخصوص و جدا گونه نوشته بشه و اگه مقدارش برابر با5 بود فایل بسته بشه

https://forum.exceliran.com/showthread.php/16824-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%A7%D9%86%D9%82%D8%B6%D8%A7-%D8%A8%D8%B1%D8%A7%DB%8C-%D9%81%D8%A7%DB%8C%D9%84?p=75280&viewfull=1#post75280

[a.dal65]

m = GetSetting("CSPP18", "JITDebug", "Version", 0) + 1
If m > 5 Or Sheet1.Range("a1") = "5" Then
MsgBox "error"
Sheet1.Range("a1") = "5"
ThisWorkbook.Save
End If
SaveSetting "CSPP18", "JITDebug", "Version", m