word、excel文件有没有代码直接设定打开文档或编辑文档的时候进行密码确认呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → word、excel文件有没有代码直接设定打开文档或编辑文档的时候进行密码确认呢？

共有3121人关注过本帖树形打印复制链接主题：word、excel文件有没有代码直接设定打开文档或编辑文档的时候进行密码确认呢？

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

word、excel文件有没有代码直接设定打开文档或编辑文档的时候进行密码确认呢？ 发帖心情

Post By：2021/1/11 18:08:00 [显示全部帖子]

专业报表在保存为pdf的时候可以设定打开文档或编辑文档的时候进行密码确认，

那么word、excel文件有没有代码直接设定打开文档或编辑文档的时候进行密码确认呢？

李孝春

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）参考：http://www.foxtable.com/webh... 发帖心情

Post By：2021/1/15 14:13:00 [显示全部帖子]

有点蓝老师按照你提供的地址我学习如下：

word文件加密

Dim app As New MSWord.Application

Dim doc = app.Documents.Open("C:\Users\Administrator\Desktop\公文助手20201224\贵州省发展党员工作规程(试行).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

错误如下：

此主题相关图片如下：01.png

excel文件加密

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.Protect(Password:="hhh") '以密码保护

Wb.Save

App.Quit

可以实现sheet1被保护，有没有办法让这个灵活自动读取1.xls中的所有表并且都密码保护起来呢？

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）代码我测试没有问题，文件发上来试试... 发帖心情

Post By：2021/1/15 14:47:00 [显示全部帖子]

excel代码运行无效没有起到密码保护

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.Protect(Password:="hhh") '以密码保护

Wb.Save

App.Quit

李孝春

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）测试没有问题，执行后打开文档就无法... 发帖心情

Post By：2021/1/15 15:11:00 [显示全部帖子]

谢谢！我重新创建了一个文件之后再次运行正常了

有点蓝老师如果我要进一步扩展到ppt文件那对应的MSEXCEL该写成什么呢？POWERPNT?MSPOWERPNT?

李孝春

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）http://www.foxtable.com/bbs/dispbb... 发帖心情

Post By：2021/1/15 16:41:00 [显示全部帖子]

有点蓝老师参照学习

可以实现PPT转成pdf

但是怎么给ppt设置上密码保护呢？

Dim app As new Microsoft.Office.Interop.PowerPoint.Application

Dim ppt = app.Presentations.Open("C:\Users\Administrator\Desktop\瓮检普法模板.pptx",0,0,0)

'msgbox(Microsoft.Office.Interop.PowerPoint.PpFixedFormatType.ppFixedFormatTypePDF)

ppt.saveas("d:\test1.pdf", 32, 1)

app.quit

李孝春

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）https://docs.microsoft.com/zh-cn/p... 发帖心情

Post By：2021/1/15 17:35:00 [显示全部帖子]

谢谢通过学习

如下代码已经能够实现设置密码的预期效果

Dim app As new Microsoft.Office.Interop.PowerPoint.Application

Dim ppt = app.Presentations.Open("C:\Users\Administrator\Desktop\瓮检普法模板.pptx",0,0,0)

ppt.Password = "123"

ppt.saved = True

App.Visible = True

app.quit

那么如果该文件预设了密码怎么在代码中直接写入密码然后不需要再次输入密码即可打开该PPT呢？

李孝春

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）测试没有问题，执行后打开文档就无法... 发帖心情

Post By：2021/1/15 17:50:00 [显示全部帖子]

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

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编辑过]

下一主题 >> << 上一主题

主题：word、excel文件有没有代码直接设定打开文档或编辑文档的时候进行密码确认呢？