сохранение

[tolikman]

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

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim sht As Worksheet
    If Not Prog Then
        Prog = True
        Application.ScreenUpdating = False
        Set sht = ThisWorkbook.ActiveSheet
        With errorHandler.SearchByCP("LOADINGSCREEN")
            .visible = xlSheetVisible
            .Activate
            ThisWorkbook.Save
            .visible = xlSheetVeryHidden
        End With
        sht.Activate
        Application.ScreenUpdating = True
        Prog = False
        ThisWorkbook.Saved = True
        Cancel = True
    End If
End Sub

Все проходит отлично, кроме одного: после такого сохранения в ThisWorkbook.Saved храниться False (т.е. как я понял после Cancel=true, текущий вызов сохранения присваивает saved=false). Подскажите, что с этим можно сделать.

[SAS888]

как я понял после Cancel=true, текущий вызов сохранения присваивает saved=false

С чего Вы это взяли? Cancel = true просто осуществляет выход из процедуры сохранения. Если Вы о том, что посе этих действий, при выходе снова предлагается сохранить книгу, то это потому, что после последнего сохранения она была изменена.

Подскажите, что с этим можно сделать.

С этим ничего делать не нужно. Вы лучше скажите, что Вы хотите получить в итоге.

[tolikman]

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

Если Вы о том, что посе этих действий, при выходе снова предлагается сохранить книгу, то это потому, что после последнего сохранения она была изменена.

Именно для этого и надо, чтобы при закрытии не спрашивал. Насчет Cancel=true - мое предположение.
Если принудительно сделать thisWorkbook.Saved=true - то Excel думает что книга сохранена и закрывает без вопросов. Я делаю thisWorkbook.Saved=true перед последним предложением Cancel=true, но сразу после этого любой Sub проверкой thisWorkbook.Saved=false!
В книге ничего изменилось, я просто после сохранения сразу запускаю тестовый Sub и он мне пишет что thisWorkbook.Saved=false. Почему?

А почему я подумал, что cancel=true, так потому, что ведь после завершения обработки события BeforSave, даже при возвращеном Cancel=true, сама функция сохранения продолжается, которая и считывает возвращенное значение. И если вернулось Cancel=true, то ексель не сохраняет книгу, а присваивет ThisWorkbook.saved=false, так как книга не была сохранена. и в результате после отмененного события сохранения получается что ThisWorkbook.saved=false. Просто я больше не как не могу понять ситуацию.

[SAS888]

Вставьте в модуль "Эта книга" код:

Private Sub Workbook_BeforeClose(Cancel As Boolean): ThisWorkbook.Saved = True: End Sub

тогда Excel не будет спрашивать про сохранение при закрытии книги.

[tolikman]

Да это понятно. Но мне необходимо следить за изменениями, и просто закрыть без сохранения нельзя. Надо спрашивать пользователя в случае наличия несохраненных изменений о сохранении. Я уже обошел эту проблему, создав переменную BookSaved, при открытии она равна True, а при событиях которые изменяют книгу, она становиться False, и потом, при необходимости, при закрытии книги вылазеет мое сообщение-дубликат: "Сохранить или нет". Но это какая-то тофтология, ведь есть системная переменная.

[SAS888]

Но это какая-то тофтология, ведь есть системная переменная

Есть. При обработке события Workbook_BeforeSave, логическая переменная SaveAsUI как раз и говорит о том, был ли файл уже сохранен или нет. Т.е. если SaveAsUI = True, значит Excel покажет диалоговое окно "Сохранить как..." Попробуйте контролировать это значение.

[tolikman]

спасибо, разберусь...