指定Word文件保護，求助(編號：28652)

以下程式碼確實可以使指定Word文件保護
但是明明有設定密碼，卻不用密碼就能解開QQ
能幫我看看嗎？我想加入頁首後加以保護
Dim wd As New Word.Application
　　Dim ww As Document
　　Set ww = wd.Documents.Open("c:\Word.rtf")
　　wd.ActiveDocument.Protect Password:="pass", NoReset:=False, Type:=wdAllowOnlyFormFields
　　'離開Word且存檔
　　wd.Quit savechanges:=True
　　Set ww = Nothing
　　Set wd = Nothing