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

如果真 (Excel程序对象.创建 (“Excel.Application”, ) ＝ 假)
调试输出 (“创建Excel程序对象失败”)
返回 (Excel程序对象.取错误 ())
Excel程序对象.写属性 (“Visible”, 假) ' 设置为假不显示excel窗口，设置为真会打开excel。
Excel工作簿对象 ＝ Excel程序对象.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, xls, , , , ) ' 打开xls文件。
Excel工作簿对象.方法 (“SaveAs”, 取运行目录 () ＋ “\test.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程序对象.清除 () ' 清空对象
返回 (“”)