使用复选框使区域不可编辑

【问题标题】：Making an area un-editable using a checkbox使用复选框使区域不可编辑
【发布时间】：2020-06-23 19:54:28
【问题描述】：

如果checkbox 的值为true，我有一个word 文档并希望使特定区域不可编辑（灰显）。我的问题是有一些错误，我自己无法修复，希望您能帮我解决。

Sub checkBoxStatus()

'declare variables
Dim cb3Y As CheckBox
Dim cb3N As CheckBox

Set cb3Y = ActiveDocument.FormFields(1).CheckBox

cb3Y.Value = False 'just needed this for debugging, to see if I got the right checkbox

End Sub

运行此代码片段时，我一直收到一条错误消息。 “运行时错误 '5941' 请求的集合成员不存在”。不幸的是，我不知道在哪里可以编辑我需要的正确复选框的 id。

【问题讨论】：

标签： vba checkbox ms-word office365

【解决方案1】：

没有 CheckBox 集合。使用类似的东西：

Sub checkBoxStatus()
With ActiveDocument
  If .FormFields(1).CheckBox.Value = True Then
    ' code for true here
  Else
    ' code for false here
  End If
End With
End Sub

【讨论】：

我当前的 word 文档中有 2 个checkBoxes。如果选择了另一个，如何禁用一个？我试过这个：Dim cb1 As Checkbox Dim cb2 As CheckBox cb1 = FormFields(1).Checkbox 'here the other code 这不起作用。我只想将我的复选框（名为 cb1）声明为一个变量来做很多事情
你有没有费心阅读我发布的答案？？？正如我所说的«有 no CheckBox 集合»。网上有很多例子可以让表单域复选框独占。
是的，谢谢，我没听懂你的意思。我不清楚您所说的 > 是什么意思。不管怎样，你的回答解决了我的问题。非常感谢