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

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

Dim ChangeReg

Set ChangeReg = CreateObject("WScript.Shell")

ChangeReg.regwrite "HKCU\Software\Microsoft\Office\16.0\Access\Securi  ty\VBAWarnings", "1", "REG_DWORD"

ممنون

نقل قول:

---

نوشته شده توسط 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

نقل قول:

---

نوشته شده توسط 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 !