AllowEditRange.ChangePassword-Methode (Excel)

Ändert das Kennwort für einen Bereich, der in einem geschützten Arbeitsblatt bearbeitet werden kann.

Syntax

Ausdruck verwendet werden. ChangePassword (Kennwort)

Ausdruck Eine Variable, die ein AllowEditRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Password	Erforderlich	String	Das neue Kennwort.

Beispiel

In diesem Beispiel erlaubt Microsoft Excel Bearbeitungen im Bereich A1:A4 des aktiven Arbeitsblatts, benachrichtigt den Benutzer, ändert das Kennwort für diesen angegebenen Bereich und benachrichtigt den Benutzer dann über die Änderung. Der Arbeitsblatt muss ungeschützt sein, bevor dieser Code ausgeführt wird.

Sub UseChangePassword() 
 
 Dim wksOne As Worksheet 
 Dim strPassword As String 
 
 Set wksOne = Application.ActiveSheet 
 
 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 
 strPassword = InputBox("Please enter the password for the range") 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:=strPassword 
 
 strPassword = InputBox("Please enter the new password for the range") 
 
 ' Change the password. 
 wksOne.Protection.AllowEditRanges("Classified").ChangePassword _ 
 Password:="strPassword" 
 
 MsgBox "The password for these cells has been changed." 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.