Workbook.ProtectSharing-Methode (Excel)

Artikel
04/07/2023

Speichert eine Arbeitsmappe und schützt sie für die Freigabe.

Syntax

Ausdruck. ProtectSharing (FileName, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword, FileFormat)

expression Eine Variable, die ein Workbook-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
FileName	Optional	Variant	Eine Zeichenfolge, die den Namen der gespeicherten Datei angibt. Sie können einen vollständigen Pfad angeben; andernfalls wird die Datei von Microsoft Excel im aktuellen Ordner gespeichert.
Password	Optional	Variant	Eine von Groß-/Kleinschreibung abhängige Zeichenfolge, die das Schutzkennwort angibt, das der Datei zugeordnet werden soll. Die Zeichenfolge darf maximal 15 Zeichen umfassen.
WriteResPassword	Optional	Variant	Eine Zeichenfolge, die das Kennwort zum Schreibzugriff für die Datei angibt. Wenn eine Datei mit dem Kennwort gespeichert wird und das Kennwort beim Öffnen der Datei nicht angegeben wird, wird die Datei schreibgeschützt geöffnet.
ReadOnlyRecommended	Optional	Variant	Beim Wert True wird beim Öffnen der Datei eine Meldung mit der Empfehlung angezeigt, die Datei schreibgeschützt zu öffnen.
CreateBackup	Optional	Variant	Mit dem Wert True wird eine Sicherungsdatei erstellt.
SharingPassword	Optional	Variant	Eine Zeichenfolge, die das Kennwort angibt, das zu verwenden ist, um die Datei für die Freigabe zu schützen.
FileFormat	Optional	Variant	Eine Zeichenfolge, die das Dateiformat angibt.

Anmerkungen

Verwenden Sie sichere Kennwörter, die Groß- und Kleinbuchstaben, Zahlen und Symbole kombinieren. Unsichere Kennwörter kombinieren diese Elemente nicht.

Sicheres Kennwort: Y6dh!et5
Unsicheres Kennwort: Haus27.

Kennwörter sollten mindestens 8 Zeichen lang sein. Eine Passphrase mit 14 oder mehr Zeichen ist besser. Es ist wichtig, dass Sie sich Ihr Kennwort merken. Wenn Sie Ihr Kennwort vergessen, kann es von Microsoft nicht abgerufen werden. Bewahren Sie die Kennwörter, die Sie notieren, an einem sicheren Ort auf, der sich nicht in der Nähe der Informationen befindet, die mit den Kennwörtern geschützt werden.

Beispiel

In diesem Beispiel wird die erste Arbeitsmappe gespeichert und für die Freigabe geschützt.

 
Sub ProtectWorkbook() 
 
    Dim wbAWB As Workbook 
    Dim strPwd As String 
    Dim strSharePwd As String 
 
    Set wbAWB = Application.ActiveWorkbook 
 
    strPwd = InputBox("Enter password for the file") 
    strSharePwd = InputBox("Enter password for sharing") 
 
    wbAWB.ProtectSharing Password:=strPwd, _ 
        SharingPassword:=strSharePwd 
 
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.

Freigeben über