能不能利用代码给WORD报表加一个文档保护密码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能不能利用代码给WORD报表加一个文档保护密码？

共有4415人关注过本帖树形打印复制链接主题：能不能利用代码给WORD报表加一个文档保护密码？

wusim

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

加好友

发短信

等级：小狐帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00

能不能利用代码给WORD报表加一个文档保护密码？ 发帖心情

Post By：2015/2/24 16:52:00 [显示全部帖子]

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

wusim

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

加好友

发短信

等级：小狐帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00

Post By：2015/2/24 22:11:00 [显示全部帖子]

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

Dim tm As String = ProjectPath & "E:\360云盘\狐表程序\wsm\管理项目1\Attachments\A.doc" '指定模板文件

Dim fl As String = ProjectPath & "E:\360云盘\狐表程序\wsm\管理项目1\Reports\A.doc" '指定目标文件

Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport

wrt.Build() '生成报表

Dim app As New MSWord.Application

try

Dim fileName = "E:\360云盘\狐表程序\wsm\管理项目1\Reports\A.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

wrt.Show() '显示报表

End try

wusim

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

加好友

发短信

等级：小狐帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00

Post By：2015/2/24 22:50:00 [显示全部帖子]

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

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

wusim

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

加好友

发短信

等级：小狐帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00

Post By：2015/2/25 17:13:00 [显示全部帖子]

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

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

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

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

[此贴子已经被作者于2015/2/25 17:15:11编辑过]

wusim

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

加好友

发短信

等级：小狐帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00

Post By：2015/2/25 17:13:00 [显示全部帖子]

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.rar

wusim

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

加好友

发短信

等级：小狐帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00

Post By：2015/2/25 17:31:00 [显示全部帖子]

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

wusim

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

加好友

发短信

等级：小狐帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00

Post By：2015/2/26 8:52:00 [显示全部帖子]

没有解决问题，单独打开已加密码的WORD报表没有问题，代码合起来在我的电脑就有问题（WORD2003）.能不能这样分开处理，先生成WORD报表文件－－〉给文件加文档保护密码（不要不显示报表）－－－〉再显示WORD报表

wusim

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

加好友

发短信

等级：小狐帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00

Post By：2015/2/26 10:25:00 [显示全部帖子]

代码1:

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

运行有问题。

代码2：

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

web.OfficeToolBar = True

web.Address = "E:\360云盘\狐表程序\wsm\管理项目1\Reports\A表.doc"

运行没有问题。现在改到窗口显示WORD报表，怎样把两个代码结合来。