AllowEditRanges.Add, méthode (Excel)

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. Ajouter (Titre, Plage, Mot de passe)

expression Variable qui représente un objet AllowEditRanges .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Title	Obligatoire	String	Titre de la plage.
Range	Obligatoire	Range	Objet Range . Plage pouvant être modifiée.
Password	Facultatif	Variant	Mot de passe de la plage.

Valeur renvoyée

Objet AllowEditRange qui représente la plage.

Exemple

Cet exemple autorise les modifications apportées à la plage A1 :A4 de la feuille de calcul active, avertit l’utilisateur, modifie le mot de passe pour cette plage spécifiée, puis avertit l’utilisateur de cette modification.

Sub UseChangePassword() 
 
 Dim wksOne As Worksheet 
 
 Set wksOne = Application.ActiveSheet 

 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:="secret" 

 ' Protect the worksheet. 
 wksOne.Protect 
 
 MsgBox "Cells A1 to A4 can be edited on the protected worksheet." 
 
 ' Change the password. 
 wksOne.Protection.AllowEditRanges(1).ChangePassword _ 
 Password:="moresecret" 
 
 MsgBox "The password for these cells has been changed." 
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.