如何通过VBA将已打开的Word文档从读写模式切换为只读模式

可以实现，但需要区分**内容级只读（文档保护）和文件级只读（无法保存修改至原文件）**两种场景，以下是对应解决方案：

方案1：设置内容级只读（锁定文档编辑） #

你代码中使用的.Protect wdAllowOnlyReading就是Word内置的文档保护功能，能直接锁定内容禁止编辑，这已经满足多数防止修改的需求。修正后的代码如下：

Sub ProcessWordDoc()
    Dim WordApp As New Word.Application
    Dim Doc As Word.Document

    WordApp.Visible = True

    Set Doc = WordApp.Documents.Open(Filename:="C:\myWordTemplate.docx", ReadOnly:=False)

    With Doc
        .Unprotect
        ' 填充表单字段
        .FormFields("Firstname").Result = Me.Firstname
        .FormFields("Lastname").Result = Me.Lastname
        ' 启用只读保护，禁止编辑内容
        .Protect Type:=wdAllowOnlyReading, NoReset:=True
        .Save ' 保存修改
    End With

    Set Doc = Nothing
    ' 可选：若需保持Word打开，注释下方代码
    ' WordApp.Quit
End Sub

方案2：设置文件级只读（仅能另存修改） #

如果需要让文档变为文件系统级别的只读（打开时显示"只读"标记，修改后无法覆盖原文件），可通过修改文件属性后重新加载文档实现，无需关闭文档：

Sub ProcessWordDocToFileReadOnly()
    Dim WordApp As New Word.Application
    Dim Doc As Word.Document
    Dim fso As Object
    Dim filePath As String

    filePath = "C:\myWordTemplate.docx"
    WordApp.Visible = True

    Set Doc = WordApp.Documents.Open(Filename:=filePath, ReadOnly:=False)

    With Doc
        .Unprotect
        ' 填充表单字段
        .FormFields("Firstname").Result = Me.Firstname
        .FormFields("Lastname").Result = Me.Lastname
        .Save ' 保存修改
        .Protect Type:=wdAllowOnlyReading, NoReset:=True ' 可选：同时启用内容保护
    End With

    ' 修改文件系统属性为只读
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.GetFile(filePath).Attributes = fso.GetFile(filePath).Attributes + vbReadOnly

    ' 重新加载文档为只读模式
    Doc.Reload ReadOnly:=True

    Set fso = Nothing
    Set Doc = Nothing
    ' 可选：若需保持Word打开，注释下方代码
    ' WordApp.Quit
End Sub

关键说明 #

• Doc.ReadOnly是只读属性，无法直接赋值，你原代码中该行无效。
• 方案2中，修改文件属性后重新加载，文档会以只读模式运行，修改内容后只能通过"另存为"保存。
• 若仅需文件级只读，可删除.Protect相关代码。

内容的提问来源于stack exchange，提问作者John