Bitte um Hilfe bei Dokumrnteigenschaften.

[Hafaube]

Hallo an Alle.
Kann mir jemand helfen. Ich habe bei meinen Office XP Dateien Dokumenteigenschaften hinzugefügt. Dazu benutzte ich die Eigenschaft "z. B. Autor, Titel oder Thema" Nachdem ich nun Office 2010 benutze und alle Dateien in Office 2010 Dateien konvertiert habe, gibt es ein Problem. Im Explorer, Sobald ich eine Datei mit Passwort schütze, werden auch die Dateieigenschaften im Windowsexplorer nicht mehr angezeigt. Das passiert nur bei .XLSX Dateien, bei den .XLS Dateien wird es angezeigt.
Oder kennt ansonsten jemand ein Programm mit dem ich Datei-Infos hinzufügen kann um es im Windowsexplorer sehen zu können?
Wäre super wenn jemand helfen könnte.

[Gast 123]

Hallo

öit diesem kleinen Programm kann man sich 286 Dokument Eigenschaften auflisten. Bei alten Dateien waren es glaube ich nur 156. 
Es gibt auch die BuiltinDocumentProperties, das sind aber nur 31 und haben einen anderen Code. Findet man im Internet.
Der Code laeuft im Sheet2. Bitte daran denken das er alle Zellen löscht!

mfg Gast 123

Code:

Sub Main()
   ' Variablendeklaration
   Dim objFolder As Object
   Dim objShell As Object
   Dim objName As Object
   Dim lngCalc As Long
   Dim z As Long
   
strFolder = "G:\Stick MP3 Liste" 'Ordner angeben
   
With Sheets(2)
   .Cells.Delete
    z = 3   '1.Zeile zum auflisten
   ' Shellapplikation der Objektvariablen zuweisen
   Set objShell = CreateObject("Shell.Application")
   ' Namespace des entsprechenden Ordners der Objektvariablen zuweisen
   Set objFolder = objShell.Namespace(strFolder)

   On Error Resume Next
   'Eigenschaften Überschrift in Zeile 1 erstellen
   For i = 0 To 286
      .Cells(1, i + 5) = objFolder.GetDetailsOf(objFolder, i)
   Next i
   
   'alle Dokumente im Ordner auflisten
   For Each objName In objFolder.Items
      ' Dateiname in Spalte A ausgeben (siehe Liste unten)
      .Cells(z, 1) = objName.Name
      'alle Dateieigenschaften auflisten
      For i = 0 To 286
        .Cells(z, i + 1) = objFolder.GetDetailsOf(objName, i)
      Next i
      z = z + 1
   Next objName
End With
End Sub

[Hafaube]

Danke Gast123.
Aber leider hat es mich nicht weiter gebracht. Ich brauche eigentlich nur eine Dokument-Eigenschaft.
Thema oder Titel genügt mir vollkommen.
Sie dürfen nur nicht im Windowsexplorer verschwinden wenn ich die Datei mit Passwort sichere.
Hat noch jemand eine Idee?

[Kuwer]

Hallo,

ich habe es gerade mal getestet. Bei mir gibt es keinen Unterschied.

Gruß Uwe

[marose67]

Hallo,

vielleicht hilft Dir ja eine solche Tabelle ...

Lg
Marcus

[schauan]

Hallöchen,

ich vermute, dass MS hier der Meinung ist, dass bei einer geschützten Mappe diese Informationen auch schützenswert sind. Bei mir mit Excel 2016 ist das auch so. Wenn ich eine Datei beim Speichern mit dem Schutz versehe, kommt z.B. der Titel nicht mehr.

Es werden allerdings auch nicht alle Eigenschaften einer Exceldatei bei der Feldauswahl zur Anzeige angeboten, wie schon weiter oben erwähnt die BuiltinDocumentProperties.

[marose67]

Hallo,

mir fällt gerade auf, dass mein Code keine *.xlsx, *.xlsm Dateien öffnen kann. Ich hoffe, dass das mit dieser Datei funktioniert. Ich lebe eben noch in der Welt von Excel 2003 ....

LG
Marcus

[snb]

Hier (Office 2010) werden alle Eigenschaften einer protected Datei im Explorer gezeigt.

Man sollte jedoch im Explorer einblenden das Autor/Titel usw. gezeigt werden müssen.

[schauan]

Hallöchen,

hier mal die Ansicht der Datei(en) im Explorer. Einmal ist die Mappe ohne Kennwort gespeichert, da ist als Titel Titel zu sehen, und einmal ist sie mit Passwort gespeichert, da fehlt die Angabe des Titels.