Classe ProtectedViewWindow (Excel VBA)

La classe ProtectedViewWindow représente une fenêtre en mode protégé.

Les procédures principales de la classe ProtectedViewWindow sont Activate, Close et ProtectedViewWindows.Open

Set

Pour utiliser une variable de classe ProtectedViewWindow, elle doit d'abord être instanciée, par exemple

Dim pvw as ProtectedViewWindow
Set pvw = Application.ActiveProtectedViewWindow

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ProtectedViewWindow : Application.ActiveProtectedViewWindow, ProtectedViewWindows.Item, ProtectedViewWindows.Open et Application.ProtectedViewWindows

For Each

Voici un exemple de traitement des éléments ProtectedViewWindow dans une collection

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

Méthodes

Les méthodes principales de la classe ProtectedViewWindow sont

Activate - Amène la fenêtre Mode protégé au premier plan de l’ordre de plan.

Application.ActiveProtectedViewWindow.Activate

Close - Ferme la fenêtre en mode protégé spécifiée.

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

ProtectedViewWindows.Open - Ouvre le classeur spécifié dans une nouvelle fenêtre Mode protégé.

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

Autre Méthodes

Edit - Ouvre le classeur qui est ouvert pour modification dans la fenêtre en mode protégé spécifiée.

Propriétés

Caption Cette propriété renvoie ou définit une valeur de type Variant qui représente le nom qui apparaît dans la barre de titre de la fenêtre en mode protégé. Lecture-écriture.

Application.ActiveProtectedViewWindow.Caption =

EnableResize True si la fenêtre en mode protégé peut être redimensionnée. Lecture-écriture.

Application.ActiveProtectedViewWindow.EnableResize = True

Height Cette propriété renvoie ou définit une valeur qui représente la hauteur, en points, de la fenêtre en mode protégé. Lecture-écriture.

Application.ActiveProtectedViewWindow.Height =

Left Cette propriété renvoie ou définit une valeur qui représente la distance en pointsentre le bord gauche de la zone client et le bord gauche de la fenêtre en mode protégé. Lecture-écriture.

Application.ActiveProtectedViewWindow.Left =

SourceName Renvoie le nom du fichier source qui est ouvert dans la fenêtre Mode protégé spécifiée. En lecture seule.

Dim strSourceName As String
strSourceName = Application.ActiveProtectedViewWindow.SourceName

SourcePath Renvoie le chemin d’accès du fichier source qui est ouvert dans la fenêtre Mode protégé spécifiée. En lecture seule.

Dim strSourcePath As String
strSourcePath = Application.ActiveProtectedViewWindow.SourcePath

Top Cette propriété renvoie ou définit une valeur qui représente la distance, en points, entre le bord supérieur de la fenêtre en mode protégé spécifié et le bord supérieur de la zone utilisable. Lecture-écriture.

Application.ActiveProtectedViewWindow.Top =

Visible Renvoie ou définit une valeur qui détermine si la fenêtre Mode protégé est visible. Lecture-écriture.

Application.ActiveProtectedViewWindow.Visible = True

Width Cette propriété renvoie ou définit une valeur qui spécifie la largeur, en points, de la fenêtre en mode protégé spécifiée. Lecture-écriture.

Application.ActiveProtectedViewWindow.Width =

WindowState Cette propriété renvoie ou définit l’état de la fenêtre en mode protégé spécifiée. Lecture-écriture.

Application.ActiveProtectedViewWindow.WindowState = xlProtectedViewWindowMaximized

Workbook Renvoie un objet qui représente le classeur qui est ouvert dans la fenêtre Mode protégé spécifiée. En lecture seule.

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

ProtectedViewWindows.Count Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = Application.ProtectedViewWindows.Count

ProtectedViewWindows.Item Cette méthode renvoie un seul objet d'une collection.

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

ProtectedViewWindows.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

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