سوال: تشخیص و پیدا کردن یک key در رجیستری [بایگانی]

atf1379

جمعه 18 مهر 1399, 06:13 صبح

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

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

ممنون

the king

جمعه 18 مهر 1399, 07:35 صبح

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

Dim ChangeReg
Set ChangeReg = CreateObject("WScript.Shell")
ChangeReg.regwrite "HKCU\Software\Microsoft\Office\16.0\Access\Securit y\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

atf1379

جمعه 18 مهر 1399, 12:23 عصر

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 (https://barnamenevis.org/member.php?259237-the-king) !