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