Excel获得焦点变色

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-选项-信任中心-保存时从文件属性中删除个人信息