InvisibleApp.VBAEnabled-Eigenschaft (Visio)

  • Artikel

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

Syntax

Ausdruck. VBAEnabled

Ausdruck Eine Variable, die ein InvisibleApp-Objekt darstellt.

Rückgabewert

Boolesch

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 Center aktiviert ist (klicken Sie auf die Registerkarte BackstageButton , klicken Sie auf Optionen, klicken Sie auf Trust Center und 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.