نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

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

  1. #1


    آخرین بازدید
    18 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

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

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

    ثبت کد در ریجستری
    در ابتدا باید یک کد رو در ریجستری ثبت کنیم. برای اینکار از دستور SaveSetting استفاده میکنیم. به این صورت:
    کد:
    SaveSetting appname:="ExcelIran", Section:="VBA", Key:="startdate", setting:=13940101
    خب بریم سراغ توضیح کد نوشته شده:
    نام نرم افزار شما (پوشه اصلی)
    نام بخش مربوطه (پوشه فرعی)
    نام کلید مورد نظر (بخش نهایی آدرس کلید مورد نظر)
    مقدار مورد نظر (اینجا تاریخ شروع نرم افزار)

    نکته مهم: کدهای ریجستری تولید شده در این آدرس ذخیره خواهد شد
    کد:
    HKEY_CURRENT_USER\Software\VB and VBA Program Settings\

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  1.jpg
مشاهده: 34
حجم:  110.5 کیلو بایت

    فراخوانی کد ریجستری ثبت شده
    خب حالا که کد رو در ریجستری ثبت کردیم باید بتونیم ازش استفاده کنیم. مثلا داخل یک شرط که اگر تعداد روزهای گذشته از تاریخ شروع استفاده بیش از 30 روز هست نرم افزار بسته بشه یا مثلا پیغام بده تاریخ مصرف نرم افزار تموم شده. خریداری کنید.
    برای فراخوانی کد ثبت شده به این صورت عمل میکنیم:
    کد:
    GetSetting "ExcelIran", "VBA", "startdate"
    نام نرم افزار شما (پوشه اصلی)
    نام بخش مربوطه (پوشه فرعی)
    نام کلید مورد نظر (بخش نهایی آدرس کلید مورد نظر)


    حذف کد ریجستری ثبت شده
    گاهی وقتا نیاز هست کدی رو که ثبت کردیم حذف کنیم. مثلا برای حذف محدودیت استفاده از نرم افزار
    برای اینکار طبق کد زیر عمل میکنیم:
    کد:
    DeleteSetting "ExcelIran", "VBA", "startdate"
    نام نرم افزار شما (پوشه اصلی)
    نام بخش مربوطه (پوشه فرعی)
    نام کلید مورد نظر (بخش نهایی آدرس کلید مورد نظر)

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


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


  2.  

  3. #2


    آخرین بازدید
    2023/12/30
    تاریخ عضویت
    April 2014
    محل سکونت
    ساوه
    نوشته ها
    347
    امتیاز
    417
    سپاس
    853
    سپاس شده
    266 در 129 پست
    سطح اکسل
    45.00 %

    خیلی جالبه

    این کد هارو کجا باید وارد کنیم؟

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    18 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط sabertb نمایش پست ها
    خیلی جالبه

    این کد هارو کجا باید وارد کنیم؟
    داخل ساب روتین دیگه. تو محیط ویژوال بیسیک
    همون جایی که کدهای vba رو مینویسین


  6. #4


    آخرین بازدید
    2023/12/30
    تاریخ عضویت
    April 2014
    محل سکونت
    ساوه
    نوشته ها
    347
    امتیاز
    417
    سپاس
    853
    سپاس شده
    266 در 129 پست
    سطح اکسل
    45.00 %

    نقل قول نوشته اصلی توسط amir ghasemiyan نمایش پست ها
    داخل ساب روتین دیگه. تو محیط ویژوال بیسیک
    همون جایی که کدهای vba رو مینویسین
    تو محیط VBA در اکسل ؟ داخل صفحه Module ؟
    قسمتی که تصویرشو گذاشتید هم نتونستم پیدا کنم قسمت Registry یا احتمال میدم تو شرکت دسترسی به این بخش رو محدود کردند که من پیداش نمیکنم


  7. #5


    آخرین بازدید
    18 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط sabertb نمایش پست ها
    تو محیط VBA در اکسل ؟ داخل صفحه Module ؟
    قسمتی که تصویرشو گذاشتید هم نتونستم پیدا کنم قسمت Registry یا احتمال میدم تو شرکت دسترسی به این بخش رو محدود کردند که من پیداش نمیکنم
    بله خودشه
    اون عکسی که گذاشتم مربوط به ریجستری سیستم هست. شما باید از منوی استارت RUN رو اجرا کنید و دستور regedit رو تایپ کنید تا وارد این محیط بشین


  8. #6


    آخرین بازدید
    2023/12/30
    تاریخ عضویت
    April 2014
    محل سکونت
    ساوه
    نوشته ها
    347
    امتیاز
    417
    سپاس
    853
    سپاس شده
    266 در 129 پست
    سطح اکسل
    45.00 %

    نقل قول نوشته اصلی توسط amir ghasemiyan نمایش پست ها
    بله خودشه
    اون عکسی که گذاشتم مربوط به ریجستری سیستم هست. شما باید از منوی استارت RUN رو اجرا کنید و دستور regedit رو تایپ کنید تا وارد این محیط بشین
    دست شما درد نکنه راهنمایی مفید واقع شد موفق شدم ثبت کنمش . حالا یه سوال این کار باعث میشه محدودیت مورد نظر برای فایل ایجاد کنیم یه مثال میتونید بزنید مثلا اگر از تاریخ ایجاد فایل 20 روز گذشت این پیام ظاهر بشه " فایل مورد نظر در دسترس نمی باشد "
    می تونید برای افرادی مثل من که مبتدی هستن تو این زمینه ها مثال بزنید جوری که گام به گام بریم جلو به نتیجه برسیم ؟
    فایل پیوست هم چیزیه که با توجه به پست شما درست کردم و می خوام همون پیغام براش فعال بشه
    فايل هاي پيوست شده فايل هاي پيوست شده

  9. سپاس ها (2)


  10. #7


    آخرین بازدید
    18 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط sabertb نمایش پست ها
    دست شما درد نکنه راهنمایی مفید واقع شد موفق شدم ثبت کنمش . حالا یه سوال این کار باعث میشه محدودیت مورد نظر برای فایل ایجاد کنیم یه مثال میتونید بزنید مثلا اگر از تاریخ ایجاد فایل 20 روز گذشت این پیام ظاهر بشه " فایل مورد نظر در دسترس نمی باشد "
    می تونید برای افرادی مثل من که مبتدی هستن تو این زمینه ها مثال بزنید جوری که گام به گام بریم جلو به نتیجه برسیم ؟
    فایل پیوست هم چیزیه که با توجه به پست شما درست کردم و می خوام همون پیغام براش فعال بشه

    خواهش میکنم
    کل کدهای شما به این صورت در میاد:
    کد:
    
    Sub start()
    today = Date
    SaveSetting appname:="ExcelIran", Section:="VBA", Key:="startdate", setting:=today
    End Sub
    
    
    Sub startt()
    Dim a As Date
    a = GetSetting("ExcelIran", "VBA", "startdate")
    today = Date
    If today - a > 30 Then MsgBox "License is expired"
    End Sub


  11. #8


    آخرین بازدید
    2023/12/30
    تاریخ عضویت
    April 2014
    محل سکونت
    ساوه
    نوشته ها
    347
    امتیاز
    417
    سپاس
    853
    سپاس شده
    266 در 129 پست
    سطح اکسل
    45.00 %

    نقل قول نوشته اصلی توسط amir ghasemiyan نمایش پست ها

    خواهش میکنم
    کل کدهای شما به این صورت در میاد:
    کد:
    
    Sub start()
    today = Date
    SaveSetting appname:="ExcelIran", Section:="VBA", Key:="startdate", setting:=today
    End Sub
    
    
    Sub startt()
    Dim a As Date
    a = GetSetting("ExcelIran", "VBA", "startdate")
    today = Date
    If today - a > 30 Then MsgBox "License is expired"
    End Sub
    دست شما درد نکنه خیلی ممنون ، من این کد رو جایگزین کردم .
    وقتی Run میزنم Error میده .
    کد PHP:
    GetSetting("ExcelIran""VBA""startdate"
    این خط کد نویسی رو هایلایت میکنه . این Error تاثیر داره تو کارش یا نه ؟

  12. #9

    آخرین بازدید
    2018/07/23
    تاریخ عضویت
    July 2018
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    مرسی مطلب بسیار خوبی بود .ممنون


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. بازکردن ماشین حساب ویندوز از طریق کد vba
    توسط 4017 در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 2
    آخرين نوشته: 2024/01/07, 21:33
  2. عدم اجرای hyperlink در ویندوز 7
    توسط dina1355 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2015/06/21, 15:56
  3. با ویژگی**های برجسته ویندوز ۱۰ آشنا شوید
    توسط ~M*E*H*D*I~ در انجمن زنگ تفریح اکسل - Recess
    پاسخ ها: 0
    آخرين نوشته: 2015/03/08, 15:24
  4. کند شدن کار با اکسل 2013 در ویندوز 8
    توسط احمد کوچولو در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2014/10/07, 15:54
  5. [حل شده] روز هفته تقویم شمسی هم میشود ایجاد کرد ؟ مثلا: شنبه ، یک شنبه و ...
    توسط sabertb در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 9
    آخرين نوشته: 2014/07/20, 20:40

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

تغییر setting اکسس با vba

اعمال تغییرات در ویندوز طریق vba اکسل

تغییرات در ویندوز توسط vba

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است