Load Microsoft Visual Basic for Applications projects from text

UserNeeds changes for IntuneL_LoadMicrosoftVisualBasicforApplicationsprojectsf

Supported on SUPPORTED_Windows7 (defined in the Windows templates)

5568.1000

What it does

If you want to be able to have your VBA project work in drawings created in other versions of Visio, select this option so that your VBA project is compiled when the file is loaded, but the compiled project is never saved.

What it writes

Hive: HKEY_CURRENT_USER
Registry key: software\policies\microsoft\office\16.0\visio\application
Value name: loadvbaprojectsfromtext
When enabled: "1"
When disabled: "0"

Why it needs changes for Intune

Policy references a Windows supportedOn definition.
ADMX-INTUNE-WINDOWS-SUPPORTEDON-REFERENCE

Configure and deploy

Choose a state; the output below is generated from the template for exactly that.

Enabled · User · template defaults

Registry file (.reg)

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\visio\application]
"loadvbaprojectsfromtext"=dword:00000001

PowerShell

$ErrorActionPreference = 'Stop'

function Set-RegistryValue {
    param(
        [Parameter(Mandatory = $true)][string] $Path,
        [Parameter(Mandatory = $true)][string] $Name,
        [Parameter(Mandatory = $true)][string] $PropertyType,
        [Parameter(Mandatory = $true)][object] $Value
    )

    if (-not (Test-Path -LiteralPath $Path)) {
        New-Item -Path $Path -Force | Out-Null
    }

    New-ItemProperty -LiteralPath $Path -Name $Name -PropertyType $PropertyType -Value $Value -Force | Out-Null
}

function Remove-RegistryValue {
    param(
        [Parameter(Mandatory = $true)][string] $Path,
        [Parameter(Mandatory = $true)][string] $Name
    )

    if (Test-Path -LiteralPath $Path) {
        Remove-ItemProperty -LiteralPath $Path -Name $Name -Force -ErrorAction SilentlyContinue
    }
}

function Clear-RegistryKeyValues {
    param(
        [Parameter(Mandatory = $true)][string] $Path
    )

    if (-not (Test-Path -LiteralPath $Path)) {
        return
    }

    foreach ($propertyName in (Get-Item -LiteralPath $Path).Property) {
        Remove-ItemProperty -LiteralPath $Path -Name $propertyName -Force -ErrorAction SilentlyContinue
    }
}

# Policy: Load Microsoft Visual Basic for Applications projects from text
# Name: L_LoadMicrosoftVisualBasicforApplicationsprojectsf
# Scope: User
# State: Enabled
# Source: visio16.admx

Set-RegistryValue -Path 'Registry::HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\visio\application' -Name 'loadvbaprojectsfromtext' -PropertyType 'String' -Value '1'

Set-RegistryValue -Path 'Registry::HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\visio\application' -Name 'loadvbaprojectsfromtext' -PropertyType 'DWord' -Value 1

The OMA-URI is an inferred ADMX-backed Policy CSP candidate derived from the source ADMX file name and policy name.
Some Microsoft policies use built-in Policy CSP pages whose area names don't match the ADMX file name, so verify the candidate against Microsoft Learn before deployment.

ADMX profile candidate (OMA-URI)

./User/Vendor/MSFT/Policy/Config/ADMX_visio16/L_LoadMicrosoftVisualBasicforApplicationsprojectsf

ADMX SyncML candidate

<SyncML xmlns="SYNCML:SYNCML1.2">
  <SyncBody>
    <Replace>
      <CmdID>1</CmdID>
      <Item>
        <Meta>
          <Format>chr</Format>
          <Type>text/plain</Type>
        </Meta>
        <Target>
          <LocURI>./User/Vendor/MSFT/Policy/Config/ADMX_visio16/L_LoadMicrosoftVisualBasicforApplicationsprojectsf</LocURI>
        </Target>
        <Data>&lt;enabled/&gt;</Data>
      </Item>
    </Replace>
    <Final/>
  </SyncBody>
</SyncML>

Intune remediation scripts

Detection

$ErrorActionPreference = 'Stop'
$reasons = [System.Collections.Generic.List[string]]::new()

function Test-RegistryValueExists {
    param(
        [Parameter(Mandatory = $true)][string] $Path,
        [Parameter(Mandatory = $true)][string] $Name
    )

    if (-not (Test-Path -LiteralPath $Path)) {
        return $false
    }

    return $null -ne (Get-ItemProperty -LiteralPath $Path -Name $Name -ErrorAction SilentlyContinue)
}

