如果其他单元格具有特定值，则要禁用编辑单元格

Question

如果另一个调用包含某些值，我想禁用一个单元格，我已经编写了下面的代码，但它给我一个错误

  

“参数数量错误或属性分配无效”。

请帮我解决这个问题。

Private Sub ComboBox1_Click()
    Dim projworkbook As Workbook
    Dim page1 As Worksheet

    Set projworkbook = ActiveWorkbook
    Set page1 = projworkbook.Worksheets("Project_Creation")

    If Me.ComboBox1.Text = "Extention" Then
        Me.ComboBox2.Visible = True else
        page1.Range("B5").AllowEdit = False '-> I am getting error here
    end if
  End Sub

Answer 1

问题是.AllowEdit是只读的，因此您无法将其设置为False。

而是使用.Locked = True来锁定范围，或相应地使用.Locked = False来解锁范围。

请注意，需要保护工作表以便使用此属性。默认情况下，所有范围都标记为.Locked = True，因此如果您保护工作表，则所有内容都会被锁定。因此，在保护工作表时，您可能需要解锁不想锁定的范围。