WorkbookBase.HasPassword-Eigenschaft

Artikel
08/10/2011

Ruft einen Wert ab, der angibt, ob die Arbeitsmappe durch ein Kennwort geschützt ist.

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 ReadOnly Property HasPassword As Boolean
    Get

public bool HasPassword { get; }

Eigenschaftswert

Typ: System.Boolean
true, wenn die Arbeitsmappe ein durch ein Kennwort geschützt ist, andernfalls false.

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 es eine Methode mit dem Namen GetPasswordFromUserInput gibt, mit der ein sicheres Kennwort aus einer Benutzereingabe erfasst wird.

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", missing].Value2 =
        "Password Encryption Provider:";
    Globals.Sheet1.Range["A2", missing].Value2 =
        "Password Encryption Algorithm:";
    Globals.Sheet1.Range["A3", missing].Value2 =
        "Password Encryption Key Length:";
    Globals.Sheet1.Range["A4", missing].Value2 =
        "Password Encryption File Properties:";
    Globals.Sheet1.Range["A1", "A4"].Columns.AutoFit();

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

.NET Framework-Sicherheit

Volle Vertrauenswürdigkeit für den unmittelbaren Aufrufer. Dieser Member kann von nur teilweise vertrauenswürdigem Code nicht verwendet werden. Weitere Informationen finden Sie unter Verwenden von Bibliotheken aus teilweise vertrauenswürdigem Code.

Siehe auch

Referenz

WorkbookBase Klasse

Microsoft.Office.Tools.Excel-Namespace

Freigeben über