可以使用 VBA 代码来实现保护 Excel 中某个范围的完整性。以下是代码示例:
Sub Protect_Range_Integrity() '定义要保护的范围 Dim rng As Range Set rng = Range("A1:A10")
'设置保护选项
With rng
.Locked = True '锁定范围
.FormulaHidden = True '隐藏公式
End With
'设置工作表保护选项
ActiveSheet.Protect Password:="mypassword", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
'解除保护选项
'ActiveSheet.Unprotect Password:="mypassword"
End Sub
上述代码中,首先定义了要保护的范围,并设置了保护选项。范围被锁定,并隐藏公式,同时保护了工作表,只允许某些操作(如允许格式化单元格、列或行、允许排序、筛选、允许使用数据透视表等)。可以使用注释行来解除保护选项。
下一篇:保护访问令牌免受XSS攻击