【原创】利用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菜鸟

love961112233 发表于 2020-5-30 02:22
大神 方法BreakLink  将链接到其他 Microsoft Excel 源或 OLE 源的公式转换为值。 这个怎么写啊   方便加个 ...

最近没上论坛没看见消息。
这个要用LinkSources 获取到返回工作簿中链接的数组。
然后再通过BreakLink 方法 (Excel)将链接到其他 Microsoft Excel 源或 OLE 源的公式转换为值。
具体参数参考：https://docs.microsoft.com/zh-cn/office/vba/api/excel.workbook.breaklink

love961112233

大神 方法BreakLink  将链接到其他 Microsoft Excel 源或 OLE 源的公式转换为值。 这个怎么写啊   方便加个QQ有偿

阿E菜鸟

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

是打开就要输入密码哦。不过可以强制破解。

我是逛逛

很好很不错。。。。。。。。。。。。。。。。

av7mxi

6666666666666666

easyjun

看看,下载 了

你呆哪哪凉块

支持开源~！感谢分享

站在这别动

少时诵诗书

晨风1

感谢楼主分享