Excel:禁用有关尝试在 BeforeDoubleClick 上更改 protected 单元格的警报

Question

我有一个包含 protected 单元格范围的工作表。这些单元格中有名称，我希望有一个双击前事件，该事件显示一个表单并根据双击的单元格中的名称在表单中预加载信息。

我使用双击，以便用户在第一次点击时选择单元格，然后我可以使用 ActiveCell.Value 来获取名称并加载适当的信息。

但是，由于我已经保护了范围，所以当我双击一个单元格时，我会得到一个 excel 提示

The cell or chart that you are trying to change is protected and therefore read-only.

To modify a protected cell or chart, first remove protection using the Unprotect Sheet command (Review tab, Changes group). You may be prompted for a password.

表单仍按计划触发，但我想阻止 excel 提示发生。有没有办法禁用提示？如果没有，是否有我没有想到的另一种解决方法？

Answer 1

对于您的特定情况，发生这种情况是因为您为“允许直接在单元格中编辑”启用了工作簿选项 - 可以在此处找到:

并且可以通过代码设置，例如:

Application.EditDirectlyInCell = True

因此，当您双击事件时触发，但下一个操作是输入要编辑的单元格，但因为您已保护该单元格，所以您会收到警报。防止警报的最简单方法是在“编辑”阶段发生之前取消事件——您只想使用该事件来启动表单，对吗？所以事件处理程序是这样的:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim varValue As Variant

    'get the cell value
    varValue = ActiveCell.Value

    'do something with it - you can launch your form here        
    MsgBox CStr(varValue)

    ' NOTICE here that you can cancel the double click event 
    ' meaning no attempt to edit the cell will be made per the users double click
    Cancel = True

End Sub