Accès approuvé au projet Visual Basic
Vérifié avec Microsoft 365/Office 5568.1000 — mis à jour le 4 septembre 2026
Pris en charge sur : Au minimum Windows Server 2008 R2 ou Windows 7
Chemin dans la console GPO
Configuration utilisateur\Modèles d'administration\Microsoft PowerPoint 2016\Options PowerPoint\Sécurité\Centre de gestion de la confidentialité Description
Ce paramètre de stratégie contrôle l’accès des clients Automation, tels que Microsoft Visual Studio 2005 Tools pour Microsoft Office (VSTO), au système de projet Visual Basic pour Applications dans les applications spécifiées. Dans Excel, PowerPoint et Word, l’accès au système de projet Visual Basic pour Applications est requis pour les projets VSTO même si ceux-ci n’utilisent pas Visual Basic pour Applications. La prise en charge de la conception des contrôles dans les projets Visual Basic et C# est liée au système de projet Visual Basic pour Applications dans Word et Excel. Si vous activez ce paramètre de stratégie, VSTO et les autres clients Automation peuvent accéder au système de projet Visual Basic pour Applications dans les applications spécifiées. L’option Accès approuvé au modèle d’objet du projet VBA dans la section Paramètres des macros du Centre de gestion de la confidentialité ne permet pas aux utilisateurs de modifier ce comportement. Si vous désactivez ce paramètre de stratégie, VSTO ne peut pas accéder par programme aux projets VBA. Par ailleurs, la case à cocher Accès approuvé au modèle d’objet du projet VBA est désactivée, et les utilisateurs ne peuvent pas modifier cette configuration. Remarque : la désactivation de ce paramètre de stratégie empêche l’interaction correcte des projets VSTO avec le système de projet VBA dans l’application sélectionnée. Si vous ne configurez pas ce paramètre de stratégie, les clients Automation ne peuvent pas accéder par programme aux projets VBA. Les utilisateurs peuvent activer l’accès en sélectionnant l’option Accès approuvé au modèle d’objet du projet VBA dans la section Paramètres des macros du Centre de gestion de la confidentialité. Toutefois, cette configuration permet aux macros insérées dans les documents ouverts par l’utilisateur d’accéder aux principaux objets, méthodes et propriétés Visual Basic. Ceci constitue un risque potentiel pour la sécurité.
Registre
software\policies\microsoft\office\16.0\powerpoint\security Nom de valeur : accessvbom
Activé : accessvbom = 1
Désactivé : accessvbom = 0
Générateur d'exports
BETAConfigurez l'état, la portée et les options, puis générez les sorties .reg, PowerShell, Intune et SCCM — ou ajoutez le paramètre à une collection multi-paramètres.
Ces exports écrivent le registre — ce n'est pas une GPO managée. ⓘ
Fichier .reg
Windows Registry Editor Version 5.00
; Exported from gporais.com
; Policy: Accès approuvé au projet Visual Basic
; State: Enabled
; Supported on: Au minimum Windows Server 2008 R2 ou Windows 7
[HKEY_CURRENT_USER\software\policies\microsoft\office\16.0\powerpoint\security]
"accessvbom"=dword:00000001Autres formats (PowerShell, Intune, SCCM)
PowerShell
# Exported from gporais.com
# Policy: Accès approuvé au projet Visual Basic
# State: Enabled
# Supported on: Au minimum Windows Server 2008 R2 ou Windows 7
# Warning: In SYSTEM context (the Intune default), HKCU targets the SYSTEM profile. Run this script using the logged-on credentials.
$path = 'HKCU:\software\policies\microsoft\office\16.0\powerpoint\security'
New-Item -Path $path -Force | Out-Null
Set-ItemProperty -Path $path -Name 'accessvbom' -Value 1 -Type DWordIntune XML
Aucune correspondance directe Policy CSP / OMA-URI pour cette stratégie. Utilisez l'onglet Intune Remediation, ou importez l'ADMX dans Intune.Intune Remediation
# === Detection script ===
# Exported from gporais.com
# Policy: Accès approuvé au projet Visual Basic
# State: Enabled
# Supported on: Au minimum Windows Server 2008 R2 ou Windows 7
# Warning: In SYSTEM context (the Intune default), HKCU targets the SYSTEM profile. Run this script using the logged-on credentials.
function Test-RegistryValue {
param(
[Parameter(Mandatory = $true)][string]$Path,
[Parameter(Mandatory = $true)][string]$Name,
[object]$Expected,
[ValidateSet('String', 'DWord', 'MultiString')][string]$Kind = 'String',
[switch]$Absent
)
try {
$item = Get-ItemProperty -LiteralPath $Path -Name $Name -ErrorAction Stop
} catch {
return $Absent.IsPresent
}
if ($Absent.IsPresent) { return $false }
$actual = $item.$Name
if ($Kind -eq 'DWord') { return ([int64]$actual) -eq ([int64]$Expected) }
if ($Kind -eq 'MultiString') {
$actualValues = @($actual)
$expectedValues = @($Expected)
if ($actualValues.Count -ne $expectedValues.Count) { return $false }
for ($i = 0; $i -lt $expectedValues.Count; $i++) {
if ([string]$actualValues[$i] -ne [string]$expectedValues[$i]) { return $false }
}
return $true
}
return [string]$actual -eq [string]$Expected
}
$checks = @(
(Test-RegistryValue -Path 'HKCU:\software\policies\microsoft\office\16.0\powerpoint\security' -Name 'accessvbom' -Expected 1 -Kind DWord)
)
if ($checks -notcontains $false) {
Write-Output 'Compliant'
exit 0
}
Write-Output 'Non-compliant'
exit 1
# === Remediation script ===
# Exported from gporais.com
# Policy: Accès approuvé au projet Visual Basic
# State: Enabled
# Supported on: Au minimum Windows Server 2008 R2 ou Windows 7
# Warning: In SYSTEM context (the Intune default), HKCU targets the SYSTEM profile. Run this script using the logged-on credentials.
$path = 'HKCU:\software\policies\microsoft\office\16.0\powerpoint\security'
New-Item -Path $path -Force | Out-Null
Set-ItemProperty -Path $path -Name 'accessvbom' -Value 1 -Type DWordScripts SCCM
# Exported from gporais.com
# Policy: Accès approuvé au projet Visual Basic
# State: Enabled
# Supported on: Au minimum Windows Server 2008 R2 ou Windows 7
# SCCM Configuration Item guidance:
# Create a Configuration Item of type "Setting: Script".
# Discovery script: use the Detection script below.
# Remediation script: use the Remediation script below.
# Compliance rule: the Discovery script output equals 'Compliant'.
# === Detection script ===
# Exported from gporais.com
# Policy: Accès approuvé au projet Visual Basic
# State: Enabled
# Supported on: Au minimum Windows Server 2008 R2 ou Windows 7
# Warning: In SYSTEM context (the Intune default), HKCU targets the SYSTEM profile. Run this script using the logged-on credentials.
function Test-RegistryValue {
param(
[Parameter(Mandatory = $true)][string]$Path,
[Parameter(Mandatory = $true)][string]$Name,
[object]$Expected,
[ValidateSet('String', 'DWord', 'MultiString')][string]$Kind = 'String',
[switch]$Absent
)
try {
$item = Get-ItemProperty -LiteralPath $Path -Name $Name -ErrorAction Stop
} catch {
return $Absent.IsPresent
}
if ($Absent.IsPresent) { return $false }
$actual = $item.$Name
if ($Kind -eq 'DWord') { return ([int64]$actual) -eq ([int64]$Expected) }
if ($Kind -eq 'MultiString') {
$actualValues = @($actual)
$expectedValues = @($Expected)
if ($actualValues.Count -ne $expectedValues.Count) { return $false }
for ($i = 0; $i -lt $expectedValues.Count; $i++) {
if ([string]$actualValues[$i] -ne [string]$expectedValues[$i]) { return $false }
}
return $true
}
return [string]$actual -eq [string]$Expected
}
$checks = @(
(Test-RegistryValue -Path 'HKCU:\software\policies\microsoft\office\16.0\powerpoint\security' -Name 'accessvbom' -Expected 1 -Kind DWord)
)
if ($checks -notcontains $false) {
Write-Output 'Compliant'
exit 0
}
Write-Output 'Non-compliant'
exit 1
# === Remediation script ===
# Exported from gporais.com
# Policy: Accès approuvé au projet Visual Basic
# State: Enabled
# Supported on: Au minimum Windows Server 2008 R2 ou Windows 7
# Warning: In SYSTEM context (the Intune default), HKCU targets the SYSTEM profile. Run this script using the logged-on credentials.
$path = 'HKCU:\software\policies\microsoft\office\16.0\powerpoint\security'
New-Item -Path $path -Force | Out-Null
Set-ItemProperty -Path $path -Name 'accessvbom' -Value 1 -Type DWordVous construisez une collection multi-paramètres ? Ajoutez ce paramètre et générez des exports combinés (.reg, PowerShell, GPO).