Propriedade Application.VBAEnabled (Visio)

Especifica se o Microsoft Visual Basic for Applications (VBA) está habilitado no aplicativo. Somente leitura.

Sintaxe

expressão. VBAEnabled

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Boolean

Comentários

Se um documento que contém um projeto VBA estiver aberto com o VBA habilitado e o VBA ficar desabilitado enquanto o documento estiver aberto:

• O Microsoft Visio não mais executará macros nesse documento, mas os nomes das macros ainda aparecerão na caixa de diálogo Macros (pressione Alt+F8).

• O Visio continuará a disparar eventos para o projeto.

Se um documento que contém um projeto VBA estiver aberto com o VBA desabilitado e o VBA ficar habilitado enquanto o documento estiver aberto:

• O Visio não irá disparar eventos para o projeto, muito embora o VBA tenha ficado habilitado.

• As macros permanecerão desabilitadas.

A propriedade VBAEnabled será definida como True se a caixa de seleção Confiança acessar o modelo de objeto do projeto VBA estiver selecionada em Configurações de Macro do Desenvolvedor na página Configurações de Macro da Central de Confiança (clique na guia Arquivo , clique em Opções, clique em Centro de Confiança e clique em Configurações do Centro de Confiança). Se não estiver marcada, a propriedade relatará False.

Exemplo

Você pode ter um documento que requeira que o VBA esteja habilitado para que seja executado corretamente, por exemplo, código no manipulador de eventos DocumentOpened de um documento. O código a seguir pode ser executado a partir de um complemento para verificar se o VBA está habilitado no aplicativo antes de abrir um documento que dependa do VBA.

Antes de executar este procedimento, forneça um nome válido de arquivo de documento para a variável filename.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.