Ja dat kan. Rechtsklik op het Excel-logootjes dat links staat van File.. / Bestand... en kies voor View Code / Programmacode weergeven.
Dan copy paste je dit:
code:
1
2
3
4
| Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Natuurlijk moet je even de sheet naam, cell en datum/tijd formaat aanpassen
Sheets("Blad1").Range("A1").Value = Format(Now(), "dd-mm-yy hh:mm")
End Sub |
Dan klik je op de diskette om het op te slaan/uit te voeren.
[
Voor 7% gewijzigd door
Verwijderd op 06-01-2005 15:57
]