Удалить уcловное форматирование не снимая защиту с листа

[Poltava]

Устанавливаю на лист защиту

Код Выделить Развернуть

ActiveSheet.Protect Password:="1", UserInterfaceOnly:=True
Затем пытаюсь удалить с листа ВСЕ условное_форматирование

Код Выделить Развернуть

ActiveSheet.Cells.FormatConditions.Delete
Но код вылетает с ошибкой потому что не может удалить форматирование на защищенном листе.  Мне кажется что снимать защиту удалять форматирование и ставить защиту обратно это не по феншую, защищая лист UserInterfaceOnly я думал что макросам будет разрешено все, отсюдова вопрос есть ли способы удалить УФ не снимая защиты?

[kuklp]

Poltava, пример давайте. У меня все удаляет.

[Poltava]

Poltava, пример давайте. У меня все удаляет.

Вы все правильно поняли Ваш пример именно такой как нужно  Сейчас оказалось что это происходит только в 2007 офисе! в 2003 ваш пример и в правду работает! Вот теперь у меня вопрос это глюк или так и задумано!

[kuklp]

Действительно и в 2007 и в 2010 так не катит. Попробуйте:
ActiveSheet.Protect Password:="1", Scenarios:=0, UserInterfaceOnly:=True

[Poltava]

Нет не помогло! Мне вот интересно зачем так задумано или просто шутит майкрософт так?

[kuklp]

Мелкие никогда особо не заморачивались совместимостью своих продуктов. К сожалению.
По теме - делайте топором. Сняли защиту, удалили УФ, поставили защиту.

[Poltava]

Да спасибо так и сделал!