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