Workbook.ProtectSharing method (Excel)

Сохранение книги и ее защита для совместного использования.

Синтаксис

выражение. ProtectSharing (FileName, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword, FileFormat)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
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 и обратная связь.