|在本文中，我们将使用工作表的change事件来保护包含公式的单元格。

原始数据由员工销售数据组成，其中包括按月份和年份分叉。

ArrowRawData

我们希望按月和按年找出总销售额。

ArrowRawData2

我们使用求和函数来计算每月和每年的总销售额。工作表的更改事件用于保护包含公式的单元格。当我们尝试编辑包含公式的单元格时，会弹出消息，提示不能更改单元格的值。

代码说明

如果单元格包含公式，则rng.HasFormula HasFormula方法将返回True。

否则它将返回False。

ActiveSheet.Protect上面的代码用于保护单元格。

注意：仅当单元处于锁定状态时，才会受到保护。因此，在保护单元之前，必须将其锁定。 ActiveSheet.Unprotect上面的代码用于取消保护单元格。

请遵循以下代码

'Add below code in worksheet module

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range

For Each rng In Target.Cells

If rng.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

Next rng

End Sub

如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。

我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]