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



Dim ChangeReg

Set ChangeReg = CreateObject("WScript.Shell")

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

ممنون