Propiedad InvisibleApp.VBAEnabled (Visio)

Especifica si Microsoft Visual Basic para Aplicaciones (VBA) está habilitado en la aplicación. Solo lectura.

Sintaxis

expresión. VBAEnabled

Expresión Variable que representa un objeto InvisibleApp .

Valor devuelto

Booleano

Comentarios

Si un documento que contiene un proyecto de VBA se abre con VBA habilitado y se deshabilita VBA mientras el documento está abierto:

• Microsoft Visio ya no ejecuta macros en dicho documento pero los nombres de macros todavía aparecen en el cuadro de diálogo Macros (presione Alt+F8).

• Visio continúa desencadenando eventos en el proyecto.

Si un documento que contiene un proyecto VBA se abre con VBA deshabilitado, VBA se habilita mientras el documento está abierto:

• Visio no desencadena eventos en el proyecto, incluso aunque VBA se haya habilitado.

• Las macros permanecen deshabilitadas.

La propiedad VBAEnabled se establece en True si la casilla Acceso de confianza al modelo de objetos de proyecto vba está seleccionada en Configuración de macro para desarrolladores en la página Configuración de macros del Centro de confianza (haga clic en la pestaña BackstageButton , haga clic en Opciones, en Centro de confianzay, a continuación, haga clic en Configuración del Centro de confianza). Si no está activada, la propiedad devuelve el valor False.

Ejemplo:

Puede tener un documento que requiera que VBA se habilite para ejecutarse adecuadamente, por ejemplo, el código del controlador de eventos DocumentOpened de un documento. El siguiente código se puede ejecutar desde un complemento para verificar si VBA está habilitado en la aplicación antes de que se abra un documento que depende de VBA.

Antes de ejecutar este procedimiento, suministre un nombre de archivo de documento válido para la variable nombrearchivo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.