پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

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

  1. #1


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

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

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

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

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

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

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

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

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


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

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


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


  2.  

  3. #2


    آخرین بازدید
    4 روز پیش
    تاریخ عضویت
    April_2014
    محل سکونت
    ساوه
    نوشته ها
    281
    امتیاز
    375
    سپاس
    644
    سپاس شده
    229 در 115 پست

    خیلی جالبه

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

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

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

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


  6. #4


    آخرین بازدید
    4 روز پیش
    تاریخ عضویت
    April_2014
    محل سکونت
    ساوه
    نوشته ها
    281
    امتیاز
    375
    سپاس
    644
    سپاس شده
    229 در 115 پست

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


  7. #5


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

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


  8. #6


    آخرین بازدید
    4 روز پیش
    تاریخ عضویت
    April_2014
    محل سکونت
    ساوه
    نوشته ها
    281
    امتیاز
    375
    سپاس
    644
    سپاس شده
    229 در 115 پست

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

  9. سپاس ها (2)


  10. #7


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

    نقل قول نوشته اصلی توسط 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


    آخرین بازدید
    4 روز پیش
    تاریخ عضویت
    April_2014
    محل سکونت
    ساوه
    نوشته ها
    281
    امتیاز
    375
    سپاس
    644
    سپاس شده
    229 در 115 پست

    نقل قول نوشته اصلی توسط 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 تاثیر داره تو کارش یا نه ؟


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

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

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

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

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

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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