Realce de cor em célula ativa

Alguém sabe como alterar o realce da célula ativa, borda, para também o fundo.

Ou através de macro…

@Gilberto Shiavinatto não consegui entender o que precisa. Precisa alterar a cor, borda de uma célula ativa conforme alguma condição? Formatação Condicional não ajuda?

Ola @Conras, a célula ativa sempre fica com a borda realçada e o número da linha e a letra da coluna, certo.

Gostaria de ter a opção de também o fundo da célula ficar de cor escolhida.

Ou seja na imagem acima a célula C9 é atualmente como fica a célula ativa, aparece a borda, gostaria que ficasse como em E9, aparecesse a borda e fundo.

Tenho esta macro:

Sub cellaattiva(Target) 
On Error Resume Next 
OldCell.IsCellBackgroundTransparent = true
Target.CellBackColor = RGB(194,224,174)
OldCell = Target
End Sub

que faz parcialmente, ela pinta a fundo qdo ativa, porem não tira quando o foco sai dela.

Ela esta ligada a Eventos de planilha / Seleção alterada.

E se vc mudasse o código da linha 3

OldCell.IsCellBackgroundTransparent = true

– por esse código:

OldCell.CellBackColor = RGB(255,255,255)

@mrkalvin , infelizmente não resolveu…

Segue arquivo teste…|attachment

@Gilberto Schiavinatto

Teste este

Sub ChangeCellColor
oSel = ThisComponent.CurrentSelection(0)
If oSel.supportsService("com.sun.star.sheet.SheetCell") Then
   CurrentColor = oSel.CellBackColor
   If CurrentColor = -1 Then
   		oSel.CellBackColor = RGB(194,224,174)
   else
   		oSel.CellBackColor = -1
End if
End if
End Sub

Pode deixar com o Evento Seleção Alterada, mas para mudar de cor, precisa clicar uma segunda vez.

@Conras, já havia chegado nesta solução, obrigado.

Mas encontrei uma saída… vide Resposta

@mrkalvin, @Conras cheguei em uma solução alternativa…

usei formatação condicional:

A formula é: OU(A1="";A1<>""), colocar SemFundo (Fundo transparente), em conjunto com a macro:

Sub cellaattiva(Target) 
Target.CellBackColor = RGB(194,224,174)
OldCell = Target
End Sub

A célula fica colorida qdo inicia a digitação, ao dar Enter volta a ser transparente.

Coloquei a Condicional, em A1 para copiar onde necessária, pois existem células coloridas por outro motivo, se fosse a Condicional para a planilha toda não teria como colorir qualquer célula.

Arquivo teste2…|attachment

Não é o ideal, mas ficou mais próximo, continuo aceitando sugestão.