保存工作簿并设置共享保护。
expression.ProtectSharing(Filename, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword)
expression 该表达式返回 Workbook 对象。
Filename Variant 类型，可选。一个保存文件的名称字符串。可在文件名中加入完整路径。如果不加入路径，则 Microsoft Excel 将该文件保存到当前文件夹。
Password Variant 类型，可选。一个字符串，代表保护此文件所用的密码，区分大小写。长度不超过 15 个字符。
WriteResPassword Variant 类型，可选。一个字符串，代表此文件的写保护密码。如果一个文件有密码，并在打开文件时不提供密码，则该文件以只读方式打开。
ReadOnlyRecommended Variant 类型，可选。如果该值为 True，则在打开文件时显示一条建议文件以只读方式打开的信息。
CreateBackup Variant 类型，可选。如果该值为 True，则创建备份文件。
SharingPassword Variant 类型，可选。一个字符串，代表文件共享保护密码。
本示例保存工作簿一并设置共享保护。
Workbooks(1).ProtectSharing Password:="drowssap", _
SharingPassword:="gnirahs"