Workbook.ProtectSharing 方法 (Excel)

保存工作簿并设置共享保护。

语法

表达式。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 个或更多字符的通行短语更好。 记住密码至关重要。 如果您忘记了密码，Microsoft 无法找回它。 请将您编写的密码保存在安全的位置并远离它们要帮助保护的信息。

示例

本示例保存第一张工作簿并设置共享保护。

 
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。