Change Trust Center Settings with VBA

[erkala]

I have a pivot table that needs specific settings in the Trust Center. It requires "Enable all macros" and trust access. I have an existing macro that opens this file to extract data. Is there a VBA that would update the Trust Center to allow for this file then revert back to the old settings. I do not want to enable all macros all the time.

Thanks!!
erkala

 

[tigeravatar]

erkala,

Something like this?

Sub tgr()
 
    Dim MacroSec As Integer
 
    MacroSec = Application.AutomationSecurity
    Application.AutomationSecurity = msoAutomationSecurityLow
 
    '''''''''''''''''''''
    '                   '
    '   Run code here   '
    '                   '
    '''''''''''''''''''''
 
    Application.AutomationSecurity = MacroSec
 
 
End Sub

 

[erkala]

I think I posted this to the wrong forum. Reposted to "Excel Questions".

 

[erkala]

erkala,

Something like this?

Sub tgr()
 
    Dim MacroSec As Integer
 
    MacroSec = Application.AutomationSecurity
    Application.AutomationSecurity = msoAutomationSecurityLow
 
    '''''''''''''''''''''
    '                   '
    '   Run code here   '
    '                   '
    '''''''''''''''''''''
 
    Application.AutomationSecurity = MacroSec
 
 
End Sub

Worked!! Thanks a ton!!

 

[j_0235]

I tried the code to auto enable editing for files originating from the internet but to no avail. Would you please help me with my problem? Thanks in advance!