|
|
Hola, WorldHunter!
Efectivamente, MS Excel no permite esa acción en una hoja protegida, por lo tanto la forma de resolverlo es hacer que la macro desproteja la hoja, modifique la celda, y restituya la protección.
En tal caso tu código sería:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect "TUCLAVE"
If Range("D11") > 0 Then
Range("E11").Interior.ColorIndex = 15
Else
Range("E11").Interior.ColorIndex = xlColorIndexNone
End If
ActiveSheet.Protect "TUCLAVE" 'DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Bien. En otro orden de cosas, revisaría si el evento correcto es Selección change, ya que estaría ejecutando esta macro cada vez que cambies de celda.
Desde luego que esto depende de lo que quieras hacer pero, me parece que lo correcto sería controlar que si cambió la celda que dispara el cambio de formato (D11) de la celda E11
Si estás de acuerdo usa el evento Change o Calculate con la macro sugerida anteriormente.
Espero que esto te sea útil.
Un abrazo!
Fernando
|