Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Ocurre inmediatamente antes de que se cierre una ventana de Vista protegida o un documento en una ventana de Vista protegida.
Sintaxis
expresión.
ProtectedViewWindowBeforeClose( _PvWindow_ , _CloseReason_ , _Cancel_ )
expresión Una expresión que devuelve un objeto de aplicación .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| PvWindow | Obligatorio | ProtectedViewWindow | Ventana de Vista protegida que está cerrada. |
| CloseReason | Obligatorio | [INT] | Constante en 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 , si se establece 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 acerca de cómo hacerlo, vea Utilizar 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
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.