Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("C:\Users\Administrator\Desktop\1.xls")
For Each ws As object In Wb.workSheets
Ws.unProtect(Password:="hhh") '以密码保护
Wb.Save
Next
App.Quit
上述代码在运行时，将整个表格进行密码取消
如果是单独一个工作表的模式 运行之后该工作表可以不再输入密码后直接编辑
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\Users\Administrator\Desktop\1.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("Sheet1")
Ws.unProtect(Password:="hhh") '以密码保护
Wb.Save
App.Quit
运行会报错
此主题相关图片如下：001.png
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
[此贴子已经被作者于2021/1/15 17:56:59编辑过]
加好友 
发短信
Post By：2021/1/15 17:35:00 [只看该作者]
