选中和离开单元格时改变字体大小，工作表保护了会运行缓慢

qwwqExcel

选中A6时字体大小为11，颜色为黑，双击为空，方便输入其它字符，
离开A6时字体大小为36，颜色为灰，字符为“万事如意”，
功能是正常的，因为工作表是保护的，所以更改单元格需要解锁后再锁上，
但是会导致操作时光标转篮圈运行缓慢。
也想过用条件格式来做，但是条件格式只能改变字体的颜色，
字体功能是禁用的根本用不了，所以问下各位老师，
有没有不用解锁工作表再锁上能执行的方法，或者不用VBA的也可以

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Unprotect Password:="123" ' 解除工作表保护

    If Not Intersect(Target, Range("A6")) Is Nothing Then
        Range("A6").Font.Size = 11
        Range("A6").Font.Color = RGB(0, 0, 0) ' 设置字体颜色为黑色
    Else
        If Range("A6").Value = "" Or Range("A6").Value = "万事如意" Then
            Range("A6").Value = "万事如意"
            Range("A6").Font.Size = 36
            Range("A6").Font.Color = RGB(192, 192, 192) ' 设置字体颜色为灰色
        End If
    End If

    ActiveSheet.Protect Password:="123" ' 重新保护工作表
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A6")) Is Nothing Then
        If Range("A6").Value = "万事如意" Then
            Range("A6").Value = ""
        End If
    End If
End Sub

qwwqExcel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A6")) Is Nothing Then
        Application.EnableEvents = False ' 取消事件处理以避免自循环
        ActiveSheet.Unprotect Password:="123" ' 解除工作表保护

        If Range("A6").Value = "" Or Range("A6").Value = "万事如意" Then
            Range("A6").Value = "万事如意"
            Range("A6").Font.Size = 36
            Range("A6").Font.Color = RGB(192, 192, 192) ' 设置字体颜色为灰色
        Else
            Range("A6").Font.Size = 11
            Range("A6").Font.Color = RGB(0, 0, 0) ' 设置字体颜色为黑色
        End If

        ActiveSheet.Protect Password:="123" ' 重新保护工作表
        Application.EnableEvents = True ' 重新启用事件处理
    End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A6")) Is Nothing Then
        If Range("A6").Value <> "" And Range("A6").Value <> "万事如意" Then
            Exit Sub
        Else
            Application.EnableEvents = False
            Range("A6").Value = ""
            Application.EnableEvents = True
        End If
    End If
End Sub
我改了下操作其它单元格不会转蓝圈，运行也不慢了，只有离开A6单元格才会转篮圈，如果各位老师有更好的方法就告知我下，谢谢！