Evento Application.ProtectedViewWindowBeforeClose (Word)

Artigo
04/07/2023

Ocorre imediatamente antes que uma janela do Modo de Exibição Protegida ou um documento em uma janela de Exibição Protegida feche.

Sintaxe

expression. ProtectedViewWindowBeforeClose( _PvWindow_ , _CloseReason_ , _Cancel_ )

Expressão Uma expressão que retorna um objeto Application .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
PvWindow	Obrigatório	ProtectedViewWindow	A janela Exibição Protegida que está fechada.
Closereason	Obrigatório	[INT]	Uma constante na enumeração WdProtectedViewCloseReason que especifica o motivo pelo qual a janela Exibição Protegida está fechada.
Cancel	Obrigatório	Boolean	False quando o evento ocorre. Se o procedimento de evento define este argumento como True, a janela não fechará quando o procedimento for concluído.

Observação

Se o evento ProtectedViewWindowsBeforeClose for chamado como parte do método ProtectedView.Edit , a configuração Cancelar para True não produzirá nenhuma ação.

Exemplo

O exemplo de código a seguir solicita ao usuário uma resposta Sim ou Não antes de fechar qualquer documento. Este código deve ser colocado em um módulo de classe, e uma instância da classe deve ser inicializada corretamente para que este exemplo funcione. Para obter mais informações sobre como fazer isso, consulte Usando eventos com o objeto Application.

O exemplo pressupõe que você tenha declarado uma variável de aplicativo chamada MailMergeApp nas declarações gerais e tenha definido a variável com um valor igual ao do objeto Application do Word.

Private Sub App_ProtectedViewWindowBeforeClose(ByVal PvWindow As ProtectedViewWindow, ByVal CloseReason As Long, Cancel As Boolean) 
Dim intResponse As Integer 
 
    intResponse = MsgBox("Do you really " _ 
        & "want to close the document?", _ 
        vbYesNo) 
 
    If intResponse = vbNo Then Cancel = True 
 
End Sub

Confira também

Objeto de Aplicativo

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.

Compartilhar via