Sự kiện thay đổi định dạng cho VBA Excel

Tôi đang cố gắng ngăn mọi người sửa đổi (hầu hết) bảng tính của mình trong khi vẫn cho phép họ sử dụng chức năng sắp xếp của Trình lọc tự động. Những gì tôi đã làm cho đến nay được sử dụng sự kiện Worksheet_Change và Application.Undo để tự động hoàn tác mọi giá trị được nhập vào các ô mà tôi không muốn sửa đổi. Điều này hoạt động rất tốt, ngoại trừ việc nó không thể phát hiện các thay đổi trong định dạng. Có ai biết một phương tiện để kích hoạt một sự kiện khi định dạng (màu văn bản / màu nền) của một ô bị thay đổi không?

Cảm ơn!

Các sự kiện bạn bị giới hạn ở cấp độ bảng tính như sau:

Activate
BeforeDoubleClick
BeforeRightClick
Calculate
Change
Deactivate
FollowHyperLink
PivotTableUpdate
SelectionChange

Tôi cho rằng bạn có thể thử một cái gì đó tại sự kiện SelectionChange. Nếu ai đó thay đổi định dạng của một ô và sau đó di chuyển đến một ô khác thì sự kiện đó sẽ được gọi.

Bất cứ mã nào bạn có trong khu vực đó sẽ liên tục được gọi, vì vậy sẽ là một ý tưởng tốt để mở đầu mọi việc bạn làm với một số kiểm tra nhanh để đảm bảo các ô nằm trong một phạm vi nhất định, có dữ liệu, v.v. mặt khác khi người dùng chuyển từ tế bào này sang tế bào khác.

tôi thấy nó khá đơn giản:

Tại ThisWorkbook:

Public Sub Workbook_Open()
Set SelectLast = Range("A1")
SelectVal = Range("A1").Value
SelectColor = Range("A1").Interior.Color
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim LastVal As String
Dim LastColor As String
LastVal = ""
LastColor = ""
For i = 1 To SelectLast.Columns.Count
    For y = 1 To SelectLast.Rows.Count
        LastVal = LastVal & SelectLast.Cells(y, i).Value
        LastColor = LastColor & SelectLast.Interior.Color
    Next
Next
If ((LastVal <> SelectVal) Or (LastColor <> SelectColor)) Then MsgBox ("Something happend")
SelectVal = ""
SelectColor = ""
For i = 1 To Target.Columns.Count
    For y = 1 To Target.Rows.Count
        SelectVal = SelectVal & Target.Cells(y, i).Value
        SelectColor = SelectColor & Target.Interior.Color
    Next
Next
Set SelectLast = Target
End Sub

và tại Module1

Global SelectLast As Excel.Range
Global SelectVal As String
Global SelectColor As String

Nó có thể xem bất cứ điều gì với sửa đổi nhỏ.