Freigeben über


WorkbookBase.Password-Eigenschaft

Ruft das Kennwort ab, das zum Öffnen der Arbeitsmappe angegeben werden muss, oder legt dieses fest.

Namespace:  Microsoft.Office.Tools.Excel
Assembly:  Microsoft.Office.Tools.Excel.v4.0.Utilities (in Microsoft.Office.Tools.Excel.v4.0.Utilities.dll)

Syntax

'Declaration
Public Property Password As String
public string Password { get; set; }

Eigenschaftswert

Typ: System.String
Das Kennwort, das zum Öffnen der Arbeitsmappe angegeben werden muss.

Hinweise

Verwenden Sie sichere Kennwörter, die aus Groß- und Kleinbuchstaben, Zahlen und Symbolen bestehen.In unsicheren Kennwörtern sind diese Elemente nicht kombiniert.Ein sicheres Kennwort: Y6dh!et5.Ein unsicheres Kennwort: House27.Verwenden Sie ein sicheres Kennwort, das Sie sich leicht merken können, damit Sie es nicht aufschreiben müssen.

Beispiele

Im folgenden Codebeispiel wird der Wert der HasPassword-Eigenschaft überprüft, um zu bestimmen, ob die Arbeitsmappe durch ein Kennwort geschützt ist.Wenn die Arbeitsmappe nicht durch ein Kennwort geschützt ist, wird für die Password-Eigenschaft ein durch eine Benutzereingabe erfasstes Kennwort festgelegt, und dann wird die SetPasswordEncryptionOptions-Methode aufgerufen, um den Verschlüsselungsalgorithmus, die Schlüssellänge und den Namen des Verschlüsselungsanbieters festzulegen und die Verschlüsselung von Dateieigenschaften zu aktivieren.Anschließend werden im Sheet1-Arbeitsblatt die Werte der Eigenschaften PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength und PasswordEncryptionFileProperties angezeigt.In diesem Beispiel wird davon ausgegangen, dass die GetPasswordFromUserInput-Methode an einer anderen Stelle definiert ist.

Dieses Beispiel bezieht sich auf eine Anpassung auf Dokumentebene.

Private Sub WorkbookPasswordOptions()
    If Not Me.HasPassword Then
        Me.Password = GetPasswordFromUserInput()
        Me.SetPasswordEncryptionOptions( _
            "Microsoft RSA SChannel Cryptographic Provider", _
            "RC4", 128, True)
    End If

    ' Display the password properties in Sheet1.
    Globals.Sheet1.Range("A1").Value2 = _
        "Password Encryption Provider:"
    Globals.Sheet1.Range("A2").Value2 = _
        "Password Encryption Algorithm:"
    Globals.Sheet1.Range("A3").Value2 = _
        "Password Encryption Key Length:"
    Globals.Sheet1.Range("A4").Value2 = _
        "Password Encryption File Properties:"
    Globals.Sheet1.Range("A1", "A4").Columns.AutoFit()

    Globals.Sheet1.Range("B1").Value2 = _
        Me.PasswordEncryptionProvider
    Globals.Sheet1.Range("B2").Value2 = _
        Me.PasswordEncryptionAlgorithm
    Globals.Sheet1.Range("B3").Value2 = _
        Me.PasswordEncryptionKeyLength
    Globals.Sheet1.Range("B4").Value2 = _
        Me.PasswordEncryptionFileProperties
    Globals.Sheet1.Range("B1", "B4").Columns.AutoFit()
End Sub
private void WorkbookPasswordOptions()
{
    if (!this.HasPassword)
    {
        this.Password = GetPasswordFromUserInput();
        this.SetPasswordEncryptionOptions(
            "Microsoft RSA SChannel Cryptographic Provider",
            "RC4", 128, true);
    }

    // Display the password properties in Sheet1.
    Globals.Sheet1.Range["A1"].Value2 =
        "Password Encryption Provider:";
    Globals.Sheet1.Range["A2"].Value2 =
        "Password Encryption Algorithm:";
    Globals.Sheet1.Range["A3"].Value2 =
        "Password Encryption Key Length:";
    Globals.Sheet1.Range["A4"].Value2 =
        "Password Encryption File Properties:";
    Globals.Sheet1.Range["A1", "A4"].Columns.AutoFit();

    Globals.Sheet1.Range["B1"].Value2 =
        this.PasswordEncryptionProvider;
    Globals.Sheet1.Range["B2"].Value2 =
        this.PasswordEncryptionAlgorithm;
    Globals.Sheet1.Range["B3"].Value2 =
        this.PasswordEncryptionKeyLength;
    Globals.Sheet1.Range["B4"].Value2 =
        this.PasswordEncryptionFileProperties;
    Globals.Sheet1.Range["B1", "B4"].Columns.AutoFit();
}

.NET Framework-Sicherheit

Siehe auch

Referenz

WorkbookBase Klasse

Microsoft.Office.Tools.Excel-Namespace