از بین بردن فایل اکسل در تاریخ معین
سوال :
طرز تهیه فایل اکسل که پس از مدت زمان معین اکسپایر گردد
پاسخ :
با زدن همزمان کلیدهای 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 
مطالب مرتبط
پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس دراکسس 2010 بر روی فرم" navigation "دو فرم را باز کرده ام میخواهم دکمه ای ایجاد کنم که با کلیک بر روی آن محتویات یک فیلد از فرم اول در فیلدی از فرم دوم درج شود
2013, Friday, 25, Oct
چگونه یک سلول را به لیست combobox در اکسل تبدیل کنم؟ convert cell to combobox in excel تبدیل سلول به لیست کشویی در اکسل DropDown combobox اکسل آموزش اکسل پاسخ به سوالات اکسل ایجاد گزینه در اکسل
2013, Saturday, 17, Aug
آیا شما مایل به خارج شدن از برنامه Powerpoint هستید؟ چه جوری میتونم کاری کنم که وقتی می خوام از پاورپوینت خارج شم پیام بده که آیا شما مایل به خارج شدن هستید یانه پیغام خروج کدهای VBA برنامه نویسی با پاورپوینت
2013, Friday, 12, Jul
شرط گذاری در سلول های اکسل با گزینه Conditional Formatting رنگی کردن سطر و سلول و ستون های اکسل با استفاده از منوی فرمتینگ تب Style پنجره Conditional formating rules manager آموزش اکسل Excel Learning
2016, Friday, 05, Feb
تفاوت بین اکسل و اکسس چیست؟ نرم افزار Excel یک نرم افزار محاسباتی با سلول های هوشمند است ، که از آن می توان برای انجام محاسبات مالی و حسابداری استفاده نمود.نرم افزار Access یک نرم افزار بانک اطلاعاتی به مانند SQL Server و Oracel
2013, Wednesday, 15, May
