Dim Adoc As String， PSDoc As Document

　　On Error Resume Next

　　ChDrive "C" ‘設置當前驅動器盤符

　　ChDir "C：Documents and SettingsMy DocumentsTemp" ‘進入指定目錄

　　Adoc = Dir("*.doc")

　　application.ScreenUpdating = False

　　Do While Adoc <> "" ‘如果是文件夾，或者沒有此文件，則會返回""

　　‘ MsgBox Adoc

　　Set PsDoc = Documents.Open(Adoc) ‘打開指定文檔

　　PsDoc.PRotect Type：=wdAllowOnlyFormFields， PassWord：="Password"

　　PsDoc.Close True

　　Adoc = Dir()

　　Loop

　　Application.ScreenUpdating = True

　　使用的時候，請將如上的代碼放在宏中來使用。