[решено] Excel 2010 - Как вставить в книгу дату ее последнего изменения?

[Odisseus]

не «ThisWorkbook», а «Sheet1» »
Есть такой момент... Но я делал именно так, как описал в предыдущем посте. То есть, получается, что макрос применился к листу?

[okshef]

макрос применился к листу? »
конечно, если вы его записали в процедуру листа.
ПКМ на вкладке листа »
дык, в книгу надобно...

[Iska]

Но я делал именно так, как описал в предыдущем посте. »
Наверное, всё-таки, не так, а как Вы написали в первый раз, как процитировал Вас коллега okshef — «ПКМ на вкладке лист».

Будучи уже в редакторе, сделайте двойной щелчок по «ThisWorkbook» в окне проекта:
http://i.imgur.com/u1Yvnnk.png
для открытия модуля рабочей книги.

[Odisseus]

Нюансы, блин)) Извиняюсь за тупость. Заработало.
А как можно добавить свой текст в этот центральный колонтитул. После отработки макроса, весь текст в нем заменяется на даты изменения.

[Iska]

А как можно добавить свой текст в этот центральный колонтитул »
Программно? Пояcните.

[Odisseus]

Пояcните. »
Допустим, нужно, чтобы в центральной ячейке футера было так "Список изменен @дата@" a не просто дата. Как это сделать?

[Iska]

…
objWorksheet.PageSetup.CenterFooter = "Список изменен " & .BuiltinDocumentProperties.Item("Last Save Time")
…

[Odisseus]

Iska, Большое спасибо!

[Grey_rnd]

«ThisWorkbook» — ссылка на ту рабочую книгу, которая содержит данный макрос. »
Поясните для тех кто "в танке". Не знаком с VBA но фишку надо реализовать. У меня есть многостраничный файл, надо, что бы на первой странице отображалось дата последнего сохранения. Каким образом добавить эту ссылку?
Макрос добавил в файл, но почему то его название не отображается при вставке макроса на страницу...(((

[Iska]

У меня есть многостраничный файл, надо, что бы на первой странице отображалось дата последнего сохранения. »
Microsoft Excel научился разделять колонтитулы первой и остальных страниц?!

[okshef]

Iska, 2010 умеет

А так же четных и нечетных

Печать верхнего колонтитула только на первой странице (https://support.office.com/ru-ru/article/Печать-верхнего-колонтитула-только-на-первой-странице-43a78423-d172-4fbb-99ee-bfeef1071d8d)

[Iska]

Iska, 2010 умеет
А так же четных и нечетных »
Точно, есть, это я не доглядел. Хотя, помнится, уже как-то даже спрашивал с год-два назад. Вывод: не пользуешь — забыл.

Grey_rnd, попробуйте (не проверялось. ибо не на чем):
…
objWorksheet.PageSetup.DifferentFirstPageHeaderFooter = True
objWorksheet.PageSetup.FirstPage.CenterFooter = "Список изменен " & .BuiltinDocumentProperties.Item("Last Save Time")
…

[Grey_rnd]

Microsoft Excel научился разделять колонтитулы первой и остальных страниц?! »
Не знаю....у меня 2007...
Допустим файл называется Отчет по обследованиям.xlsx, прошу подскажите как мне исправить представленный Вами макрос, что б все работало...

[okshef]

Макрос создает колонтитул активного листа до начала печати
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = True
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = "Список изменен " & ActiveWorkbook.BuiltinDocumentProperties(12)
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
End Sub

[Grey_rnd]

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

[okshef]

Замените на
.FirstPage.CenterHeader.Text = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")

Или вам в какую-то ячейку, а не в колонтитул?

[Grey_rnd]

Или вам в какую-то ячейку »
Да именно, просто в ячейку, что бы была дата последнего сохранения. Я так думаю,что при распечатке эта дата тоже будет видна.

[okshef]

Worksheets("Sheet1").Range("D6")=Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")
Вместо Sheet1 и D6 - ваши хотелки в виде названия листа и нужной ячейки. Если заранее установить формат ячейки на "Краткий формат даты", то конструкцию с Format(what, how) можно не использовать

[Grey_rnd]

okshef, Куда вставить последний приведенный Вами код?

Worksheets("Sheet1").Range("D6")=Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")

Вместо
.FirstPage.CenterHeader.Text = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")
????
Что то не срабатывает? что делаю неправильно?
Alt+f11, выбираю Module, вставляю код, сохраняю, сохраняю файл как файл с макросом. Далее Вид - Макросы...а внутри пусто. Он же должен там присутствовать когда добавлен?

PS
1.Как закоментировать некоторые строки, что б временное не участвовали в процессе?)

[Iska]

1.Как закоментировать некоторые строки, что б временное не участвовали в процессе?) »
Апострофом — «'» или «Rem».