主题：能不能利用代码给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

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

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

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

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

测试，没有问题的，一切正常。杀死进程，或者你重启电脑再试吧

代码就是生成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
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.OfficeToolBar = True
web.Address = fl

如果还报错，这样写代码试试

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("winword")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle = Nothing  Then
            p.kill       
    End If
Next

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
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.OfficeToolBar = True
web.Address = fl