function Test-RegistryValueEquals {
    param(
        [Parameter(Mandatory = $true)][string] $Path,
        [Parameter(Mandatory = $true)][string] $Name,
        [Parameter(Mandatory = $true)][string] $Kind,
        [Parameter(Mandatory = $true)][object] $Expected
    )

    if (-not (Test-Path -LiteralPath $Path)) {
        return $false
    }

    $valueObject = Get-ItemProperty -LiteralPath $Path -Name $Name -ErrorAction SilentlyContinue
    if ($null -eq $valueObject) {
        return $false
    }

    $actual = $valueObject.$Name
    switch ($Kind) {
        'String' { return [string]$actual -ceq [string]$Expected }
        'ExpandString' { return [string]$actual -ceq [string]$Expected }
        'DWord' { return [uint32]$actual -eq [uint32]$Expected }
        'QWord' { return [uint64]$actual -eq [uint64]$Expected }
        'MultiString' {
            $actualArray = @($actual)
            $expectedArray = @($Expected)
            if ($actualArray.Count -ne $expectedArray.Count) { return $false }
            for ($index = 0; $index -lt $actualArray.Count; $index++) {
                if ([string]$actualArray[$index] -cne [string]$expectedArray[$index]) { return $false }
            }
            return $true
        }
        'Binary' {
            $actualArray = [byte[]]$actual
            $expectedArray = [byte[]]$Expected
            if ($actualArray.Length -ne $expectedArray.Length) { return $false }
            for ($index = 0; $index -lt $actualArray.Length; $index++) {
                if ($actualArray[$index] -ne $expectedArray[$index]) { return $false }
            }
            return $true
        }
        default { return [string]$actual -ceq [string]$Expected }
    }
}

# Policy: Load Microsoft Visual Basic for Applications projects from text
# Name: L_LoadMicrosoftVisualBasicforApplicationsprojectsf
# Scope: User
# State: Enabled
# Source: visio16.admx

$isMatch = Test-RegistryValueEquals -Path 'Registry::HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\visio\application' -Name 'loadvbaprojectsfromtext' -Kind 'String' -Expected '1'
if (-not $isMatch) {
    $reasons.Add('Value mismatch: HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\visio\application\loadvbaprojectsfromtext') | Out-Null
}

$isMatch = Test-RegistryValueEquals -Path 'Registry::HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\visio\application' -Name 'loadvbaprojectsfromtext' -Kind 'DWord' -Expected 1
if (-not $isMatch) {
    $reasons.Add('Value mismatch: HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\visio\application\loadvbaprojectsfromtext') | Out-Null
}

if ($reasons.Count -eq 0) {
    Write-Output 'Compliant'
    exit 0
}

$reasons | ForEach-Object { Write-Output $_ }
exit 1

Remediation

$ErrorActionPreference = 'Stop'

function Set-RegistryValue {
    param(
        [Parameter(Mandatory = $true)][string] $Path,
        [Parameter(Mandatory = $true)][string] $Name,
        [Parameter(Mandatory = $true)][string] $PropertyType,
        [Parameter(Mandatory = $true)][object] $Value
    )

    if (-not (Test-Path -LiteralPath $Path)) {
        New-Item -Path $Path -Force | Out-Null
    }

    New-ItemProperty -LiteralPath $Path -Name $Name -PropertyType $PropertyType -Value $Value -Force | Out-Null
}

function Remove-RegistryValue {
    param(
        [Parameter(Mandatory = $true)][string] $Path,
        [Parameter(Mandatory = $true)][string] $Name
    )

    if (Test-Path -LiteralPath $Path) {
        Remove-ItemProperty -LiteralPath $Path -Name $Name -Force -ErrorAction SilentlyContinue
    }
}

function Clear-RegistryKeyValues {
    param(
        [Parameter(Mandatory = $true)][string] $Path
    )

    if (-not (Test-Path -LiteralPath $Path)) {
        return
    }

    foreach ($propertyName in (Get-Item -LiteralPath $Path).Property) {
        Remove-ItemProperty -LiteralPath $Path -Name $propertyName -Force -ErrorAction SilentlyContinue
    }
}

# Policy: Load Microsoft Visual Basic for Applications projects from text
# Name: L_LoadMicrosoftVisualBasicforApplicationsprojectsf
# Scope: User
# State: Enabled
# Source: visio16.admx

Set-RegistryValue -Path 'Registry::HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\visio\application' -Name 'loadvbaprojectsfromtext' -PropertyType 'String' -Value '1'

Set-RegistryValue -Path 'Registry::HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\visio\application' -Name 'loadvbaprojectsfromtext' -PropertyType 'DWord' -Value 1

History 1 retained release

5568.100010 Aug 2026
- Already present in the first release ChangeIntel keeps.

Template

