Excel VBA 使用公式保护单元格 - VBA

Excel VBA 是一种在 Microsoft Excel 中编写宏和自定义函数的编程语言，可以用于自动化 Excel 操作并增强 Excel 功能。本文将介绍如何使用 Excel VBA 保护单元格并使用公式。

保护单元格

Excel 提供了保护单元格的功能，可以防止用户在受保护的单元格上进行更改。使用 VBA，可以轻松地保护单元格，如下所示：

Sub ProtectSheet()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 设置密码以解锁工作表（如果需要）
    ' ws.Protect Password:="mypassword"
    
    ' 保护工作表并锁定单元格，禁止用户编辑
    ws.Protect UserInterfaceOnly:=True, AllowFiltering:=True
    ws.EnableSelection = xlUnlockedCells
End Sub

上述代码会将当前活动工作表保护起来，并锁定所有单元格，用户无法编辑。如果需要对某些单元格开放编辑权限，可以将这些单元格设置为未锁定状态。

原理是设置 UserInterfaceOnly 参数为 True，这样用户仍然可以通过 VBA 修改单元格的属性，但是无法直接在单元格中输入内容，只能通过 VBA 修改。

使用公式

在保护单元格的情况下，如果需要在受保护的单元格上使用公式进行计算，可以使用 Worksheet_Change 事件。该事件将在单元格内容更改时触发，并允许我们在内容被锁定的情况下修改单元格。

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    
    ' 判断修改的单元格是否在受保护范围内
    If Target.Locked And Target.Column = 2 Then
        ' 将计算结果输入另一个单元格
        Application.EnableEvents = False
        Range("C" & Target.Row).Value = Target.Value * 2
        Application.EnableEvents = True
    End If
    
    Exit Sub
    
ErrorHandler:
    Application.EnableEvents = True
    MsgBox "Error:" & Err.Description
End Sub

上述代码会在受保护的第二列单元格内容修改时触发，并将结果写入第三列单元格中。为了避免事件的循环触发，需要设置 Application.EnableEvents 参数为 False。

总结

在应用程序中使用 VBA 代码保护单元格并使用公式可以实现更好的数据控制和更高的数据安全性。我们可以使用 Protect 方法来保护工作表并锁定单元格，然后使用 Worksheet_Change 事件来允许在受保护的单元格上使用公式进行计算。