Share via


WorkbookBase.PasswordEncryptionProvider, propriété

Obtient le nom du fournisseur de chiffrement de l'algorithme que Microsoft Office Excel utilise lors du chiffrement de mots de passe pour le classeur.

Espace de noms :  Microsoft.Office.Tools.Excel
Assembly :  Microsoft.Office.Tools.Excel.v4.0.Utilities (dans Microsoft.Office.Tools.Excel.v4.0.Utilities.dll)

Syntaxe

'Déclaration
Public ReadOnly Property PasswordEncryptionProvider As String
    Get
public string PasswordEncryptionProvider { get; }

Valeur de propriété

Type : System.String
Nom du fournisseur de chiffrement de l'algorithme qu'Excel utilise lors du chiffrement de mots de passe pour le classeur.

Exemples

L'exemple de code suivant vérifie la valeur de la propriété HasPassword afin de déterminer si le classeur est protégé par un mot de passe. Si le classeur n'est pas protégé par un mot de passe, l'exemple affecte à la propriété Password un mot de passe obtenu à partir de l'entrée d'utilisateur, puis appelle la méthode SetPasswordEncryptionOptions pour définir l'algorithme de chiffrement, la longueur de clé et le nom du fournisseur de chiffrement, et activer le chiffrement de propriété de fichier. L'exemple affiche ensuite les valeurs des propriétés PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength et PasswordEncryptionFileProperties dans la feuille de calcul Sheet1. Cet exemple suppose que la méthode GetPasswordFromUserInput est définie ailleurs.

Cet exemple illustre une personnalisation au niveau du document.

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

Sécurité .NET Framework

Voir aussi

Référence

WorkbookBase Classe

Microsoft.Office.Tools.Excel, espace de noms