Add Enable-AllMacros

Author: DecimalTurn

scripts/Enable-VBOM.ps1

@@ -1,4 +1,4 @@
-# Enable access to the VBA project object model
+# Enable access to the VBA project object model and configure macro security settings
 
 function Enable-VBOM ($App) {
   Try {
@@ -41,14 +41,58 @@ function Enable-VBOM ($App) {
         Write-Output "Error: None of the registry paths for AccessVBOM were found."
     }
 
-
   } Catch {
     Write-Output "Failed to enable access to VBA project object model for $App."
     Write-Output "Error: $($_.Exception.Message)"
     Write-Output "StackTrace: $($_.Exception.StackTrace)"
   }
 }
 
+function Enable-AllMacros ($App) {
+  Try {
+    # Check if the application registry key exists
+    $AppKeyPath = "Registry::HKEY_CLASSES_ROOT\$App.Application\CurVer"
+    if (-not (Test-Path $AppKeyPath)) {
+      Write-Output "Error: The registry path '$AppKeyPath' does not exist."
+      return
+    }
+
+    # Retrieve the current version
+    $CurVer = Get-ItemProperty -Path $AppKeyPath -ErrorAction Stop
+    $Version = $CurVer.'(default)'.replace("$App.Application.", "") + ".0"
+
+    # Define possible security paths
+    $SecurityPaths = @(
+        "HKCU:\Software\Microsoft\Office\$Version\$App\Security",
+        "HKLM:\Software\Microsoft\Office\$Version\$App\Security"
+    )
+
+    # Check each path
+    $Found = $false
+    foreach ($Path in $SecurityPaths) {
+        if (Test-Path $Path) {
+            Write-Output "Found security registry path: $Path"
+            # Set VBAWarnings to 1 (Enable all macros)
+            Set-ItemProperty -Path $Path -Name VBAWarnings -Value 1 -ErrorAction Stop
+            Write-Output "Successfully set macro security level to 'Enable all macros' at $Path."
+            $Found = $true
+        }
+        else {
+            Write-Output "Security registry path not found: $Path"
+        }
+    }
+
+    if (-not $Found) {
+        Write-Output "Error: None of the registry paths for macro security settings were found."
+    }
+
+  } Catch {
+    Write-Output "Failed to modify macro security settings for $App."
+    Write-Output "Error: $($_.Exception.Message)"
+    Write-Output "StackTrace: $($_.Exception.StackTrace)"
+  }
+}
+
 # Get the app name from the argument passed to the script
 $AppName = $args[0]
 
@@ -58,4 +102,7 @@ if (-not $AppName) {
 }
 
 Write-Output "Enabling VBOM access for $AppName..."
-Enable-VBOM $AppName
+Enable-VBOM $AppName
+
+Write-Output "Setting macro security to enable all macros for $AppName..."
+Enable-AllMacros $AppName