- 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)
-- 发布时间：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
-- 发布时间：2024/1/30 14:36:00
--
按照你代码，还是没有效果，打开后要手动输入密码。是不是因为excel是wps建的原因
-- 发布时间：2024/1/30 14:52:00
--
文件发上来测试一下
-- 发布时间：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")