Evento Application.ProtectedViewWindowBeforeClose (Word)

Artículo
04/07/2023

Se produce inmediatamente antes de que se cierre una ventana vista protegida o un documento de una ventana vista protegida.

Sintaxis

expresión. ProtectedViewWindowBeforeClose( _PvWindow_ , _CloseReason_ , _Cancel_ )

Expresión Expresión que devuelve un objeto Application .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
PvWindow	Obligatorio	ProtectedViewWindow	Ventana Vista protegida que está cerrada.
CloseReason	Obligatorio	[INT]	Constante de la enumeración WdProtectedViewCloseReason que especifica el motivo por el que se cierra la ventana Vista protegida.
Cancel	Obligatorio	Boolean	False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, la ventana no se cerrará al finalizar el procedimiento.

Nota:

Si se llama al evento ProtectedViewWindowsBeforeClose como parte del método ProtectedView.Edit , al establecer Cancelar en True no se produce ninguna acción.

Ejemplo:

En el ejemplo de código siguiente se solicita al usuario una respuesta de sí o no antes de cerrar cualquier documento. Este código debe colocarse en un módulo de clase y se debe inicializar correctamente una instancia de la clase para ver este ejemplo funcionar. Para obtener más información sobre cómo hacerlo, consulte Uso de eventos con el objeto Application.

En el siguiente ejemplo de código, se supone que se ha declarado una variable de aplicación denominada "App" en las declaraciones generales y que se ha establecido la variable igual al objeto Application de 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

Vea también

Objeto Application

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.