Objet AllowEditRange (Excel)
Cet objet représente les cellules qui peuvent être modifiées dans une feuille de calcul protégée.
Remarques
Utilisez la méthode Add ou la propriété Item de la collection AllowEditRanges pour renvoyer un objet AllowEditRange.
Une fois qu’un objet AllowEditRange a été retourné, vous pouvez utiliser la méthode ChangePassword pour modifier le mot de passe afin d’accéder à une plage qui peut être modifiée dans une feuille de calcul protégée.
Exemple
Dans cet exemple, Microsoft Excel autorise les modifications de la plage « A1:A4 » dans la feuille de calcul active, avertit l’utilisateur, puis modifie le mot de passe pour cette plage spécifiée et avertit l’utilisateur de cette modification.
Sub UseChangePassword()
Dim wksOne As Worksheet
Dim wksPassword As String
Set wksOne = Application.ActiveSheet
wksPassword = InputBox ("Enter password for the worksheet")
' Establish a range that can allow edits
' on the protected worksheet.
wksOne.Protection.AllowEditRanges.Add _
Title:="Classified", _
Range:=Range("A1:A4"), _
Password:=wksPassword
MsgBox "Cells A1 to A4 can be edited on the protected worksheet."
' Change the password.
wksPassword = InputBox ("Enter the new password for the worksheet")
wksOne.Protection.AllowEditRanges(1).ChangePassword _
Password:=wksPassword
MsgBox "The password for these cells has been changed."
End Sub
Méthodes
Propriétés
Voir aussi
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.