Foxtable(狐表)用户栏目专家坐堂 → word文件加密后 怎么修改红色部分进行解密呢?当前解密老提示错误。


  共有1916人关注过本帖树形打印复制链接

主题:word文件加密后 怎么修改红色部分进行解密呢?当前解密老提示错误。

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
word文件加密后 怎么修改红色部分进行解密呢?当前解密老提示错误。  发帖心情 Post By:2021/1/16 11:24:00 [显示全部帖子]

word文件加密后  怎么修改红色部分进行解密呢?
在解密前先判断是否有密码保护,如果有就解密,如果没有就不解密。
Dim app As New MSWord.Application
Dim doc = app.Documents.Open("C:\Users\Administrator\Desktop\2.doc")
doc.unprotect(Password:="123456")
'doc.Protect (Password:="123456", NoReset:=False, Type:=MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
Doc.saved = True
App.Visible = True

图片点击可在新窗口打开查看此主题相关图片如下:202111517565760444.png
图片点击可在新窗口打开查看


 回到顶部