Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Задает параметры, которые Microsoft PowerPoint использует для шифрования презентаций с помощью паролей.
Синтаксис
выражение.
SetPasswordEncryptionOptions( _PasswordEncryptionProvider_, _PasswordEncryptionAlgorithm_, _PasswordEncryptionKeyLength_, _PasswordEncryptionFileProperties_ )
выражение Переменная, представляющая объект Presentation .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| PasswordEncryptionProvider | Обязательный | String | Имя поставщика шифрования. |
| PasswordEncryptionAlgorithm | Обязательный | String | Имя алгоритма шифрования. PowerPoint поддерживает алгоритмы, зашифрованные потоком. |
| PasswordEncryptionKeyLength | Обязательный | Long | Длина ключа шифрования. Должен быть кратным 8, начиная с 40. |
| PasswordEncryptionFileProperties | Обязательный | MsoTriState | msoTrue для PowerPoint для шифрования свойств файла. |
Замечания
Значение параметра PasswordEncryptionFileProperties может быть одной из этих констант MsoTriState .
| msoFalse |
| msoTrue |
Пример
В этом примере задаются параметры шифрования паролем, если свойства файла не зашифрованы для защищенных паролем документов.
Sub PasswordSettings()
With ActivePresentation
If .PasswordEncryptionFileProperties = msoFalse Then
.SetPasswordEncryptionOptions _
PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
PasswordEncryptionAlgorithm:="RC4", _
PasswordEncryptionKeyLength:=56, _
PasswordEncryptionFileProperties:=True
End If
End With
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.