Word中的宏代码(8)：快速设置文档密码

软件世界

陈秀峰 · 2004年3月1日

　　目的

　　目前不少单位还是多人共用一台电脑，为了保密起见，常常要为Word文档加密。由于Word的加密功能通常只对当前文档有效，为了提高效率，笔者设计了一个宏，可以快速给文档设置密码。

　　宏代码

　　Sub mima()

　　With ActiveDocument

　　.Password = "123"

　　.WritePassword = "456"

　　End With

　　End Sub

　　说明

　　①代码中第三行和第四行开头均有一个英文状态下的句号“.”，不要遗漏。

　　②代码第三行设置的是打开权限密码，第四行设置的是修改权限密码。

　　③如果把宏名修改为“AutoNew”，那么以后通过执行“文件→新建”命令(或者直接点击常用工具栏上的“新建”按钮)建立的新文档，都会被自动加密。

　　④把宏名修改为“Autolose”，则以后关闭文档时(即使已经对文档执行了保存操作)，系统都会弹出一个“是否保存对XXX.doc的更改”提示框，如果选择“是(Y)”，则对该文档加密，如果选择“否(N)”，则不对该文档加密。