OpenOffice.info

Sub Main
	tmp = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("meineSeitenvorlageVorlage")
	tmp.HeaderIsOn = True 
	oHeader = tmp.RightPageHeaderContent

	oHRText = oHeader.RightText
	info = ""
	With ThisComponent.getDocumentProperties.ModificationDate
		info = info & .Day & "."
		info = info & .Month & "."
		info = info & .Year & " "
		info = info & .Hours & ":"
		info = info & .Minutes & ":"
		info = info & .Seconds
	End With
	oHRText.String = "zuletzt geändert: " & info
	tmp.RightPageHeaderContent = oHeader
End Sub

ordne jedem Tabellenblatt eine eigene Seitenvorlage zu und schreibe das Änderungsdatum in die gewünschte Seitenvorlage.
Folgendes Makro schreibt das Änderungsdatum in den rechten Bereich der Kopfzeile der Seitenvorlage "meineSeitenvorlageVorlage":

[code]Sub Main
tmp = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("meineSeitenvorlageVorlage")
tmp.HeaderIsOn = True
oHeader = tmp.RightPageHeaderContent

oHRText = oHeader.RightText
info = ""
With ThisComponent.getDocumentProperties.ModificationDate
info = info & .Day & "."
info = info & .Month & "."
info = info & .Year & " "
info = info & .Hours & ":"
info = info & .Minutes & ":"
info = info & .Seconds
End With
oHRText.String = "zuletzt geändert: " & info
tmp.RightPageHeaderContent = oHeader
End Sub
[/code]

Gruß
Stephan