مشاركة عبر


WorkbookBase.PasswordEncryptionAlgorithm الخاصية

يحصل على خوارزمية التجزئة التي يستخدمها Excel Microsoft المكتب تشفير كلمات المرور للمصنف.

مساحة الاسم:  Microsoft.Office.Tools.Excel
التجميع:  Microsoft.Office.Tools.Excel.v4.0.Utilities (في Microsoft.Office.Tools.Excel.v4.0.Utilities.dll)

بناء الجملة

'إقرار
Public ReadOnly Property PasswordEncryptionAlgorithm As String
    Get
public string PasswordEncryptionAlgorithm { get; }

قيمة الخاصية

النوع: System.String
يستخدم Excel الخوارزمية تشفير كلمات المرور الخاصة مصنف.

ملاحظات

استخدام SetPasswordEncryptionOptionsطريقة لتحديد ما إذا كان Excel بتشفير ملف الخصائص للمصنفات المحمية بكلمة مرور.

أمثلة

مثال التعليمة البرمجية التالية بفحص القيمة HasPasswordخاصية لتحديد ما إذا كان مصنف هو محمي بكلمة مرور. إذا ليس مصنف محمي بكلمة مرور، ثم يعين المثال Passwordخاصية على كلمة مرور تم الحصول عليها من إدخال مستخدم، ومن ثم استدعاء SetPasswordEncryptionOptionsالأسلوب لتعيين خوارزمية التشفير، قم بتعيين الطول المفتاح وتعيين اسم موفر التشفير وتمكين ملف خاصية التشفير. مثال ثم يقوم بعرض قيم PasswordEncryptionProvider، PasswordEncryptionAlgorithm، PasswordEncryptionKeyLength، و PasswordEncryptionFilePropertiesالخصائص في ورقة عمل Sheet1. Th هو فرض التي أسلوب GetPasswordFromUserInputهو المعرفة في أي مكان آخر.

Th هو المثال هو لتخصيص المستوى مستند.

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.

راجع أيضًَا

المرجع

WorkbookBase الفئة

WorkbookBase الأعضاء

Microsoft.Office.Tools.Excel مساحة الاسم