Как снять защиту листа на нажатие уровня структуры

@wertt · Регистрация: 25.02.2010

Author24 — интернет-сервис помощи студентам

Есть такая проблемка, к сожалению не знаю как ее решить. Может кто знает.

@SlavaRus · 16.08.2010, 10:45

По моему при щелчке на уровне структуры не генеритс событие. Поэтому если и можно как то зацепиться, то только выворасиванием рук.

@vlth · 16.08.2010, 14:17

Такое предложение:
Создать на листе свои кнопки, управляющие отображением уровней структуры
и защитой листа, а отображение значков структуры скрыть.

ActiveWindow.DisplayOutline = False'скрываем значки
Worksheets(1).Outline _
.ShowLevels rowLevels:=3, columnLevels:=1'управляем отображением уровней структуры

@SlavaRus · 16.08.2010, 17:14

Чтобы было о чем потрещать закину мысль, правда не очень путевую.
Строил я тут на днях диаграммы и заметил, что у внедренной на лист диаграммы событие Calculate возникает при скрытии/отображении строк/столбцов причем даже если они пустые. В принципе это можно использовать для генерации события нажатия на кнопку структуры.
??? Жду ответов.

@Serg61 · 16.08.2010, 22:40

http://rsdn.ru/Forum/?mid=519858

@wertt · 17.08.2010, 11:24 **[ТС]**

Зашел я на эту ссыллку, честно ничего не понял.
Куда эти строчки нужно записывать?

ActiveSheet.EnableOutlining = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True

@vlth · 17.08.2010, 16:34

2SlavaRus:
Проверил - верно. Но(!) событие Calculate генерируется в описанных
тобой случаях лишь при последующей активизации листа диаграммы.
Т.е. если этот лист скрыть (сделать это, наверное, необходимо,
поскольку он вспомогательный),то ничего и не произойдёт. А активировать
лист (если он не скрыт) как? - вручную? Или я чего-то не понимаю?

Сдаётся мне, что это замена шила на мыло. Или я ошибаюсь?

@SlavaRus · 17.08.2010, 17:53

Я написал <у внедренной на лист диаграммы>. Причем если на лист внедрить ComboBox, то событие Change генерится до изменения на листе, а в Chart после.

@SlavaRus · 17.08.2010, 17:59

Я не писал, что это хорошее решение, скорее возможность сгенерить событие _Click

@vlth · 17.08.2010, 18:41

> Я написал <у внедренной на лист диаграммы>.

Вот я и говорю, что не понимаю, как и где у такой диаграммы
пишется код её событий: для диаграммы на отдельном листе -
очевидно где, а для внедрённой???

@vlth · 17.08.2010, 18:49

> Я не писал, что это хорошее решение, скорее возможность сгенерить событие _Click

Абсолютно согласен.

@vlth · 17.08.2010, 19:38

< Зашел я на эту ссыллку, честно ничего не понял.
Куда эти строчки нужно записывать?>

Куда угодно.
Выполни этот код, когда твой лист будет активен (1 раз!), и всё заработает.

@SlavaRus · 18.08.2010, 09:18

from vlth
В модуле класса пишем:

Public WithEvents MyChart As Chart

Private Sub MyChart_Calculate()
MsgBox 'Опс!'
End Sub

В модуле пишем:

Dim MyChartEvent As New Class1

Public Sub SartEvent()
Set MyChartEvent.MyChart = Worksheets(1).ChartObjects(1).Chart
End Sub

Подразумевается, что диаграмма на листе есть.
Дальше мне кажется просто можно написать в молуле класса
Public Event MyEvent()
В событии MyChart_Calculate после соответствующих проверок написать
if ... then RaiseEvent MyEvent
И в принципе событие готово!

))

@vlth · 18.08.2010, 12:59

For SlavaRus:
Спасибо!
Несмотря на понимание, что без создания класса здесь не обойтись, при
отсутствии опыта подобной работы (не написал я ещё ни одного такого
модуля), решил уточнить

@SlavaRus · 18.08.2010, 14:58

From vlth
Аналогичным образом можно повеситься например на событие Click кнопки в каком нибудь CommandBars и перехватить его, тоже ьывает полезно. Плохо, что в ёлселе скрытие/отображение строк/столбцов не генерит никакого события. Если в ячейке введена формула '=ЯЧЕЙКА('ширина';A1)', то при скрытии 1столбца в ячейке будет неверное значение до следующего пересчета листа. В своё время это у меня отняло уйму времени.

А теперь чисто случайно подметил особенность у диаграм. Может быть кому то будет полезно. Кстати событие ради спортивного интереса я все таки написал, но для одного уровня структкры. Дальше лень...

)

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

@wertt 0 / 0 / 0 Регистрация: 25.02.2010 Сообщений: 86

	Как снять защиту листа на нажатие уровня структуры 15.08.2010, 13:22. Показов 2876. Ответов 14 Метки нет (Все метки) Есть такая проблемка, к сожалению не знаю как ее решить. Может кто знает. 0

