Файл сложный.
Цель: закрытие файла при разных условиях
[vba]Код
If Sheets("spr2").Range("N10").Value = "save" Then ActiveWindow.Close savechanges:=False 'если есть метка save, то файл уже сохранён и тут просто нужно закрыть файл
'Если файл нужно закрыть без сохранения, то:
Application.EnableEvents = False
Sheets("spr2").Range("N9").Value = "close" 'ставим метку, что просто закрыть
ActiveWindow.Close savechanges:=False
[/vba]
Если файл открыт один, то всё проходит безболезненно. Но если открыто более одного файла, то этот то закроется, а дальше крутиться бублик и фатал еррор экселя. Остальные файлы закрываются в аварийном режиме.