Определить наличие скрытых столбцов на защищенном листе

Пользователь

Сообщений: 80 Регистрация: 18.07.2023

29.11.2023 12:36:49

Что-то туплю.
На незащищенном листе можно проверить так:

Код
if sht.Rows(1).SpecialCells(xlCellTypeVisible).Count <> sht.Rows(1).Cells.Count Then

а на защищенном листе в этом месте происходит run-time error 1004.

Перебирать все столбцы листа кажется не самым оптимальным решением. Тем более, что скрытый столбец никак не влияет на UsedRange, то есть перебирать надо все сколько-то-там-тысяч-столбцов. Дальше мысль не идет)

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 15028 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

29.11.2023 14:02:17

Метод SpecialCells не работает на защищенных листах. Это я еще здесь описывал(вместе с другими "косяками"): Глюк работы в UDF методов SpecialCells и FindNext
По сути там же есть упоминание как обойти: либо снимать защиту, либо применять защиту с UserInterfaceOnly(что тоже имеет свои нюансы). Других вариантов нет(если только нет желания разгребать XML-схему файла и искать там признаки скрытых строк и столбцов).

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

dhead Пользователь Сообщений: 80 Регистрация: 18.07.2023	#3 29.11.2023 14:45:59 Дмитрий(The_Prist) Щербаков, спасибо, понял. Значит не так уж и туплю) Тогда в моем конкретном случае придется прошерстить столбцы на листах.