Сохранение книги excel с атрибутом "Только для чтения"

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, есть книга xls (2003) с атрибутом "Только для чтения". Пользователь открывая эту книгу в первый раз, должен сохранить ее без этого атрибута. В этой книге есть макрос (нужен для замены стандартного окна своим):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Select Case MsgBox("Сохранить изменения в файле '" & Me.Name & "'?", vbYesNo + vbQuestion)
Case vbYes: Me.Save
Case vbNo: Me.Saved = True
End Select
End Sub

Если пользователь сразу запускает команду "Сохранить" или "Сохранить как" то закрытие книги работает корректно: появляется стандартное окно Сохранить как с сообщением что файл только для чтения. НО при нажатии на "крестик" закрытия файла - сохраненяет не корректно.
Как вы посоветуете изменить код в этой ситуации? Может заблокировать "крестик", если книга "Только для чтения"?
Спасибо.

[ольгаг]

ответ найден.

[FiataliS]

Сообщение от ольгаг

ответ найден.

Ответ в студию