Propriedade Application.AutomationSecurity (PowerPoint)
Representa o modo de segurança que o Microsoft PowerPoint usa ao abrir arquivos programaticamente. Leitura/gravação.
Sintaxe
expression. AutomationSecurity
expressão Uma variável que representa um Aplicativo objeto.
Valor de retorno
MsoAutomationSecurity
Comentários
Essa propriedade é definida automaticamente como msoAutomationSecurityLow quando o aplicativo é iniciado. Portanto, para evitar que as soluções que dependem da configuração padrão, você deve estar cuidado ao redefinir essa propriedade como msoAutomationSecurityLow após programaticamente abrir um arquivo. Além disso, para evitar transtornos prejudiciais, você deve definir essa propriedade imediatamente antes e depois de abrir um arquivo programaticamente.
O valor da propriedade DisplayAlerts não se aplica a avisos de segurança. Por exemplo, se o usuário define a propriedade DisplayAlerts igual a False e a propriedade AutomationSecurity como msoAutomationSecurityByUI enquanto o usuário estiver no nível de segurança médio, haverá avisos de segurança enquanto a macro é executada. Isso permite que a macro intercepte erros ao abrir arquivos, enquanto ainda mostra se o arquivo tiver êxito na abertura de avisos de segurança.
O valor da propriedade AutomationSecurity pode ser uma destas constantes MsoAutomationSecurity.
| Constante | Descrição |
|---|---|
| msoAutomationSecurityByUI | Usa a configuração de segurança especificada na caixa de diálogo Centro de Confiança. |
| msoAutomationSecurityForceDisable | Desabilita todas as macros em todos os arquivos abertos por programação sem mostrar alertas de segurança. |
| msoAutomationSecurityLow | Habilita todas as macros. É o valor padrão quando o aplicativo é iniciado. |
Exemplo
Este exemplo captura a configuração de segurança de automação atual, altera a configuração para desabilitar macros, exibe a caixa de diálogo Abrir e, depois de abrir o aplicativo selecionado, define a segurança de automação de novo com sua configuração original.
Sub Security()
Dim secAutomation As MsoAutomationSecurity
secAutomation = Application.AutomationSecurity
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Application.FileDialog(msoFileDialogOpen).Show
Application.AutomationSecurity = secAutomation
End Sub
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.