Проблема с range.interior.color в листе, отличном от активного - PullRequest
0 голосов
/ 04 мая 2020

У меня проблема при использовании 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

Может ли кто-нибудь объяснить причины?

Спасибо

Витор Перейра

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...