VBA excel не удается закрыть и сохранить книгу без возникновения диалогового окна

[Tvilla]

Здравствуйте!
Есть задача для каждого файла из папки выполнить некоторое действие, сохранить и закрыть его. "некоторое действие" записывается макрос-рекордером и вставляется в основной макрос:

Sub ppp()

Dim x As String
Dim file As String
x = "C:\Documents and Settings\ddd\"
file = Dir(x)
Do While file <> ""

Workbooks.Open Filename:=x & file

With ActiveSheet.PageSetup ' записано макрос-рекордером
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.393700 787401575)
.RightMargin = Application.InchesToPoints(0.393700 787401575)
.TopMargin = Application.InchesToPoints(0.787401 57480315)
.BottomMargin = Application.InchesToPoints(0.984251 968503937)
.HeaderMargin = Application.InchesToPoints(0.511811 023622047)
.FooterMargin = Application.InchesToPoints(0.511811 023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With

Workbooks(file).Close savechanges:=True


file = Dir
Loop

End Sub




не смотря на эту строчку
Workbooks(file).Close savechanges:=True
вылезает диалоговое окно, хочу ли я сохранить изменения и у меня не получается от него избавиться( есть ли идеи с чем это связано?

Спасибо!

[gsg]

строчка в начале кода

application.DisplayAlerts=False

поможет
в конце, соотв.

application.DisplayAlerts=true

[Vja4eslav]

Написал такой код для закрытия файла с сохранением изменений, но без запроса на сохранение:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Call Проверка
If Sheets("ОШИБКИ ПРИ ЗАПОЛНЕНИИ").[A1].Value <> vbNullString Then
    Select Case MsgBox("В ходе проведения проверки на правильность заполнения строк были выявлены ОШИБКИ ! Вы хотите закрыть этот файл, а ошибки исправить позже ?", 20, "УВАЖАЕМЫЙ ПОЛЬЗОВАТЕЛЬ, ВНИМАНИЕ !!!")
    Case 6 ' Да
'        Application.ThisWorkbook.Close
    Case 7 ' Нет
        Application.ThisWorkbook.Close SaveChanges:=True
Application.DisplayAlerts = True
End Select
End If
Application.DisplayAlerts = True
End Sub

Но excel всё равно спрашивает хочу ли я сохранить изменения....
Может ли кто-нибудь, пожалуйста, подсказать - что не так в коде?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.