Макрос по OptionButton

[robotov]

Попробовал сам - не получается
Поможете?
Возсожно, это совсем просто - но я не знаю - как это сделать, с какой стороны подступиться...

Есть файл, который при закрытии записывает себя в другую директорию.
Хочу установить (на "sheet2" ) радионопки, которые бы говорили файлу- записывать себя или нет.

Последовательность действий.
1.Открываем файл.
2.Работаем с ним.
3. ЗАкрываем
3.1 Если Радиокнопка установлена на "ДА" то отрабатывают макросы, которые работали без кнопки. (Они записаны на ThisWorkbook)
3.2 Если Радиокнопка установлена на "НЕТ" -то файл просто закрывается (не спрашивая перезаписать себя или нет).

И еще одна кнопка - Сброс. При нажатии на нее файл как-бы переоткрывается. То есть отрабатывают макросы при закрытии (как будто Радиокнопка установлена на - "ДА" ), а затем отрабатывают макросы, которые работают при открытии файла.

Файл прилагается.
Заранее спасибо)

[EducatedFool]

То есть отрабатывают макросы при закрытии (как будто Радиокнопка установлена на - "ДА" ), а затем отрабатывают макросы, которые работают при открытии файла

Так не получится.
При закрытии книги сработает макрос DelAll, который удалит весь код VBA из файла.
После этого уже никакие макросы не отработают, ибо их уже нет.

3.1 Если Радиокнопка установлена на "ДА" то отрабатывают макросы, которые работали без кнопки. (Они записаны на ThisWorkbook)
3.2 Если Радиокнопка установлена на "НЕТ" -то файл просто закрывается (не спрашивая перезаписать себя или нет).

Попробуйте что-то вроде этого:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Sheet2.OptionButton1 Then    ' Запись = ДА
        DelAll
        ThisWorkbook.SaveAs "C:\Documents and Settings\ev\My Documents\Zakazi\Z_" & Sheets("Sheet2").Cells(1, 4) & ".xls"
        Application.Quit
    Else    ' Запись = НЕТ
        ThisWorkbook.Saved = True
        ThisWorkbook.Close False    ' закрываем без сохранения
    End If
End Sub

[robotov]

О. Спасибо. Меня подвел синтаксис.
Я пробовал так, только вместо "If Sheet2.OptionButton1 Then... " писал просто "If OptionButton1 Then". Не учел Sheet.

Насчет первого вопроса.
При закрытии очищаются макросы нового файла а не этого. Этот просто закрывается. Происходит как бы переоткрытие файла. Можно ли штатными средствами переоткрыть файл, чтобы excel об этом не спрашивал?. Типа при нажатии кнопки "сброс" файл закрывается и снова открывается, но не спрашивает "переоткрыть?"