批量按指定内容保护工作表参数设置

huangjie9032

请问运行宏以后批量保护所有工作簿中所有工作表，下面代码老提示语法错误，是什么原因呢？

Sub 保护()
    For Each wSt In Sheets
       wSt.Protect("66553366",False,True,False,True,True,True,True,True,True,True,True,True)
    Next
End Sub

刀羊

这个方法没有那么多参数吧：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Protect 方法

适用于

Chart 对象，Workbook 对象，Worksheet 对象

描述

保护图表或工作表（句法 1）或工作簿（句法 2），使之不能被修改。

句法 1

expression.Protect(Password,DrawingObjects,Contents,Scenarios,UserInterfaceOnly)

句法 2

expression.Protect(Password, Structure, Windows)

expression

必选。返回 Chart 或 Worksheet 对象（句法 1）或 Workbook 对象（句法 2）的表达式。

Password：Variant 类型，可选。加在工作表或工作簿上区分大小写的密码字符串。如果省略本参数，不用密码就可以取消对该工作表或工作簿的保护。否则，取消对该工作表或工作簿的保护时必须提供该密码。如果忘记了密码，就无法取消对该工作表或工作簿的保护。最好在安全的地方保存一份密码及其对应文档名的列表。

DrawingObjects：Variant 类型，可选。若为 True 则保护形状。默认值为 False。

Contents：Variant 类型，可选。若为 True 则保护内容。对于图表工作表，这样将保护整个图表。对于工作表，这样将保护每个单元格。默认值为 True。

Scenarios：Variant 类型，可选。若为 True 则保护方案。本参数仅对工作表有效。默认值为 True。

Structure：Variant 类型，可选。若为 True 则保护工作簿结构（工作簿中工作表的相对位置）。默认值为 False。

UserInterfaceOnly：Variant 类型，可选。若为 True 则保护用户界面，但不保护宏。如果省略本参数，则即保护宏也保护用户界面。

Windows：Variant 类型，可选。若为 True 则保护工作簿窗口。如果省略本参数，则不保护该窗口。

说明

如果对工作表使用 Protect 方法时，将 UserInterfaceOnly 参数设置为True，然后又保存了工作簿，那么再次打开工作簿时，整个工作表将被完全保护，而非仅仅保护用户界面。若想在再次打开工作簿后仅保留该工作表的用户界面保护，必须再次将 UserInterfaceOnly 参数设置为 True 并应用 Protect 方法。

另见

EnableSelection 属性， Locked 属性， ProtectContents 属性， ProtectDrawingObjects 属性， ProtectScenarios 属性， ProtectStructure 属性， ProtectWindows 属性， Unprotect 方法

示例

本示例保护活动工作簿。ActiveWorkbook.Protect Password := "drowssap"

huangjie9032

明白了，谢谢。