Можно ли создать событие для формы VBA?

[segail]

Можно ли создать событие «Закрытие формы» в VBA Excel 2007, и какой код этого события.

[EducatedFool]

Такое событие уже создано:

Private Sub UserForm_Terminate()
    MsgBox "Форма закрывается..."
End Sub

Есть ещё кое-что:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then MsgBox "Форму закрыли крестиком"
    If CloseMode = 1 Then MsgBox "Форму закрыли программно - через Unload"

    ' Cancel=true ' отменяем закрытие
End Sub

[segail]

Не много не понял. Форма закрывается крестом по любому, а вы прописали действие или нет?

Например; Событие «Закрытие формы крестом» При создание события возникает действие «Закрытие таблицы Excel Книга1» Как это будет выглядеть в коде?

[EducatedFool]

Например, так:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Workbooks("Книга1.xls").Close
End Sub

Или так:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Close False    ' закрывает текущий файл без сохранения изменений
End Sub

[segail]

Понятно
Вы дали ссылку на сайт. Другие способы связи с вами нет?

[EducatedFool]

Другие способы связи с вами нет?

Со мной лучше вообще не связываться

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

Впрочем, есть ещё личные сообщения на форуме...

[segail]

Таблица по этому коду не закрывает, ошибки тоже нет???

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Workbooks("Книга1.xls").Close
End Sub
___________________________________ ____________________________
электронную почту не нашел

[EducatedFool]

Таблица по этому коду не закрывает, ошибки тоже нет???

Значит этот код вообще не запускается.
Его надо было вставить в модуль формы.

Будет пример файла - будет более подробный ответ.

[segail]

При событие (крест) (Alt+F4) происходит: зашита листа, таблица сохраняется (путь сохранения не надо) и закрывается все полностью.
При клике по кнопке "Выход" тоже самое.

[EducatedFool]

Вот весь код:

Private Sub CommandButton4_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    ActiveSheet.Unprotect
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ActiveSheet.Protect
    ThisWorkbook.Close True
End Sub

Пример во вложении: