VBA单元格不突出显示
它是一个受保护的工作表/工作簿，我有一个代码，会抛出一个提示用户，无论是否编辑工作表。 单元格是可编辑的，但问题是单元格没有被边框突出显示。 所以用户很难知道他正在使用哪个单元格。
我在这里有两张纸，Corefiller和Ad-filler，如果在corefiller纸上的下拉是“否”。 用户在select图纸时会得到一个提示，他点击确定编辑图纸，或者如果他不想编辑则取消。
代码表“Ad-filler”
Option Explicit Private mMessageDisplayed As Boolean Private Sub Worksheet_Activate() Carry End Sub 代码在模块上。
Public Sub Carry() If ActiveSheet.ProtectContents And Not mMessageDisplayed Then mMessageDisplayed = True If ThisWorkbook.Sheets("Corefiller").Range("E29") = "NO" Then If MsgBox("Click OK to include Filler for this request", vbOKCancel + vbInformation) = vbOK Then ThisWorkbook.Worksheets("Corefiller").Range("E29") = "YES" With ThisWorkbook.Sheets("Ad-filler") .Range("E13:E14").Locked = False End With Else With ThisWorkbook.Sheets("Ad-filler") .Range("E13:E14").Locked = True End With End If Else Exit Sub End If End If End Sub
我的代码有什么问题？ 为什么细胞没有被突出显示。 如果我尝试在代码中使用保护/取消保护，第一个表格（Corefiller）上的单元格将不会突出显示，而且我必须单击其他表单并返回以突出显示单元格。
你可以重新启动，执行这个，并检查问题是否仍然存在：
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 3 End Sub