@SlavaRus 1123 / 235 / 37 Регистрация: 15.03.2010 Сообщений: 724
	16.08.2010, 10:45
	По моему при щелчке на уровне структуры не генеритс событие. Поэтому если и можно как то зацепиться, то только выворасиванием рук. 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	16.08.2010, 14:17
	Такое предложение: Создать на листе свои кнопки, управляющие отображением уровней структуры и защитой листа, а отображение значков структуры скрыть. ActiveWindow.DisplayOutline = False'скрываем значки Worksheets(1).Outline _ .ShowLevels rowLevels:=3, columnLevels:=1'управляем отображением уровней структуры 0

@SlavaRus 1123 / 235 / 37 Регистрация: 15.03.2010 Сообщений: 724
	16.08.2010, 17:14
	Чтобы было о чем потрещать закину мысль, правда не очень путевую. Строил я тут на днях диаграммы и заметил, что у внедренной на лист диаграммы событие Calculate возникает при скрытии/отображении строк/столбцов причем даже если они пустые. В принципе это можно использовать для генерации события нажатия на кнопку структуры. ??? Жду ответов. 0

@Serg61 0 / 0 / 0 Регистрация: 31.01.2008 Сообщений: 72
	16.08.2010, 22:40
	http://rsdn.ru/Forum/?mid=519858 0

@wertt 0 / 0 / 0 Регистрация: 25.02.2010 Сообщений: 86
	17.08.2010, 11:24 [ТС]
	Зашел я на эту ссыллку, честно ничего не понял. Куда эти строчки нужно записывать? ActiveSheet.EnableOutlining = True ActiveSheet.Protect contents:=True, userInterfaceOnly:=True 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	17.08.2010, 16:34
	2SlavaRus: Проверил - верно. Но(!) событие Calculate генерируется в описанных тобой случаях лишь при последующей активизации листа диаграммы. Т.е. если этот лист скрыть (сделать это, наверное, необходимо, поскольку он вспомогательный),то ничего и не произойдёт. А активировать лист (если он не скрыт) как? - вручную? Или я чего-то не понимаю? Сдаётся мне, что это замена шила на мыло. Или я ошибаюсь? 0

@SlavaRus 1123 / 235 / 37 Регистрация: 15.03.2010 Сообщений: 724
	17.08.2010, 17:53
	Я написал <у внедренной на лист диаграммы>. Причем если на лист внедрить ComboBox, то событие Change генерится до изменения на листе, а в Chart после. 0

@SlavaRus 1123 / 235 / 37 Регистрация: 15.03.2010 Сообщений: 724
	17.08.2010, 17:59
	Я не писал, что это хорошее решение, скорее возможность сгенерить событие _Click 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	17.08.2010, 18:41
	> Я написал <у внедренной на лист диаграммы>. Вот я и говорю, что не понимаю, как и где у такой диаграммы пишется код её событий: для диаграммы на отдельном листе - очевидно где, а для внедрённой??? 0

Опции темы

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	17.08.2010, 18:49
	> Я не писал, что это хорошее решение, скорее возможность сгенерить событие _Click Абсолютно согласен. 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	17.08.2010, 19:38
	< Зашел я на эту ссыллку, честно ничего не понял. Куда эти строчки нужно записывать?> Куда угодно. Выполни этот код, когда твой лист будет активен (1 раз!), и всё заработает. 0

@SlavaRus 1123 / 235 / 37 Регистрация: 15.03.2010 Сообщений: 724
	18.08.2010, 09:18
	from vlth В модуле класса пишем: Public WithEvents MyChart As Chart Private Sub MyChart_Calculate() MsgBox 'Опс!' End Sub В модуле пишем: Dim MyChartEvent As New Class1 Public Sub SartEvent() Set MyChartEvent.MyChart = Worksheets(1).ChartObjects(1).Chart End Sub Подразумевается, что диаграмма на листе есть. Дальше мне кажется просто можно написать в молуле класса Public Event MyEvent() В событии MyChart_Calculate после соответствующих проверок написать if ... then RaiseEvent MyEvent И в принципе событие готово! )) 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	18.08.2010, 12:59
	For SlavaRus: Спасибо! Несмотря на понимание, что без создания класса здесь не обойтись, при отсутствии опыта подобной работы (не написал я ещё ни одного такого модуля), решил уточнить 0

@SlavaRus 1123 / 235 / 37 Регистрация: 15.03.2010 Сообщений: 724
	18.08.2010, 14:58
	From vlth Аналогичным образом можно повеситься например на событие Click кнопки в каком нибудь CommandBars и перехватить его, тоже ьывает полезно. Плохо, что в ёлселе скрытие/отображение строк/столбцов не генерит никакого события. Если в ячейке введена формула '=ЯЧЕЙКА('ширина';A1)', то при скрытии 1столбца в ячейке будет неверное значение до следующего пересчета листа. В своё время это у меня отняло уйму времени. А теперь чисто случайно подметил особенность у диаграм. Может быть кому то будет полезно. Кстати событие ради спортивного интереса я все таки написал, но для одного уровня структкры. Дальше лень... ) 0