Freigeben über


Application.VBAEnabled-Eigenschaft (Visio)

Gibt an, ob Microsoft Visual Basic für Applikationen (VBA) in der Anwendung aktiviert ist. Schreibgeschützt.

Syntax

Ausdruck. VBAEnabled

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Boolean

Bemerkungen

Wenn beim Öffnen eines Dokuments, das ein VBA-Projekt enthält, VBA aktiviert ist, wird VBA so lange deaktiviert, wie das Dokument geöffnet ist:

  • In diesem Dokument werden keine Makros mehr ausgeführt, doch die Makronamen werden weiterhin im Dialogfeld Makros (drücken Sie ALT+F8) angezeigt.

  • Visio löst weiterhin Ereignisse für das Projekt aus.

Wenn beim Öffnen eines Dokuments, das ein VBA-Projekt enthält, VBA deaktiviert ist, wird VBA so lange aktiviert, wie das Dokument geöffnet ist:

  • Visio löst keine Ereignisse für das Projekt aus, obwohl VBA aktiviert wurde.

  • Makros bleiben weiterhin deaktiviert.

Die VBAEnabled-Eigenschaft ist auf True festgelegt, wenn das Kontrollkästchen Zugriff auf das VBA-Projektobjektmodell vertrauen unter Entwicklermakroeinstellungen auf der Seite Makroeinstellungen des Trust Centers aktiviert ist (klicken Sie auf die Registerkarte Datei , klicken Sie auf Optionen, klicken Sie auf Trust Center, und klicken Sie dann auf Einstellungen des Trust Centers). Wenn es nicht aktiviert ist, gibt die Eigenschaft False zurück.

Beispiel

Möglicherweise arbeiten Sie mit einem Dokument, das nur ordnungsgemäß ausgeführt werden kann, wenn VBA aktiviert ist, z. B. Code im DocumentOpened-Ereignishandler eines Dokuments. Der folgende Code kann von einem Add-On aus ausgeführt werden, um vor dem Öffnen eines VBA-abhängigen Dokuments zu überprüfen, ob VBA in der Anwendung aktiviert ist.

Geben Sie vor dem Ausführen dieser Prozedur einen gültigen Dokumentdateinamen für die Variable filename an.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.