【原创】利用excel对象给excel文件加密码

阿E菜鸟

昨天定制区接的单。利用excel对象加密xls文件。看到百度没有这方面的例子，就写了个。
自取回帖 么么哒。

  

子程序名	返回值类型	公开	备 注
加密excel	文本型		成功返回空文本，失败错误原因。
参数名	类 型	参考	可空	数组	备 注
xls	文本型				要加密的excel文件名。全路径
Password	文本型				要设置的密码

变量名	类 型	静态	数组	备 注
Excel程序对象	对象
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程序对象.清除 ()  ' 清空对象
返回 (“”)

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

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

阿E菜鸟

这个excel.application 有很多方法。非常好用。易语言自带excel2000实现不了的功能， 可以使用这个来实现

队长是我

谢谢分享。。。

热点

看看快快快

热点

excel加密 好像人家打开后复制一下就可以转移了吧

漫步者j

yangshulin

利用excel对象加密xls文件

阿E菜鸟

热点 发表于 2019-11-10 14:49
excel加密 好像人家打开后复制一下就可以转移了吧

这个是打开excel的时候就需要输入密码，不是工作簿保护，当然也可以设置不输密码用只读方式打开，例子里面的方法参数有哦。

网络注册会员

不错不错的

luckfish45

楼主辛苦了，谢谢楼主，感谢楼主分享，楼主好人一生平安！！！