利用excel对象给excel文件加密码

.版本 2
.支持库 spec

.子程序 加密excel, 文本型, , 成功返回空文本，失败错误原因。
.参数 xls, 文本型, , 要加密的excel文件名。全路径
.参数 Password, 文本型, , 要设置的密码
.局部变量 Excel程序对象, 对象
.局部变量 Excel工作簿对象, 对象
.局部变量 Excel工作表对象, 对象

.如果真 (Excel程序对象.创建 (“Excel.Application”, ) ＝ 假)
    调试输出 (“创建Excel程序对象失败”)
    返回 (Excel程序对象.取错误 ())
.如果真结束
Excel程序对象.写属性 (“Visible”, 假)  ' 设置为假不显示excel窗口，设置为真会打开excel。
Excel工作簿对象 ＝ Excel程序对象.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, xls, , , , )  ' 打开xls文件。
Excel工作簿对象.方法 (“SaveAs”, 取运行目录 () ＋ “	est.xls”, 56, Password)
' 'Excel.Workbook的SaveAs方法的参数说明：
' 参数1、Filename: 可选。该字符串表示要保存的文件名。可包含完整路径。如果不指定路径，Microsoft Excel 将文件保存到当前文件夹中。
' 参数2、FileFormat: 可选。保存文件时使用的文件格式。 XLS=56 CSV=6 TXT=42 HTML=44 XML=46 PDF=57 XPS=58
' 参数3、Password :Variant 类型，可选。它是一个区分大小写的字符串（最长不超过 15 个字符），用于指定文件的保护密码。
' 参数4、WriteResPassword :Variant 类型，可选。 该字符串表示文件的写保护密码。如果文件保存时带有密码，但打开文件时不输入密码，则该文件以只读方式打开。
' 参数5、ReadOnlyRecommended : Variant 类型，可选。如果该值为 True，则在打开文件时显示一条信息，提示该文件以只读方式打开。
' 参数6、CreateBackup: Variant 类型，可选。如果该值为 True，则创建备份文件。
' 更多参数请自行百度。
Excel工作簿对象.写属性 (“Saved”, 真)
Excel程序对象.方法 (“Close”, )
Excel程序对象.方法 (“Quit”, )  ' 退出EXCEL程序
Excel工作表对象.清除 ()  ' 清空对象
Excel工作簿对象.清除 ()  ' 清空对象
Excel程序对象.清除 ()  ' 清空对象
返回 (“”)

@阿E菜鸟