Właściwość WorkbookBase.HasPassword —
Pobiera wartość, która wskazuje, czy skoroszyt ma hasło ochrony.
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 HasPassword As Boolean
public bool HasPassword { get; }
Wartość właściwości
Typ: System.Boolean
true Jeśli skoroszyt ma hasło ochrony; w przeciwnym razie false.
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ę istnienie metody o nazwie GetPasswordFromUserInput, która uzyskuje silne hasło z danych wejściowych użytkownika.
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
- Pełne zaufanie do bezpośredniego wywołującego. Tego elementu członkowskiego nie można używać w kodzie częściowo zaufanym. Aby uzyskać więcej informacji, zobacz Używanie bibliotek pochodzących z częściowo zaufanego kodu.