событие удаление листа

[tae1980]

Необходимо отловить событие удаление листа в любой отрытой книге. Имеем класс описывающий объект Application With Events. Как всегда есть событие WorkbookNewSheet, а события удаления листа нет.
В инете удалось найти:

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    'MenuSheet - это лист у меня в книге, где хранится вся информация для меню и т.п.
        Sheets("MenuSheet").Range("H10") = Sh.Name
        prev_sheet = Sheets("MenuSheet").Range("I10")
        On Error GoTo er_str
        a = Sheets(prev_sheet).Range("A1")
    er_str:
        If Err.Number = 9 Then
            MsgBox ("Удален лист: " & Sheets("MenuSheet").Range("I10"))
                  
        End If
    End Sub
     
    Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
        Sheets("MenuSheet").Range("I10") = Sh.Name
    End Sub

Здесь используют для хранения имени листа ячейку, что не сложно изменить...
Хотелось бы знать какой метод используют гуру.

[R Dmitry]

Сообщение от tae1980

Необходимо отловить событие удаление листа в любой отрытой книге. Имеем класс описывающий объект Application With Events. Как всегда есть событие WorkbookNewSheet, а события удаления листа нет.
В инете удалось найти:

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    'MenuSheet - это лист у меня в книге, где хранится вся информация для меню и т.п.
        Sheets("MenuSheet").Range("H10") = Sh.Name
        prev_sheet = Sheets("MenuSheet").Range("I10")
        On Error GoTo er_str
        a = Sheets(prev_sheet).Range("A1")
    er_str:
        If Err.Number = 9 Then
            MsgBox ("Удален лист: " & Sheets("MenuSheet").Range("I10"))
                  
        End If
    End Sub
     
    Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
        Sheets("MenuSheet").Range("I10") = Sh.Name
    End Sub

Здесь используют для хранения имени листа ячейку, что не сложно изменить...
Хотелось бы знать какой метод используют гуру.

Я бы наверное использовал глобальную коллекцию, или массив или еще чего нибудь, при открытии книги заполнял бы, при добавлении листа добавлял бы туда имя или еще чего . Затем при де активации сравнил бы коллекцию на наличие.

Ни разу не проверял, но сделал бы так.

[kuklp]

Сообщение от tae1980

Хотелось бы знать какой метод используют гуру.

Посмотреть бы на того невменяемого гуру, который удаляя лист не знал бы об этом. Жутко интересно - зачем? Легко проверить наличие листа. Листы удаляют обычно, по причине. Допустим, удалили случайно. И тут есть возможность при закрытии книги проверить наличие и закрыть не сохраняя. Другого способа восстановить лист нет. Разработчики тоже посчитали ввод такого события ненужным. И все же - зачем? Недавно обсуждали отлов события переименования листа(кстати, так же можно отследить и удаление). Я так и не понял зачем

[tae1980]

Сообщение от kuklp

Посмотреть бы на того невменяемого гуру, который удаляя лист не знал бы об этом. Жутко интересно - зачем? Легко проверить наличие листа. Листы удаляют обычно, по причине. Допустим, удалили случайно. И тут есть возможность при закрытии книги проверить наличие и закрыть не сохраняя. Другого способа восстановить лист нет. Разработчики тоже посчитали ввод такого события ненужным. И все же - зачем? Недавно обсуждали отлов события переименования листа(кстати, так же можно отследить и удаление). Я так и не понял зачем

Отслеживать действия пользователя. Есть много путей сделать одно и то же действие, и гораздо проще отследить само действие, чем контролировать кучу мало понятны и могущих измениться мест.
Кроме того очень удобно делать через события "обязательные" действия. Например: у меня лист может быть создан разными макросами в разных условиях. Мне приходилось так или иначе прописывать обязательные действия во всех макросах. Так же были проблемы при изменении "обязательных" действий
При перехода на работу с классом описывающий объект Application With Events, появилась возможность всю работу переложить на событие создания книги. Теперь я во всех макросах убрал целые куски кода, и многие проблемы сразу пропали.
То же само я хотел проделать и с удалением листа. На текущий момент частично решило задачу использование метода SheetActivate, который так же срабатывает при удаление листа. Но далеко не во всех ситуациях его достаточно.

[kuklp]

Алексей, думаете понятней стало? Ничуть. Отследили удаление и что? Какой нужен результат? Лист-то не восстановить. А если отслеживать ВСЕ действия пользователя? Это какая программа получится?

[tae1980]

Сообщение от R Dmitry

Я бы наверное использовал глобальную коллекцию, или массив или еще чего нибудь, при открытии книги заполнял бы, при добавлении листа добавлял бы туда имя или еще чего . Затем при де активации сравнил бы коллекцию на наличие.
Ни разу не проверял, но сделал бы так.

Я не думаю что стоит хранить названия листов, ведь в данном случае нужно отследить факт удаления листа, а не то какой лист был удален. Пока достаточно хранить для каждой книге количество листов. И если при событие SheetActivate оно больше, чем текущее кол-во листов, то значит один из листов был удален. А названия листов если нужно, я бы хранил в строковой переменной через разделитель. Очень простой и эффективный метод, работающий почти во всех языках программирования, то если когда нибудь придется переносить код - работы будет меньше.

[tae1980]

Сообщение от kuklp

Алексей, думаете понятней стало? Ничуть. Отследили удаление и что? Какой нужен результат? Лист-то не восстановить.

А за чем его восстанавливать? Мне просто нужен сам факт удаления листа. На это у меня завязано значение нескольких переменных, которые нужно изменить, а так же нужно выполнить одно стандартное действие.

Сообщение от kuklp

А если отслеживать ВСЕ действия пользователя? Это какая программа получится?

Программист так или иначе остуживает ВСЕ действия пользователя, не нужно заблуждаться. Я писал на ассме для спекки, так вот там действительно отслеживал ВСЕ действия пользователя (в том числе несколько интерфейсов, один из них даже был объектно ориентирован :). Как видишь не умер. И программы весьма успешно ДО СИХ ПОР работают. Просто на современном уровне львиную долю работы на себя берет ОС. Мне же нужны не ВСЕ действия пользователя, а весьма ограниченный набор.

[R Dmitry]

Сообщение от tae1980

Я не думаю что стоит хранить названия листов, ведь в данном случае нужно отследить факт удаления листа, а не то какой лист был удален. .....................

можно добавить, а затем удалить и вы не узнаете что он был удален.
я не зря упомянул "или еще чего", под еще чего я подразумевал CodeName которое не доступно для обычного пользователя.
А как хранить информацию выбор за вами.

[tae1980]

Сообщение от R Dmitry

можно добавить, а затем удалить и вы не узнаете что он был удален.
я не зря упомянул "или еще чего", под еще чего я подразумевал CodeName которое не доступно для обычного пользователя.
А как хранить информацию выбор за вами.

CodeName имя у меня используется не по значению. )
Разумеется при добавления листа, необходим увеличивать счетчик листов и т.п. Но это уж чисто техническая задача и я не думаю что на ней стоит заострять внимание.