Classe AllowEditRange (Excel VBA)

Cet objet représente les cellules qui peuvent être modifiées dans une feuille de calcul protégée.

Set

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

Dim aer as AllowEditRange
Set aer = ActiveSheet.Protection.AllowEditRanges(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe AllowEditRange : AllowEditRanges.Item, AllowEditRanges.Add et Protection.AllowEditRanges

For Each

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

Dim aer As AllowEditRange
For Each aer In ActiveSheet.Protection.AllowEditRanges
	
Next aer

ChangePassword

Cette méthode change le mot de passe pour une plage qui peut être modifiée dans une feuille de calcul protégée.

Syntaxe : expression.ChangePassword (Password)

Password: Nouveau mot de passe.

Dim strPassword As String: strPassword = 
ActiveSheet.Protection.AllowEditRanges(1).ChangePassword Password:=strPassword

Delete

Cette méthode supprime l'objet.

ActiveSheet.Protection.AllowEditRanges(1).Delete

Range

ActiveSheet.Protection.AllowEditRanges(1).Range =

Title

Cette propriété renvoie ou définit le titre de la plage de cellules qui peut être modifiée dans une feuille de calcul protégée. String en lecture/écriture.

ActiveSheet.Protection.AllowEditRanges(1).Title =

Unprotect

Cette méthode supprime la protection d'une feuille ou d'un classeur. Elle est sans effet si la feuille ou le classeur n'est pas protégé.

Si vous oubliez le mot de passe, vous ne pouvez pas désactiver la protection de la feuille de calcul ou du classeur. Pensez à conserver en lieu sûr une liste de vos mots de passe et les noms des documents correspondants.

Syntaxe : expression.Unprotect (Password)

Password: Chaîne qui contient le mot de passe qui respecte la casse et qui sert à supprimer la protection de la plage de cellules. Si la plage n'est pas protégée par mot de passe, cet argument est ignoré.

ActiveSheet.Protection.AllowEditRanges(1).Unprotect

Users

Renvoie un objet UserAccessList pour la plage protégée dans une feuille de calcul.

Dim ualUsers As UserAccessList
Set ualUsers = ActiveSheet.Protection.AllowEditRanges(1).Users

AllowEditRanges.Add

Cette méthode ajoute une plage qui peut être modifiée sur une feuille de calcul protégée. Renvoie un objet AllowEditRange .

Syntaxe : expression.Add (Title, Range, Password)

Dim strTitle As String: strTitle = 
Dim aer As AllowEditRange
Set aer = ActiveSheet.Protection.AllowEditRanges.Add(Title:=strTitle, Range:=)

Arguments

Les arguments nommés :

Title (String) - Titre de la plage.

Range (Range) - Objet Range . Plage pouvant être modifiée.

Les arguments suivants sont facultatifs

Password (String) - Mot de passe de la plage.

AllowEditRanges.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 = ActiveSheet.Protection.AllowEditRanges.Count

AllowEditRanges.Item

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

Syntaxe : expression.Item (Index)

Index: Nom ou numéro d'index de l'objet.

Dim aerItem As AllowEditRange
Set aerItem = ActiveSheet.Protection.AllowEditRanges(Index:=1)