0
This code of Mr Excel keeps the security status of the spreadsheet in the variable lSecurity, then switches to the low security level msoAutomationSecurityLow and then returns to the original security level.
Public Sub Subrotina()
Dim lSecurity As Long
On Error GoTo Fechar
lSecurity = Application.AutomationSecurity
Application.AutomationSecurity = msoAutomationSecurityLow
'''''''''''''''''''''
' Código aqui '
'''''''''''''''''''''
Fechar:
Application.AutomationSecurity = lSecurity
End Sub


Hi, thanks, I wanted to do this, but by VBA, without the user intern
– Dante