1

我有一个电子表格，上面有一列（比如 A 列）。这个想法是这个列由具有各种分数的用户填充。一旦用户对他们在 A 列中的答案感到满意，我希望他们确认答案是正确的（最好通过单击按钮）。单击该按钮后，我想使用 VBA 来保护 A 列不被再次编辑。我宁愿不使用保护工作表选项，因为电子表格中有其他数据，我需要将一些单元格锁定但可编辑（它们使用数据验证列表）。

我确实找到了这一点 VBA，但这是基于工作表更改 - 如果我能以某种方式使用它，但只有在用户确认数据已设置后才激活它，那将是理想的：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)    
    If Intersect(Target, Range("A2:A14")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    MsgBox "Hey, leave me alone!", 48, "Sorry, I'm protected."
    Application.Undo
    Application.EnableEvents = True
End Sub
4

1 回答 1

3

如果您发布的内容适合您的需求，那么：

在一个模块中，像这样：

Public active As Boolean
Sub Button1_Click()
   active = True
End Sub

在您的电子表格代码中：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If active Then
        If Intersect(Target, Range("A2:A14")) Is Nothing Then Exit Sub
        Application.EnableEvents = False
        MsgBox "Hey, leave me alone!", 48, "Sorry, I'm protected."
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

一个可能更好的解决方案是在工作表中指定一个按钮填充的单元格，因此代码实际上类似于：

If Range("A1") = "Locked" then
    ....
于 2012-12-05T17:36:22.873 回答