VBA单元格不会高亮显示

这是一个受保护的工作表/工作簿，我有一个代码，它会提示用户是否编辑工作表。单元格是可编辑的，但问题是单元格没有使用边框高亮显示。因此，用户很难知道他正在处理哪些单元格

我这里有两张纸，Corefiller和Ad filler，如果Corefiller纸上的下拉列表为“否”。用户选择工作表时会收到提示，单击“确定”编辑工作表，如果不想编辑，则单击“取消”

表格“广告填充”上的代码

模块上的代码。

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

我的代码有什么问题？单元格未高亮显示的原因。如果我尝试在代码中使用protect/unprotect，则第一个工作表（Corefiller）上的单元格将不会突出显示，我必须单击其他工作表并返回以突出显示单元格

---

您能否重新启动、执行此操作并检查问题是否仍然存在：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 3

End Sub

---

您能否重新启动、执行此操作并检查问题是否仍然存在：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 3

End Sub

---

您没有将边框应用于任何单元格的代码行。@Gary的学生我指的是我们单击单元格时得到的常用边框，上面附有屏幕截图。。您也没有选择任何单元格（将应用边框）的代码。@sady这听起来像是一个XL错误。你试过重新启动吗？（我不是开玩笑）@Vityata是的，我开过。我尝试关闭/重新打开excel工作表。您没有将边框应用于任何单元格的代码行。@Gary的学生我指的是我们单击单元格时得到的常用边框，上面附有屏幕截图。您也没有选择任何单元格的代码（将应用边框）@sady这听起来像是一个XL错误。你试过重新启动吗？（我不是开玩笑）@Vityata是的，我开过。我尝试关闭/重新打开excel工作表。使用上述代码。是的，单元格将高亮显示为红色，但不幸的是，这并不能解决我的问题。因为我的目的不是给单元格添加颜色。我知道，我只是认为SelectionChange事件被某种方式阻止了。使用上面的代码。是的，单元格将高亮显示为红色，但不幸的是，这并不能解决我的问题。因为我的目的不是给单元格添加颜色。我知道，我只是认为SelectionChange事件被某种方式阻止了。