VBA/Excel/Access/Word/Excel/Workbook Encryption — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
Set Encryption
<source lang="vb">
Sub SetEncryption()
Dim myWorkbook As Workbook, pass As String Set myWorkbook = ThisWorkbook myWorkbook.SetPasswordEncryptionOptions "Microsoft Strong Cryptographic Provider", "RC4", 128, True
End Sub
</source>
Show Encryption Properties
<source lang="vb">
Sub ShowEncryptionProperties()
Dim myWorkbook As Workbook, pass As String Set myWorkbook = ThisWorkbook Debug.Print myWorkbook.PasswordEncryptionAlgorithm Debug.Print myWorkbook.PasswordEncryptionFileProperties Debug.Print myWorkbook.PasswordEncryptionKeyLength Debug.Print myWorkbook.PasswordEncryptionProvider
End Sub
</source>