Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
HasPassword Property
Collapse the table of content
Expand the table of content

Workbook.HasPassword Property

Gets a value that indicates whether the workbook has a protection password.

Namespace: Microsoft.Office.Tools.Excel
Assembly: Microsoft.Office.Tools.Excel (in microsoft.office.tools.excel.dll)

public virtual bool HasPassword { get; }

Property Value

true if the workbook has a protection password; otherwise, false.

The following code example checks the value of the HasPassword property to determine whether the workbook is password protected. If the workbook is not password protected, then the example sets the Password property to a password obtained from user input, and then calls the SetPasswordEncryptionOptions method to set the encryption algorithm, set the key length, set the name of the encryption provider, and enable file property encryption. The example then displays the values of the PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength, and PasswordEncryptionFileProperties properties in worksheet Sheet1. This example assumes the existence of a method named GetPasswordFromUserInput that obtains a strong password from user input.

private void WorkbookPasswordOptions()
    if (!this.HasPassword)
        this.Password = GetPasswordFromUserInput();
            "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 =
    Globals.Sheet1.Range["B2", missing].Value2 =
    Globals.Sheet1.Range["B3", missing].Value2 =
    Globals.Sheet1.Range["B4", missing].Value2 =
    Globals.Sheet1.Range["B1", "B4"].Columns.AutoFit();

© 2015 Microsoft