主题：能不能利用代码给WORD报表加一个文档保护密码？

能不能利用代码给WORD报表加一个文档保护密码？防止打开WORD报表后修改文档。

 可以，参考

 

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    doc.Protect (Password:="123456", NoReset:=False, Type:= _
        MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
    app.Documents.save
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

请问哪里出问题：我想生成WORD报表后加密码后再显示报表。如果第二记录再生成WORD报表时，由于已加密码不能再生成，请问怎样处理好？是先删除已加密文件，再粘贴一个没有加密密码的文件还是先解除保护后再生成好？

Dim tm As String  = ProjectPath & "Attachments\A.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\A.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
wrt.Build() '生成报表
wrt.quit
Dim app As New MSWord.Application
try
    Dim fileName = fl
    Dim doc = app.Documents.Open(fileName)
    doc.Protect (Password:="123456", NoReset:=False, Type:= _
    MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
    app.Documents.save
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
finally
    'app.Quit
End try

有一问题生成时显示收下窗口，还有加密码后文件打印后不保存直接退出，怎样改代码？

 1、调出任务管理器，去掉winword进程；或者重启你的计算机

 

 2、完成1，代码本来就不会提示保存的。

问题还没有解决，还是弹出提示。还有打开已加密码的WORD报表，怎样才能原有WORD菜单,现在不见了。

此主题相关图片如下：4.jpg

 呃，测试了一下，项目正常。

 

 不正常，是因为你之前弄错了，没有关闭winword进程

WORD报表打开后不见了原有的WORD系统菜单。