Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сообщение о последнем изменении в файле
 
#1
20.03.2019 11:27:30
Добрый день!

Подскажите, пжлст, код макроса, который бы выводил сообщение при открытии книги следующего содержания:

"Последние изменения в файле были сделаны пользователем XXX ДД.ММ.ГГГГ в ЧЧ.ММ.",
где XXX - имя пользователя системы, вносившего изменения, а дата и время - фактические дата и время сохранения изменений в файле,

Спасибо!
Изменено: hr.al - 20.03.2019 11:38:51
 
 
 
#2
20.03.2019 12:02:19
Код
 thisworkbook.BuiltinDocumentProperties("Last Author")
thisworkbook.BuiltinDocumentProperties("Last save time")
По вопросам из тем форума, личку не читаю.
 
 
 
#3
20.03.2019 13:47:16
Спасибо! Но скажите, пжлст, как выводить данные в MsgBox при открытии книги?
 
 
 
#4
20.03.2019 13:51:36
В модуле объекта ThisWorkbook (ЭтаКнига), на событие:
Код
Private Sub Workbook_Open()
Msgbox "Книгу менял вот этот: " & thisworkbook.BuiltinDocumentProperties("Last Author") & Chr(10) &_ 
"и занимался он этим вот когда: " & thisworkbook.BuiltinDocumentProperties("Last save time")
End Sub
Изменено: Пытливый - 20.03.2019 13:56:33
Кому решение нужно - тот пример и рисует.
 
 
 
#5
20.03.2019 14:00:22
В модуль книги
Код
Private Sub Workbook_Open()
MsgBox prompt:="Последние изменения в файле были сделаны пользователем " & _
    ThisWorkbook.BuiltinDocumentProperties("Last Author") & _
    Format(ThisWorkbook.BuiltinDocumentProperties("Last save time"), " DD.MM.YYYY \в hh.mm") & ".", Title:="Информация"
End Sub
По вопросам из тем форума, личку не читаю.
 
 
 
#6
20.03.2019 17:36:43
Спасибо!!! Большое спасибо!
 
 
 
Страницы: 1
Наверх