Вывод даты последнего изменения

[staniiislav]

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

Ан нет получилось. Но немного не то. Видишь ли, этот код выдает дату изменения конкретной ячейки. А мне надо просто в общем смысле - производились изменения или нет. Не важно в какой ячейке, в каком листе. То есть прикасался ли кто-то к этому файлу.

в таком случаи, используйте предложение SAS888
вот маленький пример реализации данной функции:
http://www.planetaexcel.ru/forum.php...llnum_forum=10

[Korvinspb]

Дааа......Это выше моего понимания. Чтобы в этом разобраться надо изучать VBA.

[staniiislav]

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

Дааа......Это выше моего понимания. Чтобы в этом разобраться надо изучать VBA.

вот маленький пример:

Sub FileDateTime_пример()
'Проверяемя были изменения или нет (сравниваем с ячейкой В1 на лист1), FileDateTime укажите полный путь к
'проверяемому файлу
If Sheets("Лист1").Range("B1") = FileDateTime("D:\Мои документы\Desktop\БД.xls") Then
'Если изменений небыло, выводим в ячейку В2 лист1 сообщение что, изменений небыло
    Sheets("Лист1").Range("B2") = "НЕ ИЗМЕНЯЛСЯ"
Else
'Если из менения были...
    Sheets("Лист1").Range("B1") = FileDateTime("D:\Мои документы\Desktop\БД.xls")
    Sheets("Лист1").Range("B2") = "ИЗМЕНЯЛСЯ"
End If
End Sub

'Вот вообщем-то и все, можно поставить на кнопку и пользоватся этим маленьким примером
'Поместите этот код в модуль

[Korvinspb]

Что я не так делаю? Файлик прилагаю.

[staniiislav]

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

Что я не так делаю? Файлик прилагаю.

а что именно у Вас не получается? У меня все работает. Файлик (1). нужно сохранять чтобы появились изменения! Просто сохраните его даже пустой