跟我写代码实现Word文档自加密

　　对于办公一族而言，一些重要的Word文档时常需要加密处理。当然，你可以使用软件自带的“文档加密”功能，但每次新建文档都需要重新设置密码，十分麻烦，因此我教大家一种书写“宏”代码让Word自动加密的方法（此方法适用于最新的Word 2003）。

书写代码

　　打开一个Word文档（可以是空白文档），依次选择菜单“工具”→“宏”→“宏”（或直接使用快捷键Alt+F8），调出“宏”对话框。在对话框中输入“宏名”为“Auto_Set_password_Protect”，然后在“宏的位置”下拉列表框中选择“Normal.dot（共用模板）”，最后点击“创建”按钮建立一个新的“宏”文件（图1）。

图1 创建“宏”

　　在随后弹出的“宏代码设计”对话框右边的源代码设计窗口中的“Sub Auto_Set_password_Protect()”和“End Sub”之间输入如下代码（图2）：

-----------代码开始处---------
With Options \\所有选项模块
.AllowFastSave = True \\快速保存
.BackgroundSave = True \\后台保存
.CreateBackup = False \\创建备份
.SavePropertiesPrompt = False \\文档属性保存
.SaveInterval = 10 \\自动保存的时间间隔为10分钟
.SaveNormalPrompt = False \\Normal模板的保存
End With

With ActiveDocument \\活动文档模块
.ReadOnlyRecommended = False \\以只读方式打开文档
.EmbedTrueTypeFonts = False \\嵌入TrueType字体
.SaveFormsData = False
.SaveSubsetFonts = False \\嵌入字体相关
.Password = "openpassword" \\定义“打开权限密码”为“openpassword”
.WritePassword = "writepassword" \\定义“修改权限密码”为“writepassword”
End With
Application.DefaultSaveFormat = "" \\默认的保存格式
------------代码至此结束------------

图2 书写自动加密的源代码

　　以上代码已做注释，其中的“password=”和“writepassword=”分别表示具有“打开文档权限的密码”和“修改文档权限的密码”，本例中使用的是“openpassword”和“writepassword”。用户在书写代码时可以自行输入自定义的密码。