Метод Workbook.ProtectSharing (Excel)

Статья
04/07/2023

Сохраняет книгу и защищает ее для общего доступа.

Синтаксис

expression. ProtectSharing (FileName, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword, FileFormat)

Выражение Переменная, представляющая объект Workbook .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FileName	Необязательный	Variant	Строка, указывающая имя сохраненного файла. Можно включить полный путь; В противном случае Microsoft Excel сохранит файл в текущей папке.
Password	Необязательный	Variant	Строка с учетом регистра, указывающая пароль защиты, который будет присвоен файлу. Значение должно содержать не более 15 символов.
WriteResPassword	Необязательный	Variant	Строка, указывающая пароль резервирования записи для этого файла. Если файл сохраняется с паролем и пароль не предоставляется при открытии файла, он открывается только для чтения.
ReadOnlyRecommended	Необязательный	Variant	Значение true для отображения сообщения при открытии файла, в котором рекомендуется открыть файл только для чтения.
CreateBackup	Необязательный	Variant	Значение True для создания файла резервной копии.
SharingPassword	Необязательный	Variant	Строка, указывающая пароль, используемый для защиты файла для общего доступа.
FileFormat	Необязательный	Variant	Строка, указывающая формат файла.

Замечания

Используйте надежные пароли, содержащие строчные и прописные буквы, цифры и знаки. В ненадежных паролях не используются сочетания таких элементов.

Надежный пароль: Y6dh!et5
Ненадежный пароль: House27

Длина паролей должна быть не меньше 8 символов. В парольной фразе лучше использовать 14 или более символов. Очень важно запомнить пароль. Если вы его забудете, корпорация Майкрософт не сможет его восстановить. Храните пароли, записанные на бумаге, в безопасном месте вдали от информации, которую они защищают.

Пример

В этом примере книга сохраняется и защищается для общего доступа.

 
Sub ProtectWorkbook() 
 
    Dim wbAWB As Workbook 
    Dim strPwd As String 
    Dim strSharePwd As String 
 
    Set wbAWB = Application.ActiveWorkbook 
 
    strPwd = InputBox("Enter password for the file") 
    strSharePwd = InputBox("Enter password for sharing") 
 
    wbAWB.ProtectSharing Password:=strPwd, _ 
        SharingPassword:=strSharePwd 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через