ActiveWorkbook.BuiltinDocumentProperties(7)
28.04.2013 20:55:34
Franz
Sub DokumenteneigenschaftAuslesen()
Dim i As Integer
Dim s As String
On Error Resume Next
Sheets.Add after:=Sheets(Sheets.Count)
With ActiveWorkbook
For i = 1 To .BuiltinDocumentProperties.Count
s = .BuiltinDocumentProperties(i).Name & " : "
s = s & .BuiltinDocumentProperties(i).Value
Cells(i, 1).Value = s
Next
'Author ändern in "Nobody" mit
ActiveWorkbook.BuiltinDocumentProperties(3).Value = "Nobody"
'Last Author ändern bzw. zuletzt gespeichert von "Nobody2"
ActiveWorkbook.BuiltinDocumentProperties(7).Value = "Nobody2"
End With
End Sub
Die Eigenschaft(3)lässt sich anonymisieren, die Eigenschaft(7)leider nicht da der aktive Speicherungprozess dies wieder rückgängig macht.Geht das überhaupt?
Gruß aus dem schönen Frankenland
Franz D.