chuyển code Disable Protect view từ file reg sang VBA (1 người xem)

[minhtungph]

- Chào các bạn và các anh chị, mình có đoạn code trong file reg để chỉnh sửa Trusted Locations trong Registry như sau:

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\Trusted Locations\MyLocation]
"Date"="08.31.2017 10:15"
"Description"="MyProject"
"Path"="C:\\Users\\TUNGMB\\Desktop\\Demo"
"AllowSubfolders"=dword:00000001

- Tuy nhiên mình muốn Convert code này sang VBA để tiện lấy version và path cần add, nên mình viết như sau:

Sub EnableEditing()
    trusted_locations "C:\Users\TUNGMB\Desktop\tam"
End Sub

Sub trusted_locations(path_to_be_added)
   
    Dim oRegistry
    Dim sDescription
    Dim bAllowSubFolders
    Dim bAllowNetworkLocations

    Dim bAlreadyExists
    Dim sParentKey
    Dim sValue
    Dim sNewKey
    Dim vers As Variant
    Dim description_of_path
  
   Const HKEY_CURRENT_USER = &H80000001
    Set oRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
    bAllowSubFolders = True
    bAlreadyExists = False
    bAllowNetworkLocations = True
    description_of_path = "MyProject"
   
    vers = Application.Version

    sParentKey = "Software\Microsoft\Office\" & vers & "\Excel\Security\Trusted Locations\MyLocation"

    If bAllowNetworkLocations Then
            oRegistry.SetDWORDValue HKEY_CURRENT_USER, sParentKey, "AllowNetworkLocations", 1
    End If

    oRegistry.CreateKey HKEY_CURRENT_USER, sParentKey
    oRegistry.SetDWORDValue HKEY_CURRENT_USER, sParentKey, "Path", path_to_be_added
    'oRegistry.SetDWORDValue HKEY_CURRENT_USER, sParentKey, "Description", description_of_path

    If bAllowSubFolders Then
        oRegistry.SetDWORDValue HKEY_CURRENT_USER, sParentKey, "AllowSubFolders", 1
    End If
End Sub

==>nhưng khi chạy file reg thì đạt kết quả còn chạy code VBA thì không đạt
PMT

 

[minhtungph]

mình đã tìm được cách, là thay:
oRegistry.SetDWORDValue HKEY_CURRENT_USER, sParentKey, "Path", path_to_be_added
thành:
oRegistry.SetStringValue HKEY_CURRENT_USER, sParentKey, "Path", path_to_be_added