以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel文件解密  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190304)

--  作者:zhenghangbo
--  发布时间:2024/1/30 12:44:00
--  excel文件解密
桌面有一个abc.xls,加密的密码为:123zhb
Dim App As New MSExcel.Application
Dim doc As MSExcel.Workbook = App.WorkBooks.Open("C:\\Users\\lenovo\\Desktop\\abc.xls")
App.Visible = True
doc.Unprotect(Password:="123zhb")

上述打开的abc.xls任然需要手工输入密码,怎么才能解密打开这个excel文件?

--  作者:有点蓝
--  发布时间:2024/1/30 13:32:00
--  
……
doc.Unprotect(Password:="123zhb")
App.Visible = True

--  作者:zhenghangbo
--  发布时间:2024/1/30 14:36:00
--  
按照你代码,还是没有效果,打开后要手动输入密码。是不是因为excel是wps建的原因
--  作者:有点蓝
--  发布时间:2024/1/30 14:52:00
--  
文件发上来测试一下
--  作者:zhenghangbo
--  发布时间:2024/1/30 16:27:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:abc.xls


--  作者:有点蓝
--  发布时间:2024/1/30 16:55:00
--  
 Dim doc As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "abc.xls", password:="123zhb")