Anmerkung
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Stellt die Zellen dar, die in einem geschützten Arbeitsblatt bearbeitet werden können.
Hinweise
Verwenden Sie die Add-Methode oder die Item-Eigenschaft der AllowEditRanges-Auflistung, um ein AllowEditRange-Objekt zurückzugeben.
Nachdem ein AllowEditRange-Objekt zurückgegeben wurde, können Sie die ChangePassword-Methode verwenden, um das Kennwort für den Zugriff auf einen Bereich zu ändern, der in einem geschützten Arbeitsblatt bearbeitet werden kann.
Beispiel
In diesem Beispiel ermöglicht Microsoft Excel Bearbeitungen im Bereich "A1:A4" im aktiven Arbeitsblatt, benachrichtigt den Benutzer und ändert dann das Kennwort für diesen angegebenen Bereich und benachrichtigt den Benutzer über diese Änderung.
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
Methoden
Eigenschaften
Siehe auch
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.