Propriété Application.VBAEnabled (Visio)

Article
04/07/2023

Cette propriété indique si Microsoft Visual Basic pour Applications (VBA) est activé dans l’application. En lecture seule.

Syntaxe

expression. VBAEnabled

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Boolean

Remarques

Si un document qui contient un projet VBA est ouvert alors que VBA est activé, puis que VBA est désactivé alors que le document est ouvert :

Microsoft Visio n’exécute plus de macros dans ce document, mais leur nom apparaît toujours dans la boîte de dialogue Macros (appuyez sur Alt+F8).
Visio continue à envoyer des événements au projet.

Si un document qui contient un projet VBA est ouvert alors que VBA est désactivé, et que VBA est ensuite activé alors que le document est ouvert :

Visio n’envoie pas d’événements au projet, même si VBA a été activé.
Les macros restent désactivées.

La propriété VBAEnabled a la valeur True si la case Accès approuvé au modèle objet du projet VBA est cochée sous Paramètres de macro développeur dans la page Paramètres des macros du Centre de gestion de la confidentialité (cliquez sur l’onglet Fichier , sur Options, sur Centre de gestion de la confidentialité, puis sur Paramètres du Centre de gestion de la confidentialité). Si cette case est désactivée, la propriété indique False.

Exemple

Vous disposez peut-être d’un document qui nécessite que VBA soit activé pour être exécuté correctement ; par exemple, un code dans le gestionnaire d’événements DocumentOpened d’un document. Le code suivant peut être exécuté à partir d’un module complémentaire pour vérifier si VBA est activé dans l’application avant d’ouvrir un document reposant sur VBA.

Avant d’exécuter cette procédure, attribuez un nom de fichier valide à la variable NomFichier.

Public Sub VBAEnabled_Example() 
 
    Dim vsoDocument As Visio.Document 
    Dim blsStatus As Boolean 
 
    blsStatus = Application.VBAEnabled  
    If Not blsStatus Then 
 
        MsgBox "For this process to continue, VBA must be enabled." & _ 
        " Please enable VBA and start over." 
 
    Else 
 
        Set vsoDocument = Documents.Open("filename ") 
 
    End if 
 
End Sub

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.

Partager via