Word提供了加密的功能，但不能自動(dòng)給文檔加密。下面介紹一種能自動(dòng)給Word文檔統(tǒng)一加上密碼的辦法（以Word 2003為例）。

第一步：在“工具”菜單中選擇“宏”選項(xiàng)卡，單擊“宏”命令，鍵入宏的名稱“AllAutoPassword”，在“宏的位置”框中選擇“所有的活動(dòng)模板和文檔”，在“說明”中可以鍵入對(duì)該宏的說明，例如“利用‘宏’給文檔進(jìn)行統(tǒng)一加密”，最后單擊“創(chuàng)建”按鈕即可。

第二步：系統(tǒng)會(huì)彈出“宏”編輯窗口，在Sub AllAutoPassword()和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" ’打開權(quán)限密碼

.WritePassword = "123456" ’修改權(quán)限密碼

End With

Application.DefaultSaveFormat = " "

第三步：代碼輸入后，選擇“文件”菜單中的“保存Normal”，點(diǎn)擊“關(guān)閉并返回到Microsoft Word”，再在“工具”菜單中選擇“自定義”，選擇“命令”標(biāo)簽，在“類別”中選擇“宏”，在“命令”中找到 “Normal.NewMacros.AllAutoPassword”，然后將它移至常用工具欄內(nèi)即可。

以后，用戶新建或關(guān)閉一個(gè)文檔時(shí)，該宏將提醒用戶是否保存對(duì)該文檔的修改，如果選擇“是”，那么文檔將自動(dòng)被加上密碼“123456”，反之則不加密碼。