Вопрос по закрытию файла

[serafim09]

Добрый день всем!

Есть файл с кучами макросов внутри, также при открытии часть функций блокируется, при закрытии функции разаблокироваются.

При этом когда нажимаем на "Х" закрыть, выскакивает "сохранить данный документ" -да-нет-отмена.

Если нажать "отмену", то у меня функции разблокироваются и пользователь может дальше работать в данном файле со снятыми блокировками.
как пример часть когда при закрытии

Private Sub Workbook_BeforeClose(Cancel As Boolean)
          EnableControl 11111, True
End Sub

вопрос в следующем, подскажите код на закрытие с убранной функцией "Отмена"

Чтобы можно было закрыть файл либо сохранив его либо нет... но без "отмены"

ещё пробовал

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ans = MsgBox("Закрыть текущий файл " & ThisWorkbook.Name & " ?", vbExclamation + vbYesNo)
If Ans = vbYes Then ThisWorkbook.Save
Application.DisplayAlerts = False
If Ans = vbNo Then Application.Quit
    End If
End Sub

Но если выбрать "нет", то закрывается разом весь Excel и все открытые файлы....а мне нужен только текущий файл

[Teslenko_EA]

Здравствуйте serafim09.
если речь о "Закрыть текущий файл " или нет -подкорректируйте код подобным образом:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ans = MsgBox("Закрыть текущий файл " & ThisWorkbook.Name & " ?", vbExclamation + vbYesNo)
If Ans = vbYes Then
    ThisWorkbook.Save
Else
    Cancel = True
End If
End Sub

для сохранения код должен быть несколько иной:

Dim b As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If b Then Exit Sub
Ans = MsgBox("Сохранить закрываемый файл " & ThisWorkbook.Name & " ?", vbExclamation + vbYesNo)
If Ans = vbYes Then
    ThisWorkbook.Save
Else
    Application.DisplayAlerts = False
    b = True
    ActiveWindow.Close
End If
End Sub

Евгений.

[SAS888]

при закрытии функции разаблокироваются.

Вообще-то, делают наоборот. При закрытии (сохранении) требуемые функции в файле должны быть заблокированы, нужные листы скрыты и т.д. А при открытии, макрос разрешает (разблокирует) только то, что Вы захотите. Иначе, кто помешает пользователю открыть файл, предотвратив при этом автозапуск макросов при открытии (удерживая клавишу Shift)?
При таком подходе, Ваш вопрос отпадает сам собой.

[serafim09]

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

Вообще-то, делают наоборот. При закрытии (сохранении) требуемые функции в файле должны быть заблокированы, нужные листы скрыты и т.д. А при открытии, макрос разрешает (разблокирует) только то, что Вы захотите. Иначе, кто помешает пользователю открыть файл, предотвратив при этом автозапуск макросов при открытии (удерживая клавишу Shift)?
При таком подходе, Ваш вопрос отпадает сам собой.

А как же быть тогда в случае если пользователь пользуется своими файлами, а если мой документ закрыли с заблокированными функциями, то он не сможет нормально работать?

[serafim09]

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

Здравствуйте serafim09.
[/code]для сохранения код должен быть несколько иной:

Dim b As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If b Then Exit Sub
Ans = MsgBox("Сохранить закрываемый файл " & ThisWorkbook.Name & " ?", vbExclamation + vbYesNo)
If Ans = vbYes Then
    ThisWorkbook.Save
Else
    Application.DisplayAlerts = False
    b = True
    ActiveWindow.Close
End If
End Sub

Евгений.

при таком коде у меня при выборе "нет" два раза выскакивает сообщение о закрытии....

[SAS888]

А как же быть тогда в случае если пользователь пользуется своими файлами, а если мой документ закрыли с заблокированными функциями, то он не сможет нормально работать?

Посредством ввода пароля, позволяющего делать то, что Вы разрешите.
А иначе, какой смысл в запретах и блокировках?

[serafim09]

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

Посредством ввода пароля, позволяющего делать то, что Вы разрешите.
А иначе, какой смысл в запретах и блокировках?

Спасибо) учту

[serafim09]

А можно вариант любых запретов через пароль с макросом?

[SAS888]

Посмотрите Эту тему.

[serafim09]

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

Посмотрите Эту тему.

Спасибо! буду ознакамливаться