怎样批量给WORD文档加密?

Question

多个文档用同一个密码

Answer 1

一、认识Word自动宏

所谓宏是将一系列Word命令和指令组合起来，形成一个命令，实现任务执行的自动化。在Word中有一类很实用的自动宏，会在特定事件发生时自动运行，Word提供的5个自动宏是：

1.Autoexec宏在启动Word时自动运行。若以WinWord/Mfile命令启动Word，则需再添加“/Mautoexec”参数，否则Autoexec宏不被执行。2.Autoexit宏在退出Word时自动运行。3.Autonew宏在新建文档时自动运行。4.Autoopen宏在打开文档时自动运行。5.Autoclose宏在关闭文档时自动运行。

二、录制自动加密宏只要给

Autonew宏增加密码功能，在新建文档时将自动加上通用密码。创建Autonew宏步骤如下：

1.启动Word，点击“工具”菜单中“宏”子菜单，单击“录制新宏”，系统弹出“录制宏”对话框。

2.在“宏名”框中键入Au-tonew，在“将宏保存在”框中，单击“所有文档（Normal.dot）”，并且还可以在“说明”框中键入对宏的说明，然后单击“确定”。

3.单击“工具”菜单“选项”命令，系统弹出“选项”对话框。

4.单击“保存”选项卡或“安全性”选项卡，单击“打开权限密码”或“修改权限密码”框，输入密码，例如“123”，单击“确定”按钮，在“确认密码”对话框中，再次键入密码并单击“确定”。

5.打开“工具”菜单的“宏”子菜单，单击“停止录制”。

6.退出Word。

今后，所有利用工具栏上“新建”按钮建立的文档都有了通用密码。但如果仅到此为止，我们会有一个小小的遗憾，就是启动Word时自动新建的Word空文档没有自动加上密码。

为了弥补这一缺憾，我们还需要再录制一个“Autoexec”自动宏：

首先如上所述打开“录制宏”对话框，然后在“宏名”框中键入“Autoex-ec”，在“将宏保存在”框中，选择“所有文档（Normal.dot）”，在“说明”框中键入对宏的说明，单击“确定”按钮，然后单击常用工具栏上的“新建”按钮，最后打开“工具”菜单的“宏”并单击“停止录制”命令。

Answer 2

我这里是用WORD97：
1、首先依次点击“视图→宏→录制宏”命令，弹出“录制宏”对话框，在“宏名”栏中键入宏的名称“密码”，在“将宏保存在”栏中选择 “所有文档（Normal.dotm）”选项，在“说明”框中键入对宏的说明，比如“给新建文档自动加上统一密码”，然后单击“确定”按钮开始录制宏。

2、单击“Office按钮”，将光标定位到“准备”选项，这时在右边自动显示“准备”菜单，选中“加密文档”选项卡，即弹出“加密文档”对话框，在“密码”框中输入你需要设置的密码，单击“确定”按钮，然后系统会再次弹出确认对话框，只要再次输入密码，再次点击“确定”按钮即可。

3、再次点击“视图→宏”命令，单击“停止录制宏”按钮，然后单击“查看宏”按钮，即可看到刚才录制的宏。

4、经过设置之后，“密码宏”在每次关闭文档时都会自动运行，所以当新建或打开任何一个文档并关闭或退出时，程序将询问是否保存对文档的修改，如果单击“是”按钮，则文档将被加上密码了，单击“否”按钮则不加密码。

Answer 3

可以把“2读书心得”文件夹下的所有word文档批量加密和解密。密码为5822。各句可根据实际修改
Sub 加密word()
On Error Resume Next
mypath = ActiveDocument.Path & "\2读书心得"
myname = Dir(mypath & "\" & "*.doc*")
Do While myname <> ""
Set wb = Documents.Open(mypath & "\" & myname, PasswordDocument:="5822")

wb.Password = "5822"
wb.Close True
myname = Dir
Loop
End Sub
Sub 解密word()
On Error Resume Next
Dim wb As Document
mypath = ActiveDocument.Path & "\2读书心得"
myname = Dir(mypath & "\" & "*.doc*")
Do While myname <> ""
Set wb = Documents.Open(mypath & "\" & myname, PasswordDocument:="5822")
wb.ReadOnlyRecommended = False
wb.Password = ""

wb.Close True
myname = Dir
Loop
End Sub

Answer 4

使用宏的确能够提高效率，但仍需要逐个去操作文档。word没有直接提供批量为文档设置密码的功能。但针对楼主的问题我想不妨换个思路，既然word没有此功能，就借助其他第三方软件吧。比如winrar，我想从本质上讲，它可以解决楼主的问题。本回答被提问者采纳

Answer 5

怎么给word文档加密？这个视频告诉你！办公软件实用技巧。