از بین بردن فایل اکسل
سوال :
طرز تهیه فایل اکسل که پس از مدت زمان معین اکسپایر گردد
پاسخ :
با زدن همزمان کلیدهای 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 
مطالب مرتبط
چگونه یک سلول را به لیست combobox در اکسل تبدیل کنم؟ convert cell to combobox in excel تبدیل سلول به لیست کشویی در اکسل DropDown combobox اکسل آموزش اکسل پاسخ به سوالات اکسل ایجاد گزینه در اکسل
2013, Saturday, 17, Aug
پیغام conflict در اکسل مشکل به اشتراک گذاری فایل اکسل share workbook نحوه به اشتراک گذاشتن فایل اکسل در شبکه Conficting Changes between users ارتباط با مشتریان Crm نرم افزار تحت شبکه
2014, Tuesday, 18, Feb
نحوه ذخیره فایل صوتی در پاور پوینت بصورت مستقل ذخیره صدا در پاور پوینت powerpoint ساخت اسلاید شو صدای پیش زمینه ذخیره فایل صوتی بدون مسیر فایل صوتی نرم افزار پاور پوینت Sound Options Media Clips
2012, Monday, 13, Aug
ساخت برنامه غذایی روزانه کارمندان شرکت با ACCESS ایجاد نرم افزار محاسبه خورد و خوراک روزانه کارمندان با ACCESS اکسس ایجاد نرم افزار با اکسس ساخت بانک اطلاعاتی با اکسز
2013, Tuesday, 26, Nov
فهرست کردن مطالب یا عناوین پایان نامه بصورت خودکار فهرست پایان نامه بهم ریختگی فهرست فهرست خودکار منوی Refrences تب Table of Contents پایان نامه Update Table فهرست گذاری
2013, Tuesday, 28, May
