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 回答