Gleisom,

Boa tarde!

Fiz da seguinte forma:

1 - Assim que o arquivo é aberto o código procura por datas coincidentes com a data do dia em cada uma das abas. Se encontrar, colore a aba de vermelho. A partir desse momento (em que o arquivo fica aberto), o código passa a monitorar a cada 5 minutos (configurável pelo código. Você pode alterar para mais ou para menos tempo conforme a sua necessidade) todas as datas de todas as abas. Se encontrar uma que coincida com a data atual, colore a aba de vermelho.

Veja se é assim.

Considerei que os monitoramentos abrangeriam os eventos em que a pasta de trabalho é aberta, sempre que outra planilha da pasta for ativada, sempre que ocorrer inserção de dados manualmente ou sempre que ocorrer alteração por fórmula. Não considerei monitorar por intervalo de tempo.

Dependendo de como vai ficar seu projeto final (a cadeia de dependências), dá pra refinar e ser mais específico, reduzindo o tempo de processamento. Por exemplo, se na coluna das datas elas forem inseridas manualmente, daria pra dispensar o evento SheetCalculate. Se forem fórmulas que estarão ali, então o evento dispensável seria o SheetChange, e por aí vai.

Insira o código no container de eventos em nível de Workbook (EstaPastaDeTrabalho):

Private Sub Workbook_Open()
  MudaCorGuia
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  MudaCorGuia
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
  MudaCorGuia
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  MudaCorGuia
End Sub

Private Sub MudaCorGuia()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
    If ws.ListObjects.Count >= 1 Then
     If Application.CountIf(ws.ListObjects(1).ListColumns(1).DataBodyRange, Date) >= 1 Then
       ws.Tab.Color = vbRed
     Else
       ws.Tab.ColorIndex = xlNone
     End If
    End If
  Next ws
End Sub

Wagner, obrigado pela atenção e pela ajuda.

No caso dessa sua solução, caso eu aumentasse o tempo de verificação, haveria a possibilidade de associar essa verificação quando eu clicasse em qualquer célula, por exemplo?

Outra coisa, depois a que a guia muda de cor, quando excluo a(s) data(as) que desencadearam o comportamento, a cor não volta ao normal.

Edson, muito obrigado também pela atenção e pela ajuda.

Na sua solução eu consigo excluir a data que fez a cor da guia mudar e com isso voltar ao normal a cor da guia. Como essa planilha as vezes pode ficar aberta de um dia para o outro sem que ocorra qualquer alteração ou sem que interaja com ela, é possível adaptar o comportamento do código para que ele ocorra também em determinado intervalo de tempo? Ou seja, manter isso que você fez (está perfeito) e acrescentar a ideia do tempo igual o Wagner fez.

Outra coisa, percebi que quando insiro nova aba a mudança de cor só funciona até a terceira aba. Seria possível funcionar independentemente da quantidade de aba e levando em consideração inclusão/exclusão de guias?

OK. Problema da cor resolvido e agora, quando selecionar qualquer célula, o código é disparado a procura de datas iguais a data do dia, além de ainda está monitorando a cada 5 minutos.

Ok, no módulo do Workbook:

Private Sub Workbook_Open()
  usarTimer = True
  MudaCorGuia
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  usarTimer = False
  MudaCorGuia
  usarTimer = True
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
  usarTimer = False
  MudaCorGuia
  usarTimer = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  usarTimer = False
  MudaCorGuia
  usarTimer = True
End Sub
 

Num módulo comum:

 Public usarTimer As Boolean
 Sub MudaCorGuia()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
    If ws.ListObjects.Count >= 1 Then
     If Application.CountIf(ws.ListObjects(1).ListColumns(1).DataBodyRange, Date) >= 1 Then
       ws.Tab.Color = vbRed
     Else
       ws.Tab.ColorIndex = xlNone
     End If
    End If
  Next ws
  If usarTimer Then Application.OnTime Now + TimeValue("00:15:00"), "MudaCorGuia"
End Sub

Postado por: @gleisom

...percebi que quando insiro nova aba a mudança de cor só funciona até a terceira aba.

O código leva em conta todas as abas da planilha (For Each ws In ThisWorkbook.Worksheets) onde tem pelo menos uma tabela (If ws.ListObjects.Count >= 1), pois de acordo com seu 1º Post

Postado por: @gleisom

existe uma tabela em cada uma das três guias, em cuja coluna A constam algumas datas

Se ao invés de tabela vc for usar intervalo normal, aí o código teria que ser alterado. O amigo Wagner considerou intervalo, portanto poderia usar tranquilamente o código que ele escreveu ao invés deste.

Obs.: no código acima, a atualização ocorrerá à cada 15 minutos.

Show de bola, muito obrigado, vocês me ajudaram muito, agradeço de coração a atenção de vocês. Grande abraço!

@wagner-morel-vidal-nobre

Sabe me dizer como foi feito a delimitação do FILTRO da Coluna A até a Linha 8.

Eu percebi que na célula A8 no canto inferior direito existe um pontinho onde é o limitador do FILTRO.

@kaleo_rs

Bom dia!

Infelizmente, não sei.

Bom dia, @Kaleo_rs

O intervalo foi definido como uma Tabela (um ListObject), aqueles que normalmente são zebrados, por padrão em dois tons de azul. Talvez vc não tenha reconhecido pq foi escolhida como formatação "Nenhuma" para elas. Note que, se vc entrar em qualquer célula, aparece um menu de contexto "Tabela" na faixa de opções.

Postado por: @kaleo_rs

...Eu percebi que na célula A8 no canto inferior direito existe um pontinho onde é o limitador do FILTRO.

Aquela cantoneira no canto inferior direito é conhecida como "alça de redimensionamento", na realidade não tem função de filtro. Arrastando ela vc aumenta ou encolhe sua tabela.