Excel - data modyfikacji

Witam

Czy istnieje możliwość aby podczas otwierania pliku XLS była wyświetlana informacja o ostatniej modyfikacji ?? Jesłi tak to proszę o wskazówkę, jeśli nie to co innego można zaproponować.

Z gory dziekuje za odpowiedz.

viking

Odpowiedzi: 1

Proponuję makro, które przy otwarciu pliku będzie wyświetlać okienko z informacją.
Jeśli zamiast okienka wolałbyś używać funkcji, tak samo, jak np. używa się funkcji =SUMA itd., to poniżej masz taką funkcję, nazwaną przeze mnie InfoModificationFile.

W pliku, w którym chcesz wstawić makro i funkcję należy najpierw przejść do edytora VBA (skrót klawiaturowy (<lewy Alt>+F11).
Z menu wybierasz Insert-->Module i wstawiasz poniższy kod:

--------Oczywiście - bez tej linijki------------

Function SavedFileInfo() As String
' Funkcja do użycia w komórce

   SavedFileInfo = Format(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"), "yyyy-mm-dd, hh:mm")

--------Oczywiście - bez tej linijki------------

  Sub Auto_Open()
' Makro wyświetlające okienko z informacją podczas otwierania pliku

   MsgBox "Plik: " & Chr(34) & ActiveWorkbook.Name & Chr(34) & vbCrLf & vbCrLf & "Ostatnio zapisany: " & Format(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"), "yyyy-mm-dd, hh:mm")

End Sub
--------Oczywiście - bez tej linijki------------


Dzięki makro Auto_Open wyświetlane będzie okienko z informacją. Jeśli nie chcesz realizować tego w ten sposób to skasuj kod od "Sub Auto_Open" do "End Sub" w ostatniej linijce.

Funkcji "SavedFileInfo" używa się tak, jak innych wbudowanych w Excela - w komórce wpisujesz: =SavedFileInfo() i otrzymasz datę i czas ostatniego zapisu.
Koziorozec
Dodano
11.07.2006 00:31:16
viking
Dodano:
10.07.2006 18:29:56
Komentarzy:
1
Strona 1 / 1