Сохранение Personal.xls автоматически

Question

Я использую Excel 2003 в Windows 7 Professional.В моем файле Personal.xls я собрал фрагменты кода / формул, которые я взял из разных мест, чтобы они были доступны для справки при использовании Excel.Они содержат ряд изменчивых функций, таких как cell(), rand(), today() и т. Д. В результате, когда я закрываю Excel, он спрашивает меня, хочу ли я сохранить Personal.xls.

Я хотел бы сохранить мой Personal.xls как есть, и все же как-то отключить всплывающее окно.Я в порядке с сохранением, но не с сохранением, так как я не буду изменять Personal.xls.

Я пробовал следующий код в моем personal.xls в разделе Workbook_BeforeClose

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub

Но, похоже, это не работает.Я пробовал некоторые варианты, включая .Save и .Saved=True, а также пытался альтернативно использовать ThisWorkbook., Me. & Workbooks("PERSONAL.xls").Тем не менее, Excel по-прежнему просит меня сохранить Personal.xls

Я также пытался отключить вычисления в моем Personal.xls, а именно

Private Sub Workbook_Open()
For Each ws In ThisWorkbook.Worksheets
ws.EnableCalculation = False
Next
End Sub

Это также не решает проблему.Наконец, я попытался сделать ThisWorkbook.Save после изменения режима расчета на ручной, но это тоже ничего не меняет.

Я что-то здесь упускаю?Любой совет будет принят во внимание.Заранее спасибо!

Answer 1

Я не уверен, поможет ли это вам, но я попытался запустить и я могу сохранить ... пожалуйста, не голосуйте, это работает на вашу сторону.

Я просто удаляю Отменить как логическое

Private Sub Workbook_BeforeClose()
ThisWorkbook.Save
End Sub

Answer 2

Вы хотите:

Me.Save

В вашей книге Событие BeforeClose.