vb中运行密码保护后无效的问题！

Question

我在下面的代码中对word文档增加了密码保护，打开时有密码保护，却没有保护任何内容！奇怪，求请赐教！Dim oWord     As Object
    Set oWord = CreateObject("Word.Application")
    oWord.documents.Open (App.Path & "\model.doc")
'  oWord.Visible = True
    With oWord.activedocument
        .Unprotect Password:="12345"
        .FormFields("txt1").Result = Text1.Text
        .Content.InsertAftert  text1.Text
        .SaveAs App.Path & "\备份\" & Format(Date, "yyyy-mm-dd") & Text12.Text & ".doc"
        .Protect Password:="12345", Type:=wdAllowOnlyReading
        .Printout
        .Close True
  End With
  oWord.quit
  Set oWord = Nothing
  Exit Sub

Answer 1

已经过excelhome论坛的守柔指导！Type:=wdAllowOnlyReading改为Type:=3