Clase ProtectedViewWindow (Excel VBA)

La clase ProtectedViewWindow representa una ventana Vista protegida.

Los principales procedimientos de la clase ProtectedViewWindow son Activate, Close y ProtectedViewWindows.Open

Set

Para usar una variable de clase ProtectedViewWindow, primero debe ser instanciado, por ejemplo

Dim pvw as ProtectedViewWindow
Set pvw = Application.ActiveProtectedViewWindow

Los siguientes procedimientos se pueden usar para establecer variables de clase ProtectedViewWindow : Application.ActiveProtectedViewWindow, ProtectedViewWindows.Item, ProtectedViewWindows.Open y Application.ProtectedViewWindows

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ProtectedViewWindow en una colección.

Dim pvw As ProtectedViewWindow
For Each pvw In Application.ProtectedViewWindows
	
Next pvw

Métodos

Los principales métodos de la clase ProtectedViewWindow son

Activate - Sitúa la ventana Vista protegida en el primer plano del orden z.

Application.ActiveProtectedViewWindow.Activate

Close - Cierra la ventana de vista protegida especificada.

Dim booClose As Boolean
booClose = Application.ActiveProtectedViewWindow.Close()

ProtectedViewWindows.Open - Abre el libro especificado en una nueva ventana de Vista protegida.

Dim strFilename As String: strFilename = 
Dim pvw As ProtectedViewWindow
Set pvw = Application.ProtectedViewWindows.Open(Filename:=strFilename)

Otros Métodos

Edit - Abre el libro que está abierto para su edición en la ventana de vista protegida especificada.

Propiedades

Caption Devuelve o establece un valor de tipo Variant que representa el nombre que aparece en la barra de título de la ventana Vista protegida.

Application.ActiveProtectedViewWindow.Caption =

EnableResize True si se puede cambiar el tamaño de la ventana de vista protegida.

Application.ActiveProtectedViewWindow.EnableResize = True

Height Devuelve o establece un valor que representa el alto, en puntos, de la ventana de vista protegida.

Application.ActiveProtectedViewWindow.Height =

Left Devuelve o establece un valor que representa la distancia, en puntos, desde el borde izquierdo del área de cliente hasta el borde izquierdo de la ventana de vista protegida.

Application.ActiveProtectedViewWindow.Left =

SourceName Devuelve el nombre del archivo de origen que está abierto en la ventana Vista protegida especificada.

Dim strSourceName As String
strSourceName = Application.ActiveProtectedViewWindow.SourceName

SourcePath Devuelve la ruta de acceso del archivo de origen que está abierto en la ventana Vista protegida especificada.

Dim strSourcePath As String
strSourcePath = Application.ActiveProtectedViewWindow.SourcePath

Top Devuelve o establece un valor que representa la distancia, en puntos, desde el borde superior de la ventana de vista protegida especificada hasta el borde superior del área útil.

Application.ActiveProtectedViewWindow.Top =

Visible Devuelve o establece un valor que determina si la ventana Vista protegida especificada está visible.

Application.ActiveProtectedViewWindow.Visible = True

Width Devuelve o establece un valor que especifica el ancho, en puntos, de la ventana de vista protegida especificada.

Application.ActiveProtectedViewWindow.Width =

WindowState Devuelve o establece el estado de la ventana de vista protegida especificada.

Application.ActiveProtectedViewWindow.WindowState = xlProtectedViewWindowMaximized

Workbook Devuelve un objeto que representa el libro que está abierto en la ventana Vista protegida especificada.

Dim wbWorkbook As Workbook
Set wbWorkbook = Application.ActiveProtectedViewWindow.Workbook

ProtectedViewWindows.Count Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = Application.ProtectedViewWindows.Count

ProtectedViewWindows.Item Devuelve un solo objeto de una colección.

Dim pvwItem As ProtectedViewWindow
Set pvwItem = Application.ProtectedViewWindows(Index:=1)

ProtectedViewWindows.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = Application.ProtectedViewWindows.Parent