از بین بردن فایل اکسل در تاریخ معین
سوال :
طرز تهیه فایل اکسل که پس از مدت زمان معین اکسپایر گردد
پاسخ :
با زدن همزمان کلیدهای Alt + F11 وارد صفحه VBpProject شده و سپس از کادر سمت چپ مربوط به VBProject Excel بر روی ThisWorkBook دوبار کلیک کرده تا صفحه کد نویسی مربوط به این کاربرگ باز شود.
از لیست کشویی سمت چپ و بالا گزینه WorkBook را انتخاب کرده تا تابع Private Sub Workbook_Open() ایجاد گردد. سپس کد های زیر نیز زیر End Sub تابع ایجاد شده کپی نمائید.
Sub ExpirationCode()
Dim ExpirationDate As Date
ExpirationDate = DateSerial(2013, 5, 29)
If Now() >= ExpirationDate Then
MsgBox ("دوره آزمایشی نرم افزار در تاریخ ") &_
CStr(ExpirationDate) &_
" به پایان رسیده است"
ThisWorkbook.Close savechanges:=False
End If
End Sub
سپس نام تابع دوم که بنام ExpirationCode ایجاد نمودیم را در تابع اول Workbook_Open قرار دهید
و در انتها این فایل را ذخیره نموده البته با پسوند Excel Macro-enabled workbook .xlsm ذخیره نمائید.(بدلیل ماکروی ایجاد شده)
نکته : همانطور که در خط سوم تابع ExpirationCode تاریخ انقضاء را مشخص کردیم، شما باید این تاریخ را به میلادی وارد نمائید.
و درکل باید کدهای شما بصورت زیر باشد.
Private Sub Workbook_Open()
ExpirationCode
End Sub
Sub ExpirationCode()
Dim ExpirationDate As Date
ExpirationDate = DateSerial(2013, 5, 29)
If Now() >= ExpirationDate Then
MsgBox ("دوره آزمایشی نرم افزار در تاریخ ") &_
CStr(ExpirationDate) &_
" به پایان رسیده است"
ThisWorkbook.Close savechanges:=False
End If
End Sub
ایجاد فایل اکسل با تاریخ انقضاء - ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی)
نظرات و پاسخ ها
شاهرخ جمشیدی نوشته :
با درود مي خواستم بپرسم كه آيا راهي هست براي اينكه وقتي يك فرم باز مي كنيم ,توي قسمت NEW باز بشه .يعني اطلاعات قبلي رو نشون نده و براي اطلاعات جديد آماده باشه .لطفا اگه دستوري داره ارسال كنيد.سپاسگزارم
فریدون شمس نوشته :
لطفا یک فایل را برای من ارسال کنید نمونه expire
سیدی نوشته :
سلام ممنون از پست های عالیتون و کارآمد... من به زبان مکرو نویسی خیلی علاقه دارم...یه چیزایی هم بلدم اما نه اصولی و پایه ای...شما می تونید من رو راهنمایی کنید که چه جوری می تونم این زبان رو پایه ای یاد بگیرم...؟
مدیر سایت فارسی میتینگ در پاسخ به سیدی نوشته :
باید زبان VBA را یاد بگیرید، البته خودم هم زیاد بلد نیستم
محمد جعفری - شیراز نوشته :
سلام می خواستم بدونم چه جوری میشه کاری کرد که یک فایل اکسل فقط بر روی یک کامپیوتر قابل اجرا باشه ممنون میشم اگه جوابشو برام ایمیل کنید
مدیر سایت فارسی میتینگ در پاسخ به محمد جعفری - شیراز نوشته :
یکی از روش ها استفاده از یک فایل کامپوننت مخصوص قفل گذاری بر روی نرم افزار، که شما از قسمت VBA با کدنویسی به آن ارتباط ها را نوشته و نحوه باز شدن فایل را وارد کردن سریال تعریف می کنید، با این روش حقوق کپی رایت محفوظ می شود
امیر بی در پاسخ به محمد جعفری - شیراز نوشته :
با سلام برای اینکار باید از یه پارامتر ثابت بر روی سیستم استفاده کنیدمثلا سریال مادربورد یا مک ادرس سیستم . این موارد همیشه ثابت هستند و حتی با تعویض ویندوز از بین نمی روند . باید در کد نویسی شرطی رو قرار بدید که عدد داخل تکس بکس رو بخونه اگر تطابق داشت با مثلا سریال مادر بورد اجازه باز شدن فایل رو بده.
مهدی نوشته :
با سلام و خسته نباشید من یک سوال داشتم؛
چطوری میشه یه کاری کرد که یک فایل اکسل فقط روی یه کامپیوتر اجرابشه، منظورم اینکه یه فایل اکسل رو روی یه سیستم کپی کنی و کاری کنی وقتی کپی میشه روی یک سیستم دیگه اجرا نشده.
با تشکر
مدیر سایت فارسی میتینگ در پاسخ به مهدی نوشته :
با استفاده از یک فایل کامپوننت مخصوص قفل گذاری بر روی نرم افزار، که شما از قسمت VBA با کدنویسی به آن ارتباط ها را نوشته و نحوه باز شدن فایل را وارد کردن سریال تعریف می کنید
صفحه 1 از 3 
مطالب مرتبط
فهرست کردن مطالب یا عناوین پایان نامه بصورت خودکار فهرست پایان نامه بهم ریختگی فهرست فهرست خودکار منوی Refrences تب Table of Contents پایان نامه Update Table فهرست گذاری
2013, Tuesday, 28, May
شرط گذاری در سلول های اکسل با گزینه Conditional Formatting رنگی کردن سطر و سلول و ستون های اکسل با استفاده از منوی فرمتینگ تب Style پنجره Conditional formating rules manager آموزش اکسل Excel Learning
2016, Friday, 05, Feb
چگونه می توانم برای سند ورد حاشیه گذاری کنم؟ border in word ویرایش متن در سند ورد تنظیم حاشیه و چیدمان در ورد تب Page Layout Page Background گزینه Page Borders
2012, Wednesday, 28, Nov
چرخاندن جدول در Word چگونه می توانم در ورد جدول را بچرخانم؟ روش چرخاندن جدول در Word چرخاندن جدول به اندازه 90 درجه Rotate Table In MicroSoft Word 2007 تبدیل جدول به تصویر چرخاندن متن در ورد charkhandane matn dar word
2013, Wednesday, 10, Apr
تفاوت گزینه های Blank Page با Page Break در بخش insert چیست؟ ایجاد یک صفحه خالی تفاوت گزینه های blank page با page break پاسخ به سوالات ورد
2013, Friday, 26, Apr
