你在word文件裡面插入以下巨集：
Private Sub Document_Open()
  If ActiveDocument.ProtectionType = wdNoProtection Then
          ActiveDocument.Protect _
          Type:=wdAllowOnlyFormFields, NoReset:=True
  End If
  End Sub
如果要高階一點的方法，可以參考官網：
http://office.microsoft.com/zh-cn/word-help/RZ001117927.aspx

如果能有辦法強制啟用巨集就更好了。加上以下就可以禁止另存為了。禁止另存為的目的也是防止將檔案存純文字格式取出其中文字。
Sub FileSaveAs()
End Sub

：）
Private Sub Document_Open()
 
這句就是開啟word自動啟用巨集的意思~你還需要禁止另存為的巨集？