Word自带加密功能，但没法自动上锁啊！不过有招儿～用宏就能一键批量加密码（以老版本Word 2003为例哈）：
第一步：点「工具」→「宏」→「宏」，起个名字比如AllAutoPassword，位置选所有活动模板和文档，说明写一键全盘加密就行，点创建～
第二步：弹出代码编辑框后，在Sub和End Sub中间粘贴这段代码（密码我设成123456，你可按需改）：
With Options
.AllowFastSave = True
.BackgroundSave = True
.CreateBackup = False
.SavePropertiesPrompt = False
.SaveInterval = 15
.SaveNormalPrompt = False
End With
With ActiveDocument
.ReadOnlyRecommended = False
.EmbedTrueTypeFonts = False
.SaveFormsData = False
.SaveSubsetFonts = False
.Password = 123456 ’打开密码
.WritePassword = 123456 ’修改密码
End With
Application.DefaultSaveFormat =
第三步：代码粘完，点「文件」→「保存Normal」→「关闭并返回Word」，再点「工具」→「自定义」→「命令」标签→左边选宏，右边找到Normal.NewMacros.AllAutoPassword，直接拖到工具栏就搞定！以后点一下，秒加锁～（PS：新版本操作略有不同，别硬套哈）
第一步：点「工具」→「宏」→「宏」，起个名字比如AllAutoPassword，位置选所有活动模板和文档，说明写一键全盘加密就行，点创建～
第二步：弹出代码编辑框后，在Sub和End Sub中间粘贴这段代码（密码我设成123456，你可按需改）：
With Options
.AllowFastSave = True
.BackgroundSave = True
.CreateBackup = False
.SavePropertiesPrompt = False
.SaveInterval = 15
.SaveNormalPrompt = False
End With
With ActiveDocument
.ReadOnlyRecommended = False
.EmbedTrueTypeFonts = False
.SaveFormsData = False
.SaveSubsetFonts = False
.Password = 123456 ’打开密码
.WritePassword = 123456 ’修改密码
End With
Application.DefaultSaveFormat =
第三步：代码粘完，点「文件」→「保存Normal」→「关闭并返回Word」，再点「工具」→「自定义」→「命令」标签→左边选宏，右边找到Normal.NewMacros.AllAutoPassword，直接拖到工具栏就搞定！以后点一下，秒加锁～（PS：新版本操作略有不同，别硬套哈）