Hinweis
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.
Fügt einen Bereich hinzu, der in einem geschützten Arbeitsblatt bearbeitet werden kann. Gibt ein AllowEditRange-Objekt zurück.
Syntax
Ausdruck verwendet werden. Hinzufügen (Titel, Bereich, Kennwort)
Ausdruck Eine Variable, die ein AllowEditRanges-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Title | Erforderlich | String | Der Titel des Bereichs. |
| Range | Erforderlich | Range | Bereichsobjekt . Der Bereich, der bearbeitet werden kann. |
| Password | Optional | Variant | Das Kennwort für den Bereich. |
Rückgabewert
Ein AllowEditRange-Objekt , das den Bereich darstellt.
Beispiel
In diesem Beispiel können Bearbeitungen im Bereich A1:A4 des aktiven Arbeitsblatts vorgenommen werden, der Benutzer benachrichtigt werden, das Kennwort für den angegebenen Bereich geändert wird und der Benutzer anschließend über diese Änderung benachrichtigt wird.
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"
' Protect the worksheet.
wksOne.Protect
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
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.