Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Задание параметров, используемых Microsoft Word для шифрования документов с помощью паролей.
Синтаксис
выражение.
SetPasswordEncryptionOptions( _PasswordEncryptionProvider_ , _PasswordEncryptionAlgorithm_ , _PasswordEncryptionKeyLength_ , _PasswordEncryptionFileProperties_ )
выражение (обязательно). Переменная, представляющая объект документа .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| PasswordEncryptionProvider | Обязательный | String | Имя поставщика шифрования. |
| PasswordEncryptionAlgorithm | Обязательный | String | Имя алгоритма шифрования. Word поддерживает алгоритмы потокового шифрования. |
| PasswordEncryptionKeyLength | Обязательный | Long | Длина ключа шифрования. Должен быть кратным 8, начиная с 40. |
| PasswordEncryptionFileProperties | Необязательный | Variant | Для шифрования свойств файлов в Word это значение True. Значение по умолчанию — True. |
Примечания
Для повышения безопасности не используйте алгоритмы Слабого шифрования (XOR) (также называемого "OfficeXor") или "Office97/2000 Compatible" (также называемого "OfficeStandard").
Пример
В этом примере шифрование паролей задается на более надежное шифрование, если используется алгоритм шифрования паролей "OfficeXor" или "OfficeStandard".
Sub PasswordSettings()
With ActiveDocument
If .PasswordEncryptionAlgorithm = "OfficeXor" Or _
.PasswordEncryptionAlgorithm = "OfficeStandard" Then
.SetPasswordEncryptionOptions _
PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
PasswordEncryptionAlgorithm:="RC4", _
PasswordEncryptionKeyLength:=56, _
PasswordEncryptionFileProperties:=True
End If
End With
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.