【資料名稱】：創(chuàng)建Word文檔時自動給文檔加密

【資料作者】：PCW_Grubby

【資料日期】：2011-5-12

【資料語言】：中文

【資料格式】：DOC

【資料目錄和簡介】：

Word提供了加密的功能，但不能自動給文檔加密。下面筆者介紹一種能自動給Word文檔統(tǒng)一加上密碼的辦法（以Word 2003為例）。
第一步：在“工具”菜單中選擇“宏”選項卡，單擊“宏”命令，鍵入宏的名稱“AllAutoPassword”，在“宏的位置”框中選擇“所有的活動模板和文檔”，在“說明”中可以鍵入對該宏的說明，例如“利用‘宏’給文檔進行統(tǒng)一加密”，最后單擊“創(chuàng)建”按鈕即可（如圖）。
[attach]164987[/attach]
第二步：系統(tǒng)會彈出“宏”編輯窗口，在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”，點擊“關(guān)閉并返回到Microsoft Word”，再在“工具”菜單中選擇“自定義”，選擇“命令”標簽，在“類別”中選擇“宏”，在“命令”中找到“Normal.NewMacros.AllAutoPassword”，然后將它移至常用工具欄內(nèi)即可。

以后，用戶新建或關(guān)閉一個文檔時，該宏將提醒用戶是否保存對該文檔的修改，如果選擇“是”，那么文檔將自動被加上密碼“123456”，反之則不加密碼。我的方法是不是很好用？大家不妨一試。