Classe ProtectedViewWindow (Excel VBA)

A classe ProtectedViewWindow representa uma janela no Modo de Exibição Protegido.

Os principais procedimentos da classe ProtectedViewWindow são Activate, Close e ProtectedViewWindows.Open

Set

Para usar uma variável de classe ProtectedViewWindow, ela primeiro precisa ser instanciada por exemplo

Dim pvw as ProtectedViewWindow
Set pvw = Application.ActiveProtectedViewWindow

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ProtectedViewWindow: Application.ActiveProtectedViewWindow, ProtectedViewWindows.Item, ProtectedViewWindows.Open e Application.ProtectedViewWindows

For Each

Aqui está um exemplo de processamento dos itens ProtectedViewWindow em uma coleção.

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

Métodos

Estes são os principais métodos da classe ProtectedViewWindow

Activate - Traz a janela Modo de Exibição Protegido para a frente da ordem z.

Application.ActiveProtectedViewWindow.Activate

Close - Fecha a janela de modo de exibição protegido especificada.

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

ProtectedViewWindows.Open - Abre a pasta de trabalho especificada na janela Modo de Exibição Protegido.

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

Estes são os principais métodos da classe

Edit - Abre a pasta de trabalho que está aberta para edição na janela modo de exibição protegido especificada.

Propriedades

Caption Retorna ou define um valor que representa o nome que aparece na barra de título da janela modo de exibição protegido. Leitura/gravação.

Application.ActiveProtectedViewWindow.Caption =

EnableResize True se a janela modo de exibição protegido puder ser redimensionada. Leitura/gravação.

Application.ActiveProtectedViewWindow.EnableResize = True

Height Retorna ou define um valor que representa a altura, em pontos, da janela do modo de exibição protegido. Leitura/gravação.

Application.ActiveProtectedViewWindow.Height =

Left Retorna ou define um valor que representa a distância, em pontos, da borda esquerda da área do cliente à borda esquerda da janela do modo de exibição protegido. Leitura/gravação.

Application.ActiveProtectedViewWindow.Left =

SourceName Retorna o nome do arquivo de origem aberto na janela Modo de Exibição Protegido especificado. Somente leitura.

Dim strSourceName As String
strSourceName = Application.ActiveProtectedViewWindow.SourceName

SourcePath Retorna o caminho do arquivo de origem aberto na janela Modo de Exibição Protegido especificado. Somente leitura.

Dim strSourcePath As String
strSourcePath = Application.ActiveProtectedViewWindow.SourcePath

Top Retorna ou define um valor que representa a distância, em pontos, da borda superior da janela do modo de exibição protegido especificada à borda superior da área utilizável. Leitura/gravação.

Application.ActiveProtectedViewWindow.Top =

Visible Retorna ou define um valor que determina se a janela Modo de Exibição Protegido especificada está visível. Leitura/gravação.

Application.ActiveProtectedViewWindow.Visible = True

Width Retorna ou define um valor que especifica a largura, em pontos, da janela do modo de exibição protegido especificada. Leitura/gravação.

Application.ActiveProtectedViewWindow.Width =

WindowState Retorna ou define o estado da janela de modo de exibição protegido especificada. Leitura/gravação.

Application.ActiveProtectedViewWindow.WindowState = xlProtectedViewWindowMaximized

Workbook Retorna um objeto que representa a pasta de trabalho que está aberta na janela Modo de Exibição Protegido especificada. Somente leitura.

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

ProtectedViewWindows.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = Application.ProtectedViewWindows.Count

ProtectedViewWindows.Item Retorna um único objeto de uma coleção.

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

ProtectedViewWindows.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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