VBA/Excel/Access/Word/Excel/Workbook Encryption
Версия от 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>