Classe AllowEditRange - les cellules qui peuvent être modifiées dans une feuille de calcul protégée (Excel VBA)

Cet objet représente les cellules qui peuvent être modifiées dans une feuille de calcul protégée. 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)

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.

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.

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