Udostępnij za pośrednictwem


Właściwość WorkbookBase.PasswordEncryptionAlgorithm —

Pobiera algorytm, używający do szyfrowania haseł dla skoroszytu programu Microsoft Office Excel.

Przestrzeń nazw:  Microsoft.Office.Tools.Excel
Zestaw:  Microsoft.Office.Tools.Excel.v4.0.Utilities (w Microsoft.Office.Tools.Excel.v4.0.Utilities.dll)

Składnia

'Deklaracja
Public ReadOnly Property PasswordEncryptionAlgorithm As String
public string PasswordEncryptionAlgorithm { get; }

Wartość właściwości

Typ: System.String
Algorytm, używający do szyfrowania haseł dla skoroszytu programu Excel.

Uwagi

Użycie SetPasswordEncryptionOptions metodę, aby określić, czy program Excel szyfruje właściwości pliku dla skoroszytów chronionych hasłem.

Przykłady

Poniższy przykład kodu sprawdza wartość właściwości HasPassword, aby ustalić, czy dany skoroszyt jest chroniony hasłem.Jeśli skoroszyt nie jest chroniony hasłem, wtedy przykład dostosowuje właściwość Password do hasła otrzymanego z danych wejściowych użytkownika, następnie wywołuje metodę SetPasswordEncryptionOptions, aby ustawić algorytm szyfrowania, długość klucza i nazwę dostawcy szyfrowania oraz włączyć szyfrowanie właściwości pliku.Przykład następnie wyświetla jest wartości PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength i właściwości PasswordEncryptionFileProperties w arkuszu Sheet1.W tym przykładzie zakłada się, że metoda GetPasswordFromUserInput została zdefiniowana w innym miejscu.

Ten przykład dotyczy dostosowywania na poziomie dokumentu.

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();
}

Zabezpieczenia programu .NET Framework

Zobacz też

Informacje

WorkbookBase Klasa

Przestrzeń nazw Microsoft.Office.Tools.Excel