Acompanhamento de alterações em um documento do Excel compartilhado

0

Eu tenho uma planilha do Excel compartilhada por vários usuários. Nós usamos vlookup para inserir dados atualizados na planilha, para que todos os usuários saibam o que mudou. Gostaríamos de ter qualquer célula que tenha sido alterada em amarelo com fonte vermelha.

eu tenho este código isso funciona, mas não sei como adicionar preenchimento amarelo ao código:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim ws As Worksheet, ws2 As Worksheet 
    Dim i As Boolean Application.ScreenUpdating = False 'Create Change Log if one does not exist. 
    i = False 
    For Each ws In ThisWorkbook.Worksheets 
        If ws.Name = "Change Log" Then
            i = True 
            Exit For 
        End If 
    Next ws 

    If Not i Then Set ws2 = ThisWorkbook.Worksheets.Add 
        ws2.Visible = xlSheetHidden 
        ws2.Name = "Change Log" 
        ws2.Range("A1") = "Sheet" 
        ws2.Range("B1") = "Range" 
        ws2.Range("C1") = "Old Text Color" 
    Else Set ws2 = Sheets("Change Log") 
    End If 'Store previous color data in change log for rollback. 

    ws2.Range("A1").Offset(ws2.UsedRange.Rows.Count, 0) = Target.Worksheet.Name     
    ws2.Range("B1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Address 
    ws2.Range("C1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Font.Color 'Change font color to red.
    Target.Font.Color = 255 
    Application.ScreenUpdating = True 
End Sub 
Nina
fonte

Respostas:

0

Você já tentou o seguinte?

With .Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 65535
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

Aplicando-o ao seu alcance, claro.

Nicolas C.
fonte
0

Adicione isto abaixo Target.Font.Color=255:

Target.Interior.Color = 65535

Se você estiver usando o recurso de reversão da postagem original, algumas modificações adicionais serão necessárias para armazenar o histórico de cores de preenchimento da célula, para que os preenchimentos possam ser revertidos. Deixe-me saber se isso é algo que você gostaria de usar e tentarei postar uma versão modificada do código.

Excellll
fonte