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.
- الثقة الكاملة للمتصل الفوري. يتعذر استخدام هذا العضو بواسطة التعليمات البرمجية الموثوق بها جزئيًا. لمزيد من المعلومات، راجع باستخدام مكتبات من تعليمات برمجية موثوق بها جزئي.