Excel 2010, как избавиться от сообщения

Пользователь

Сообщений: 63 Регистрация: 01.01.1970

26.07.2011 11:57:37

Всем привет!

При открытии книги запускается следующий макрос

Private Sub Workbook_Open()
Set w = ThisWorkbook
w.ChangeFileAccess Mode:=xlReadOnly
End Sub

В Excel 2003 файл открывается и устанавливается режим только для чтения, а 2010 появляется сообщение вида:
"Сохранить изменения перед переключением состояния файла?"

Вопрос - как от него избавиться?

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 26.07.2011 13:00:39 Попробуйте так: (не проверял) Private Sub Workbook_Open() Application.DisplayAlerts = False: On Error Resume Next Set w = ThisWorkbook w.ChangeFileAccess Mode:=xlReadOnly Application.DisplayAlerts = True End Sub Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#3 26.07.2011 13:07:07 Private Sub Workbook_Open() Application.DisplayAlerts = False Me.ChangeFileAccess Mode:=xlReadOnly Application.DisplayAlerts = True End Sub 42626 Я сам - дурнее всякого примера! ...

Читают тему