Сделать так, чтобы при закрытии книги удалялась кнопка

@RSM20065 · Регистрация: 26.07.2012

Author24 — интернет-сервис помощи студентам

Добрый день!

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

Суть: макрос написан так, что при открытии книги создается кнопка, при нажатии которой выполняется основная программа (физически поставить постоянную кнопку нельзя, так как пишу программу, которую потом включат в большой блок и попросили сделать так,чтобы всё происходило именно программно).

При первом открытии книги всё было нормально. При последующих открытиях каждый раз создаются кнопки, причем что логично, название они уже имеют не CommandButton1 (на которую повешено выполнение программы), а CommandButton2, 3 и т.д. Естественно, новые кнопки не срабатывают и чтобы запустить программу приходится удалять все лишние и добираться до CommandButton1.

Как можно программно сделать так,чтобы при закрытии книги эта кнопка удалялась? Тогда при открытии она снова будет появляться, срабатывать и потом опять удаляться. И так столько раз, сколько необходимо. Отдельно макрос на удаление кнопок с листа есть, и он рабочий:

Visual Basic

Sub Udalenie ()
For Each x In ThisWorkbook.Worksheets("База").OLEObjects
  If x.progID = "Forms.CommandButton.1" Then x.Delete
Next
End Sub

или проще:

Visual Basic

1
2
3

Sub RRR()
Worksheets("Лист1").Shapes("CommandButton1").Delete
End Sub

Но вот повесить его на закрытие книги не получается.

Помогите, пожалуйста.

@Казанский · 06.08.2012, 14:56

А Вам удалось выполнить хоть какие-нибудь действия при закрытии книги? Хотя бы MsgBox?
Процедуры называются по другому:

Visual Basic

1 2	[Private] Sub auto_close() 'в обычном модуле [Private] Sub Workbook_BeforeClose(Cancel As Boolean) 'в модуле книги

@RSM20065 · 06.08.2012, 15:12 **[ТС]**

Большое Вам спасибо за быстрый и полезный ответ!!!

В модуле заработал auto_close. В книге почему-то BeforeClose(Cancel As Boolean) не хочет. И еще минус - всё работает, только если на выскакивающий при закрытии книги вопрос "Сохранить изменения?" отвечать "Да". Если выбираешь "нет" - опять новая лишняя кнопка, старая не удаляется.

@izvne · 06.08.2012, 15:27

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

И еще минус - всё работает, только если на выскакивающий при закрытии книги вопрос "Сохранить изменения?" отвечать "Да". Если выбираешь "нет" - опять новая лишняя кнопка, старая не удаляется.

Ведь это логично, да? ))

Чтобы сохранял без вопросов при закрытии:

Visual Basic

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
    Excel.Application.Quit
End Sub

@RSM20065 · 07.08.2012, 08:05 **[ТС]**

Да, всё очень логично)) И крутилась я вокруг этих команд всё это время, и так и сяк пробовала, а потом глаз замылился и всё, ступор))) Спасибо!!

@kuklp · 07.08.2012, 09:15

При открытии неплохо бы проверять наличие кнопки. И удалять, или не создавать новую. Тогда не понадобится принудительного сохранения, которое само по себе иногда очень вредно. Накосячил в файле - закрыл без сохранения. А так молча сохранит со всеми косяками.

@RSM20065 · 15.08.2012, 10:30 **[ТС]**

Кстати kuklp оказался прав. Просто запихнула удаление кнопки в открытие книги. Открывается - удаляет старые и следом создает новые кнопки. Всё работает и от автосохранения ушла.

@RSM20065 0 / 0 / 0 Регистрация: 26.07.2012 Сообщений: 20
	06.08.2012, 15:12 [ТС]	3
	Большое Вам спасибо за быстрый и полезный ответ!!! В модуле заработал auto_close. В книге почему-то BeforeClose(Cancel As Boolean) не хочет. И еще минус - всё работает, только если на выскакивающий при закрытии книги вопрос "Сохранить изменения?" отвечать "Да". Если выбираешь "нет" - опять новая лишняя кнопка, старая не удаляется. 0

@RSM20065 0 / 0 / 0 Регистрация: 26.07.2012 Сообщений: 20
	07.08.2012, 08:05 [ТС]	5
	Да, всё очень логично)) И крутилась я вокруг этих команд всё это время, и так и сяк пробовала, а потом глаз замылился и всё, ступор))) Спасибо!! 0

@kuklp 1702 / 189 / 19 Регистрация: 20.11.2011 Сообщений: 281
	07.08.2012, 09:15	6
	При открытии неплохо бы проверять наличие кнопки. И удалять, или не создавать новую. Тогда не понадобится принудительного сохранения, которое само по себе иногда очень вредно. Накосячил в файле - закрыл без сохранения. А так молча сохранит со всеми косяками. 1

@RSM20065 0 / 0 / 0 Регистрация: 26.07.2012 Сообщений: 20
	15.08.2012, 10:30 [ТС]	7
	Кстати kuklp оказался прав. Просто запихнула удаление кнопки в открытие книги. Открывается - удаляет старые и следом создает новые кнопки. Всё работает и от автосохранения ушла. 0