> проблема в том, что вызов процедуры происходит с самого удаляемого листа
Нет. Проблема в том, что удаляется лист с кодом. Если создать на форме кнопку с кодом для удаления текущего листа:
1.
2.
3.
4.
5.
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
и удалять листы без кода, все нормально. Но как только удаляешь лист с кнопкой - форма пропадает.
> Если б хотя бы существовало событие у книги типа Workbook_SheetDelete, можно было бы туда повторное отображение формы вставить...
Не получается. Я пробовал в коде книги отслеживать число листов, и при уменьшении числа (лист удален) вызывать процедуру отображения формы из Лист1 (ее сделал Public)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim numSheets&
Private Sub Workbook_Open()
numSheets = Sheets.Count
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Stop
DoEvents
If numSheets > Sheets.Count Then Лист1.CheckBox2_Click
numSheets = Sheets.Count
End Sub
Но при удалении листа с кнопкой код просто не выполняется.
Кстати, почему бы не сделать кнопку удаления на форме, а из листов код убрать?
