Word中快速设置文档密码的宏代码

　　宏代码
　　Sub mima()
　　With ActiveDocument
　　.Password = "123"
　　.WritePassword = "456"
　　End With
　　End Sub

　　说明
　　①代码中第三行和第四行开头均有一个英文状态下的句号“.”，不要遗漏。
　　②代码第三行设置的是打开权限密码，第四行设置的是修改权限密码。
　　③如果把宏名修改为“AutoNew”，那么以后通过执行“文件→新建”命令(或者直接点击常用工具栏上的“新建”按钮)建立的新文档，都会被自动加密。
　　④把宏名修改为“Autolose”，则以后关闭文档时(即使已经对文档执行了保存操作)，系统都会弹出一个“是否保存对XXX.doc的更改”提示框，如果选择“是(Y)”，则对该文档加密，如果选择“否(N)”，则不对该文档加密。