поцедура проверки сохранения книги после изменений

@merick · Регистрация: 20.10.2015

Author24 — интернет-сервис помощи студентам

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

Код

Sub Task()
With Workbooks.Add
    .Worksheets.Add.Name = "Г‚Г*ГёГҐ ГЁГ¬Гї"
    .SaveAs "C:\Temp\Г‚Г*ГёГҐ ГЁГ¬Гї.xls"
    MsgBox IIf(.Saved, "ГЉГ*ГЁГЈГ* Г±Г®ГµГ°Г*Г*ГҐГ*Г* ГіГ±ГЇГҐГёГ*Г®", "ГЋГёГЁГЎГЄГ* ГЇГ°ГЁ Г±Г®ГµГ°Г*Г*ГҐГ*ГЁГЁ!")
End With
End Sub

ругается почему то на метод saved незнаю почему.

~~Shersh~~ · 03.04.2016, 07:48

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

ругается почему то на метод saved незнаю почему.

А у меня НЕ ругается почему то на метод saved незнаю почему.
Приложите проблемную книгу вместо кракозябр лучше.

@merick 0 / 0 / 0 Регистрация: 20.10.2015 Сообщений: 55
		1
	поцедура проверки сохранения книги после изменений 02.04.2016, 22:44. Показов 722. Ответов 1 Метки нет (Все метки) Создайте новую процедуру которая должна определить, сохранена ли рабочая книга после внесения в нее изменений. Если книга была сохранена, то должно выводиться окно с соответствующим сообщением. Выполните эту процедуру. Код Sub Task() With Workbooks.Add .Worksheets.Add.Name = "Г‚ГГёГҐ ГЁГ¬Гї" .SaveAs "C:\Temp\Г‚ГГёГҐ ГЁГ¬Гї.xls" MsgBox IIf(.Saved, "ГЉГГЁГЈГ Г±Г®ГµГ°ГГГҐГГ ГіГ±ГЇГҐГёГГ®", "ГЋГёГЁГЎГЄГ ГЇГ°ГЁ Г±Г®ГµГ°ГГГҐГ*ГЁГЁ!") End With End Sub ругается почему то на метод saved незнаю почему. 0

~~Shersh~~ Заблокирован
	03.04.2016, 07:48	2
	Сообщение от merick ругается почему то на метод saved незнаю почему. А у меня НЕ ругается почему то на метод saved незнаю почему. Приложите проблемную книгу вместо кракозябр лучше. 0