Propriété AllowEditRanges.Item (Excel)

Renvoie un seul objet d’une collection.

Syntaxe

expression. Élément (Index)

Expression Variable qui représente un objet AllowEditRanges .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Index	Obligatoire	Variant	Nom ou numéro d'index de l'objet.

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 
 
 ' 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.Item(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.