Internal name: L_LoadMicrosoftVisualBasicforApplicationsprojectsf
Namespace: visio16.Office.Microsoft.Policies.Windows
Template file: visio16.admx
Release: Microsoft 365 Apps 5568.1000 · file set 8be05d876aae137d…

Definition, editor controls and support

Definition

<policy class="User" displayName="$(string.L_LoadMicrosoftVisualBasicforApplicationsprojectsf)" explainText="$(string.L_IfyouwanttobeabletohaveyourVBAprojectworkindrawi)" key="software\policies\microsoft\office\16.0\visio\application" name="L_LoadMicrosoftVisualBasicforApplicationsprojectsf" valueName="loadvbaprojectsfromtext" xmlns="http://schemas.microsoft.com/GroupPolicy/2006/07/PolicyDefinitions">
      <parentCategory ref="visio16.Office.Microsoft.Policies.Windows:L_MacroSecurity" />
      <supportedOn ref="Microsoft.Policies.Windows:SUPPORTED_Windows7" />
      <enabledValue>
        <string>1</string>
      </enabledValue>
      <disabledValue>
        <string>0</string>
      </disabledValue>
    </policy>

Editor controls

Supported platforms and category

visio16.Office.Microsoft.Policies.Windows:category:L_MacroSecurity
<category displayName="$(string.L_MacroSecurity)" name="L_MacroSecurity" xmlns="http://schemas.microsoft.com/GroupPolicy/2006/07/PolicyDefinitions">
      <parentCategory ref="visio16.Office.Microsoft.Policies.Windows:L_Security" />
    </category>
visio16.Office.Microsoft.Policies.Windows:category:L_MicrosoftVisio
<category displayName="$(string.L_MicrosoftVisio)" name="L_MicrosoftVisio" xmlns="http://schemas.microsoft.com/GroupPolicy/2006/07/PolicyDefinitions" />
visio16.Office.Microsoft.Policies.Windows:category:L_Security
<category displayName="$(string.L_Security)" name="L_Security" xmlns="http://schemas.microsoft.com/GroupPolicy/2006/07/PolicyDefinitions">
      <parentCategory ref="visio16.Office.Microsoft.Policies.Windows:L_VisioOptions" />
    </category>
visio16.Office.Microsoft.Policies.Windows:category:L_VisioOptions
<category displayName="$(string.L_VisioOptions)" name="L_VisioOptions" xmlns="http://schemas.microsoft.com/GroupPolicy/2006/07/PolicyDefinitions">
      <parentCategory ref="visio16.Office.Microsoft.Policies.Windows:L_MicrosoftVisio" />
    </category>
visio16.Office.Microsoft.Policies.Windows:unresolved:Microsoft.Policies.Windows:SUPPORTED_Windows7
<unresolved reference="Microsoft.Policies.Windows:SUPPORTED_Windows7" />
visio16.Office.Microsoft.Policies.Windows:category:L_MacroSecurity
<category displayName="$(string.L_MacroSecurity)" name="L_MacroSecurity" xmlns="http://schemas.microsoft.com/GroupPolicy/2006/07/PolicyDefinitions">
      <parentCategory ref="visio16.Office.Microsoft.Policies.Windows:L_Security" />
    </category>
<strings><string id="visio16.Office.Microsoft.Policies.Windows:L_MacroSecurity">Macro Security</string></strings>
visio16.Office.Microsoft.Policies.Windows:category:L_MicrosoftVisio
<category displayName="$(string.L_MicrosoftVisio)" name="L_MicrosoftVisio" xmlns="http://schemas.microsoft.com/GroupPolicy/2006/07/PolicyDefinitions" />
<strings><string id="visio16.Office.Microsoft.Policies.Windows:L_MicrosoftVisio">Microsoft Visio 2016</string></strings>
visio16.Office.Microsoft.Policies.Windows:category:L_Security
<category displayName="$(string.L_Security)" name="L_Security" xmlns="http://schemas.microsoft.com/GroupPolicy/2006/07/PolicyDefinitions">
      <parentCategory ref="visio16.Office.Microsoft.Policies.Windows:L_VisioOptions" />
    </category>
<strings><string id="visio16.Office.Microsoft.Policies.Windows:L_Security">Security</string></strings>
visio16.Office.Microsoft.Policies.Windows:category:L_VisioOptions
<category displayName="$(string.L_VisioOptions)" name="L_VisioOptions" xmlns="http://schemas.microsoft.com/GroupPolicy/2006/07/PolicyDefinitions">
      <parentCategory ref="visio16.Office.Microsoft.Policies.Windows:L_MicrosoftVisio" />
    </category>
<strings><string id="visio16.Office.Microsoft.Policies.Windows:L_VisioOptions">Visio Options</string></strings>