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:
Funkcji "SavedFileInfo" używa się tak, jak innych wbudowanych w Excela - w komórce wpisujesz: =SavedFileInfo() i otrzymasz datę i czas ostatniego zapisu.
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.
Strona 1 / 1