使用VBA宏锁定Word表格遇报错，寻求解决方案

你遇到的错误是因为Word的Table对象并没有Locked属性，所以NewArea.Locked = True这行代码找不到对应的成员，才会触发“method or data member not found”错误。

要实现“锁定表格，仅允许通过用户窗体编辑”的需求，最可靠的方式是通过文档保护结合VBA临时解除保护的逻辑来实现，具体操作如下：

1. 初始化文档保护
   先执行以下宏给文档设置保护，让用户无法手动修改内容：

Sub ProtectDocument()
    ' 保护文档，仅允许操作表单域；不需要密码可省略Password参数
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="yourPassword"
End Sub

执行后，用户手动无法编辑表格，只能通过你的用户窗体进行操作。

2. 在用户窗体的编辑逻辑中临时解除保护
   当需要通过窗体编辑表格时，先临时解除文档保护，完成编辑后再重新保护。示例代码如下：

Private Sub btnAddRow_Click()
    Dim targetTable As Table
    Set targetTable = ActiveDocument.Tables(1)
    
    ' 临时解除保护（密码和保护时一致，无密码则直接写ActiveDocument.Unprotect）
    ActiveDocument.Unprotect Password:="yourPassword"
    
    ' 执行表格编辑操作（示例：添加新行并填充内容）
    targetTable.Rows.Add
    targetTable.Cell(targetTable.Rows.Count, 1).Range.Text = "新行内容1"
    targetTable.Cell(targetTable.Rows.Count, 2).Range.Text = "新行内容2"
    
    ' 重新保护文档
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="yourPassword"
End Sub

补充说明 #

• 如果不需要密码保护，直接移除所有Password参数即可
• 保护类型wdAllowOnlyFormFields可以根据需求替换：比如wdAllowOnlyReading仅允许阅读，wdAllowOnlyComments仅允许添加评论等，选择最符合你场景的类型即可

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