Как убрать сообщения при открытие и закрытии файлов в Excel

[nq3]

Здраствуйте!
Надоели сообщения...
При повторном открытии файлы вылезает сообщение "Файл уже открыт.Открыть заново?", а когда закрываешь сообщение "Сохранить изменения?".
Как сделать так, чтобы эти сообщение не появлялись или сразу ставилось значение "Да"

[Vitaly1]

Что бы не выводилось "сохранить" сделай вот так в книге:

Код: Выделить всё

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Так сделай если не хочешь чтоб сохранялись изменения в книге
ThisWorkbook.Saved = True
'А nак сделай если хочешь чтоб сохранялись изменения в книге
ThisWorkbook.Save
End Sub

[corgi]

а если вобще не хочешь парится над сообщениями то тогда application.displayalerts=false
только включить не забудь application.displayalerts=true

[nq3]

Спасиба, работает.