Partager via


Propriété Application.AutomationSecurity (PowerPoint)

Représente le mode de sécurité que Microsoft PowerPoint utilise lorsqu’il ouvre des fichiers par programme. Lecture-écriture.

Syntaxe

expression. AutomationSecurity

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

MsoAutomationSecurity

Remarques

Cette propriété reçoit automatiquement la valeur msoAutomationSecurityLow au démarrage de l’application. Par conséquent, pour éviter le piratage de solutions s’appuyant uniquement sur le paramètre par défaut, il est conseillé d’attribuer à cette propriété la valeur msoAutomationSecurityLow après avoir ouvert un fichier par programme. De même, pour éviter toute action malveillante, vous devez définir cette propriété immédiatement avant et après avoir ouvert un fichier par programme.

La valeur de la propriété DisplayAlerts ne s’applique pas aux avertissements de sécurité. Par exemple, si l’utilisateur définit la propriété DisplayAlerts comme étant False et la propriété AutomationSecurity avec la valeur msoAutomationSecurityByUI, avec un niveau de sécurité Moyen, alors il y recevra des avertissements de sécurité pendant l’exécution de la macro. Cela permet à la macro d’intercepter les erreurs liées à l’ouverture d’un fichier tout en continuant d’afficher les avertissements de sécurité si l’ouverture du fichier réussit.

La valeur de la propriété AutomationSecurity peut être l’une des constantes MsoAutomationSecurity suivantes.

Constante Description
msoAutomationSecurityByUI Utilise le paramètre de sécurité spécifié dans la boîte de dialogue Centre de gestion de la confidentialité.
msoAutomationSecurityForceDisable Désactive toutes les macros de tous les fichiers ouverts par programme sans afficher d’alerte de sécurité.
msoAutomationSecurityLow Active toutes les macros. Correspond à la valeur par défaut au démarrage de l’application.

Exemple

Cet exemple montre comment effectuer les opérations suivantes : identifier le paramètre de la sécurité d’automation en cours ; modifier ce paramètre afin de désactiver les macros ; afficher la boîte de dialogue Ouvrir ; réaffecter à la sécurité d’automation son paramètre initial une fois que la présentation sélectionnée a été ouverte.

Sub Security()

    Dim secAutomation As MsoAutomationSecurity



    secAutomation = Application.AutomationSecurity



    Application.AutomationSecurity = msoAutomationSecurityForceDisable

    Application.FileDialog(msoFileDialogOpen).Show



    Application.AutomationSecurity = secAutomation



End Sub

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.