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 .

Parameters

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 de plage A1:A4 dans la feuille de calcul active, avertit l’utilisateur, modifie le mot de passe pour cette plage spécifiée, puis informe l’utilisateur de cette modification.

Sub UseChangePassword() 
 
 Dim wksOne As Worksheet 
 
 Set wksOne = Application.ActiveSheet 
 
 ' Protect the worksheet. 
 wksOne.Protect 
 
 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:="secret" 
 
 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.