Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Ocorre imediatamente antes de uma janela de Exibição Protegida ou de um documento em uma janela de Exibição Protegida ser fechado.
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 |
|---|---|---|---|
| Janela PvV | Obrigatório | ProtectedViewWindow | A janela de Exibição Protegida que está fechada. |
| Motivo de encerramento | Obrigatório | [INT] | Uma constante na enumeração WdProtectedViewCloseReason que especifica o motivo pelo qual a janela de 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 de Cancel como 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
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.