ایجاد تغییر در ریجستری ویندوز از طریق کدهای vba

[Amir Ghasemiyan]

سلام به همه دوستان عزیز
تو این تاپیک میخوام مطلبی رو خدمتتون آموزش بدم که جزو آموزش های حرفه ای و تخصصی دسته بندی میشه.
اعمال تغییر در ریجستری این امکان رو به ما میده که مقدارهای خاصی رو برای همیشه در ویندوز ذخیره کنیم و وقتی که فایل اکسل یا اکسس ما مجددا باز میشه میتونیم از این کدهای ذخیره شده استفاده کنیم.
یک نمونه از کاربرد این قابلیت اینه که برنامه رو بصورت 30 روزه به کاربرا ارائه کنیم. یا مثلا در نرم افزاری که چند کاربر ازش استفاده میکنن میتونیم مشخص کنیم هر فعالیت رو چه کاربری انجام داده و ...

خب بریم سراغ آموزش:

ثبت کد در ریجستری
در ابتدا باید یک کد رو در ریجستری ثبت کنیم. برای اینکار از دستور SaveSetting استفاده میکنیم. به این صورت:

SaveSetting appname:="ExcelIran", Section:="VBA", Key:="startdate", setting:=13940101

خب بریم سراغ توضیح کد نوشته شده:
نام نرم افزار شما (پوشه اصلی)
نام بخش مربوطه (پوشه فرعی)
نام کلید مورد نظر (بخش نهایی آدرس کلید مورد نظر)
مقدار مورد نظر (اینجا تاریخ شروع نرم افزار)

نکته مهم: کدهای ریجستری تولید شده در این آدرس ذخیره خواهد شد

HKEY_CURRENT_USER\Software\VB and VBA Program Settings\

فراخوانی کد ریجستری ثبت شده
خب حالا که کد رو در ریجستری ثبت کردیم باید بتونیم ازش استفاده کنیم. مثلا داخل یک شرط که اگر تعداد روزهای گذشته از تاریخ شروع استفاده بیش از 30 روز هست نرم افزار بسته بشه یا مثلا پیغام بده تاریخ مصرف نرم افزار تموم شده. خریداری کنید.
برای فراخوانی کد ثبت شده به این صورت عمل میکنیم:

GetSetting "ExcelIran", "VBA", "startdate"

نام نرم افزار شما (پوشه اصلی)
نام بخش مربوطه (پوشه فرعی)
نام کلید مورد نظر (بخش نهایی آدرس کلید مورد نظر)


حذف کد ریجستری ثبت شده
گاهی وقتا نیاز هست کدی رو که ثبت کردیم حذف کنیم. مثلا برای حذف محدودیت استفاده از نرم افزار
برای اینکار طبق کد زیر عمل میکنیم:

DeleteSetting "ExcelIran", "VBA", "startdate"

نام نرم افزار شما (پوشه اصلی)
نام بخش مربوطه (پوشه فرعی)
نام کلید مورد نظر (بخش نهایی آدرس کلید مورد نظر)

توجه داشته باشید که دو فیلد آخر یعنی فیلد بخش و فیلد کلید وارد کردنشون اختیاریه. به این معنی که اگه این دو بخش رو وارد نکنیم کل کدهایی که در پوشه نرم افزار ExcelIran ذخیره شده حذف خواهد شد. یا مثلا اگه بخش رو مشخص کنیم و کلید رو ننویسیم تمام کلیدهای موجود در بخش VBA حذف خواهد شد


امیدوارم آموزش مورد توجه شما قرار گرفته باشه

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