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 fechar uma janela vista protegida ou um documento numa janela vista protegida.
Sintaxe
expression.
ProtectedViewWindowBeforeClose( _PvWindow_ , _CloseReason_ , _Cancel_ )
expressão Uma expressão que devolve um objeto Aplicação .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| VaWindow | Obrigatório | ProtectedViewWindow | A janela Vista Protegida que está fechada. |
| CloseReason | Obrigatório | [INT] | Uma constante na enumeração WdProtectedViewCloseReason que especifica o motivo pelo qual a janela Vista 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 definição Cancelar como Verdadeiro 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 fazê-lo, veja Utilizar eventos com o objeto Aplicação.
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.