1. 点击 Sheet
2. 右键菜单 查看代码
3. 复制如下代码
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 6
End With
End Sub
4. Excel-选项-信任中心-保存时从文件属性中删除个人信息
原文地址:https://www.cnblogs.com/yangyuqiu/p/9570658.html
时间: 2024-10-12 03:51:24