نمایش نتایج 1 تا 3 از 3

نام تاپیک: تشخیص و پیدا کردن یک key در رجیستری

  1. #1

    تشخیص و پیدا کردن یک key در رجیستری

    سلام
    از طریق کد زیر تنظیمات ماکروهای اکسس 2016 به حالت فعال تغییر پیدا می کند
    من میخواهم اول بررسی شود چنانچه ماکرو غیر فعال است یا به عبارتی مقدار برابر با صفر بود این تغییر صورت بگیرد


    Dim ChangeReg
    Set ChangeReg = CreateObject("WScript.Shell")
    ChangeReg.regwrite "HKCU\Software\Microsoft\Office\16.0\Access\Securi ty\VBAWarnings", "1", "REG_DWORD"


    ممنون

  2. #2

    نقل قول: تشخیص و پیدا کردن یک key در رجیستری

    نقل قول نوشته شده توسط atf1379 مشاهده تاپیک
    سلام
    از طریق کد زیر تنظیمات ماکروهای اکسس 2016 به حالت فعال تغییر پیدا می کند
    من میخواهم اول بررسی شود چنانچه ماکرو غیر فعال است یا به عبارتی مقدار برابر با صفر بود این تغییر صورت بگیرد


    Dim ChangeReg
    Set ChangeReg = CreateObject("WScript.Shell")
    ChangeReg.regwrite "HKCU\Software\Microsoft\Office\16.0\Access\Securi ty\VBAWarnings", "1", "REG_DWORD"


    ممنون

    Dim shellObj As Object
    Dim regkey As String
    regkey = "HKCU\Software\Microsoft\Office" & "16.0\Access\Security\VBAWarnings"
    Set shellObj = CreateObject("WScript.Shell")
    On Error GoTo LErr
    If shellObj.regread(regkey) <> 1 Then
    LErr:
    shellObj.regwrite regkey, "1", "REG_DWORD"
    On Error GoTo 0
    End If
    Set shellObj = Nothing

  3. #3

    نقل قول: تشخیص و پیدا کردن یک key در رجیستری

    نقل قول نوشته شده توسط the king مشاهده تاپیک

    Dim shellObj As Object
    Dim regkey As String
    regkey = "HKCU\Software\Microsoft\Office" & "16.0\Access\Security\VBAWarnings"
    Set shellObj = CreateObject("WScript.Shell")
    On Error GoTo LErr
    If shellObj.regread(regkey) <> 1 Then
    LErr:
    shellObj.regwrite regkey, "1", "REG_DWORD"
    On Error GoTo 0
    End If
    Set shellObj = Nothing
    سپاسگزارم جناب the king !

تاپیک های مشابه

  1. سوال: تشخیص رجیستر شدن یک کامپوننت
    نوشته شده توسط nazanin_90 در بخش برنامه نویسی در 6 VB
    پاسخ: 9
    آخرین پست: چهارشنبه 19 اسفند 1394, 12:48 عصر
  2. سوال: تشخیص نصب بودن برنامه با رجیستری
    نوشته شده توسط Fire God در بخش C#‎‎
    پاسخ: 7
    آخرین پست: سه شنبه 24 بهمن 1391, 00:29 صبح
  3. سوال: دریافت مقدار از رجیستری برای تشخیص مسیر جاری
    نوشته شده توسط Mask در بخش مباحث عمومی دلفی و پاسکال
    پاسخ: 0
    آخرین پست: یک شنبه 14 فروردین 1390, 14:17 عصر
  4. مشکل تشخیص سرور هنگام ارتباط با کریستال ریپورت از VB
    نوشته شده توسط vahidehrafati در بخش برنامه نویسی در 6 VB
    پاسخ: 4
    آخرین پست: پنج شنبه 16 تیر 1384, 11:34 صبح

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •