导出的excel文件如何自动加保护？

为妳

用保护工作表

花间一壶酒

用小虫子的excel对象模块  或者自己写一个  如

  

子程序名	返回值类型	公开	备 注
例子
参数名	类 型	参考	可空	数组	备 注
路径	文本型
工作簿密码	文本型
是否保护工作簿结构	逻辑型				如果为 真，则保护工作簿结构（工作表的相对位置）。 默认值为 假。
是否保护窗体	逻辑型				如果为 真True，则保护工作簿窗口。 默认值为 假。
工作表索引	整数型
工作表密码	文本型				指定工作表或工作簿的区分大小写密码的字符串。 如果省略此参数，可以不使用密码地解除对工作表或工作簿的保护。
是否保护保护形状	逻辑型				如果为 True，则保护形状。 默认值为 True。
是否保护内容	逻辑型				如果为 True，则保护内容。 对于图表，这将保护整个图表。 对于工作表，这将保护锁定单元格。 默认值为 True。
是否保护方案	逻辑型				如果为 True，则保护方案。 此参数仅对工作表有效。 默认值为 True。
是否保护用户界面	逻辑型				如果为 真，则保护用户界面，但不保护宏。 如果省略此参数，保护将应用于宏和用户界面。
是否允许用户格式化受保护工作表上的任何单元格	逻辑型				如果为 True，则允许用户格式化受保护工作表上的任何单元格。 默认值为 False。
是否允许用户格式化受保护工作表上的任何列	逻辑型				如果为 True，则允许用户格式化受保护工作表上的任何列。 默认值为 False。
是否允许用户在受保护的工作表上设置任何行的格式	逻辑型				如果为 True ，则允许用户在受保护的工作表上设置任何行的格式。 默认值为 False。
是否允许用户在受保护工作表上插入列	逻辑型				如果为 True，则允许用户在受保护工作表上插入列。 默认值为 False。
是否允许用户在受保护工作表上插入行	逻辑型				如果为 True，则允许用户在受保护工作表上插入行。 默认值为 False。
是否允许用户在受保护的工作表上插入超链接	逻辑型				如果为 True ，则允许用户在受保护的工作表上插入超链接。 默认值为 False。
是否允许用户在受保护的工作表上删除列	逻辑型				如果为 True，则允许用户在受保护的工作表上删除列，其中要删除的列中的每个单元格都处于解锁状态。 默认值为 False。
是否允许用户在受保护的工作表上删除行	逻辑型				如果为 True，则允许用户在受保护的工作表上删除行，其中要删除的行中的每个单元格都处于解锁状态。 默认值为 False。
是否允许用户对受保护工作表进行排序	逻辑型				如果为 True，则允许用户对受保护工作表进行排序。 排序范围内的每个单元都必须处于解锁或不受保护的状态。 默认值为 False。
是否允许用户在受保护的工作表上设置筛选	逻辑型				如果为 True，则允许用户在受保护的工作表上设置筛选。 用户可以更改筛选条件，但无法启用或禁用自动筛选。 用户可以在现有自动筛选上设置筛选。 默认值为 False。
是否允许用户在受保护的工作表上使用数据透视表	逻辑型				True 允许用户在受保护的工作表上使用数据透视表。 默认值为 False。

变量名	类 型	静态	数组	备 注
程序对象	对象
工作簿集	对象
工作簿	对象
表格集	对象

判断 (程序对象.获取 (“Excel.application”) ＝ 假)
调试输出 (“没有找到微软 excel”)
判断 (程序对象.获取 (“ket.application”) ＝ 假)
调试输出 (“没有找到wps excel”)
工作簿集 ＝ 程序对象.读对象型属性 (“Workbooks”, )

程序对象.写属性 (“Visible”, 真)  ' 程序可视
工作簿集.方法 (“OPEN”, 路径)  ' 打开工作簿
工作簿 ＝ 程序对象.读对象型属性 (“ActiveWorkbook”, )  ' 获取活动工作簿
表格集 ＝ 程序对象.读对象型属性 (“Worksheets”, )  ' 获取活动的全部工作表
工作簿.方法 (“Protect”, 工作簿密码, 是否保护工作簿结构, 是否保护窗体)  ' 设置工作簿保护
' 工作簿.方法 (“Unprotect”, 工作簿密码)‘撤销工作簿保护 要撤销用这个
表格集.读对象型属性 (“Item”, 工作表索引).方法 (“Protect”, 工作表密码, 是否保护保护形状, 是否保护内容, 是否保护方案, 是否保护用户界面, 是否允许用户格式化受保护工作表上的任何单元格, 是否允许用户格式化受保护工作表上的任何列, 是否允许用户在受保护的工作表上设置任何行的格式, 是否允许用户在受保护工作表上插入列, 是否允许用户在受保护工作表上插入行, 是否允许用户在受保护的工作表上插入超链接, 是否允许用户在受保护的工作表上删除列, 是否允许用户在受保护的工作表上删除行, 是否允许用户对受保护工作表进行排序, 是否允许用户在受保护的工作表上设置筛选, 是否允许用户在受保护的工作表上使用数据透视表)  ' 设置工作表保护
' 表格集.读对象型属性 (“Item”, 工作表索引).方法 (“Unprotect”, 工作表密码)’撤销工作表的保护
程序对象.写属性 (“DisplayAlerts”, 真)  ' 隐藏警示框
工作簿.方法 (“Save”, )  ' 保存工作簿
程序对象.写属性 (“DisplayAlerts”, 假)  ' 显示警示框
工作簿集.方法 (“Close”, )  ' 关闭工作簿
程序对象.方法 (“Quit”, )  ' 关闭程序
程序对象.清除 ()  ' 清除对象

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 例子<br /> .参数 路径, 文本型<br /> .参数 工作簿密码, 文本型<br /> .参数 是否保护工作簿结构, 逻辑型, 可空, 如果为 真，则保护工作簿结构（工作表的相对位置）。 默认值为 假。<br /> .参数 是否保护窗体, 逻辑型, 可空, 如果为 真True，则保护工作簿窗口。 默认值为 假。<br /> .参数 工作表索引, 整数型<br /> .参数 工作表密码, 文本型, , 指定工作表或工作簿的区分大小写密码的字符串。 如果省略此参数，可以不使用密码地解除对工作表或工作簿的保护。<br /> .参数 是否保护保护形状, 逻辑型, 可空, 如果为 True，则保护形状。 默认值为 True。<br /> .参数 是否保护内容, 逻辑型, 可空, 如果为 True，则保护内容。 对于图表，这将保护整个图表。 对于工作表，这将保护锁定单元格。 默认值为 True。<br /> .参数 是否保护方案, 逻辑型, 可空, 如果为 True，则保护方案。 此参数仅对工作表有效。 默认值为 True。<br /> .参数 是否保护用户界面, 逻辑型, 可空, 如果为 真，则保护用户界面，但不保护宏。 如果省略此参数，保护将应用于宏和用户界面。<br /> .参数 是否允许用户格式化受保护工作表上的任何单元格, 逻辑型, 可空, 如果为 True，则允许用户格式化受保护工作表上的任何单元格。 默认值为 False。<br /> .参数 是否允许用户格式化受保护工作表上的任何列, 逻辑型, 可空, 如果为 True，则允许用户格式化受保护工作表上的任何列。 默认值为 False。<br /> .参数 是否允许用户在受保护的工作表上设置任何行的格式, 逻辑型, 可空, 如果为 True ，则允许用户在受保护的工作表上设置任何行的格式。 默认值为 False。<br /> .参数 是否允许用户在受保护工作表上插入列, 逻辑型, 可空, 如果为 True，则允许用户在受保护工作表上插入列。 默认值为 False。<br /> .参数 是否允许用户在受保护工作表上插入行, 逻辑型, 可空, 如果为 True，则允许用户在受保护工作表上插入行。 默认值为 False。<br /> .参数 是否允许用户在受保护的工作表上插入超链接, 逻辑型, 可空, 如果为 True ，则允许用户在受保护的工作表上插入超链接。 默认值为 False。<br /> .参数 是否允许用户在受保护的工作表上删除列, 逻辑型, 可空, 如果为 True，则允许用户在受保护的工作表上删除列，其中要删除的列中的每个单元格都处于解锁状态。 默认值为 False。<br /> .参数 是否允许用户在受保护的工作表上删除行, 逻辑型, 可空, 如果为 True，则允许用户在受保护的工作表上删除行，其中要删除的行中的每个单元格都处于解锁状态。 默认值为 False。<br /> .参数 是否允许用户对受保护工作表进行排序, 逻辑型, 可空, 如果为 True，则允许用户对受保护工作表进行排序。 排序范围内的每个单元都必须处于解锁或不受保护的状态。 默认值为 False。<br /> .参数 是否允许用户在受保护的工作表上设置筛选, 逻辑型, 可空, 如果为 True，则允许用户在受保护的工作表上设置筛选。 用户可以更改筛选条件，但无法启用或禁用自动筛选。 用户可以在现有自动筛选上设置筛选。 默认值为 False。<br /> .参数 是否允许用户在受保护的工作表上使用数据透视表, 逻辑型, 可空, True 允许用户在受保护的工作表上使用数据透视表。 默认值为 False。<br /> .局部变量 程序对象, 对象<br /> .局部变量 工作簿集, 对象<br /> .局部变量 工作簿, 对象<br /> .局部变量 表格集, 对象<br /> <br /> .判断开始 (程序对象.获取 (“Excel.application”) ＝ 假)<br />     调试输出 (“没有找到微软 excel”)<br /> .判断 (程序对象.获取 (“ket.application”) ＝ 假)<br />     调试输出 (“没有找到wps excel”)<br /> .默认<br />     工作簿集 ＝ 程序对象.读对象型属性 (“Workbooks”, )<br /> .判断结束<br /> <br /> 程序对象.写属性 (“Visible”, 真)  ' 程序可视<br /> 工作簿集.方法 (“OPEN”, 路径)  ' 打开工作簿<br /> 工作簿 ＝ 程序对象.读对象型属性 (“ActiveWorkbook”, )  ' 获取活动工作簿<br /> 表格集 ＝ 程序对象.读对象型属性 (“Worksheets”, )  ' 获取活动的全部工作表<br /> <br /> 工作簿.方法 (“Protect”, 工作簿密码, 是否保护工作簿结构, 是否保护窗体)  ' 设置工作簿保护<br /> ' 工作簿.方法 (“Unprotect”, 工作簿密码)‘撤销工作簿保护 要撤销用这个<br /> <br /> 表格集.读对象型属性 (“Item”, 工作表索引).方法 (“Protect”, 工作表密码, 是否保护保护形状, 是否保护内容, 是否保护方案, 是否保护用户界面, 是否允许用户格式化受保护工作表上的任何单元格, 是否允许用户格式化受保护工作表上的任何列, 是否允许用户在受保护的工作表上设置任何行的格式, 是否允许用户在受保护工作表上插入列, 是否允许用户在受保护工作表上插入行, 是否允许用户在受保护的工作表上插入超链接, 是否允许用户在受保护的工作表上删除列, 是否允许用户在受保护的工作表上删除行, 是否允许用户对受保护工作表进行排序, 是否允许用户在受保护的工作表上设置筛选, 是否允许用户在受保护的工作表上使用数据透视表)  ' 设置工作表保护<br /> ' 表格集.读对象型属性 (“Item”, 工作表索引).方法 (“Unprotect”, 工作表密码)’撤销工作表的保护<br /> <br /> 程序对象.写属性 (“DisplayAlerts”, 真)  ' 隐藏警示框<br /> 工作簿.方法 (“Save”, )  ' 保存工作簿<br /> 程序对象.写属性 (“DisplayAlerts”, 假)  ' 显示警示框<br /> <br /> 工作簿集.方法 (“Close”, )  ' 关闭工作簿<br /> 程序对象.方法 (“Quit”, )  ' 关闭程序<br /> 程序对象.清除 ()  ' 清除对象