У меня проблема при использовании Range.Interior.Color на листе, отличном от активного.
Этот код ниже сообщает об ошибке 1004 в строке, где применяется цвет интерьера:
For IAba = 1 To NumAbas
NumLinhas = Worksheets(IAba).UsedRange.Rows.Count
NumColunas = Worksheets(IAba).UsedRange.Columns.Count
Worksheets(IAba).Unprotect (MyPass1)
Worksheets(IAba).Range(Cells(LinCCO_IN, 1), Cells(NumLinhas, NumColunas)).Interior.Color = CorInterna
Worksheets(IAba).Protect (MyPass1)
Next
Когда я ссылаюсь на активный Рабочий лист, он работает.
For IAba = 1 To NumAbas
Worksheets(IAba).Activate
NumLinhas = Worksheets(IAba).UsedRange.Rows.Count
NumColunas = Worksheets(IAba).UsedRange.Columns.Count
ActiveSheet.Unprotect (MyPass1)
ActiveSheet.Range(Cells(LinCCO_IN, 1), Cells(NumLinhas, NumColunas)).Interior.Color = CorInterna
ActiveSheet.Protect (MyPass1)
Next
Может ли кто-нибудь объяснить причины?
Спасибо
Витор Перейра