{quote}{login=Kindness}{date=13.10.2009 09:19}{thema=Закрыть форму не крестиком, а другой кнопкой}{post}Подскажите, пожалуйста, как закрыть форму не крестиком, а другой кнопкой.  
 
См. файл

> Вот подумал тут повесить обработчик на BeeforeClose:  
> ...  
> Как бы это реализовать?  
 
 
Внимательно посмотрите на первую строку обработчика события:  
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
 
Как Вы думаете, зачем в эту процедуру передаётся переменная Cancel ("отмена")?  
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
   If Sheets("имяЛиста").Range("A1").Value <> "Добро" Then  
       MsgBox ("Воспользуйтесь такой-то кнопкой")  
       Cancel = True  
   End If  
End Sub