Supportnet / Forum / Tabellenkalkulation

Hallo zusammen ich möchte gern, wenn ich eine Arbeitsmappe öffne ein Dialogfeld geöffnet wird, welches dem Nutzer Informationen über die Mappe gibt z.b. Verfasser oder Version o. ä. kann mir da jemand helfen?

Hallo Bummi,

die Datei-Eigenschaften kannst Du mit einem Makro beim starten der Datei auslesen. Dazu muss man folgendes Makro eingeben:

Option Explicit

Private Sub Workbook_Open()
  Dim i%
     For i = 1 To 12
         On Error Resume Next
         MsgBox ThisWorkbook.BuiltinDocumentProperties(i)
     Next i
End Sub

In der MessageBox werden alle Informationen der Reihe nach angezeigt.

Das Makro kann man dann noch entsprechend anpassen.

Gruß
Günter

Super, Danke

@Günter:
ein dickes Lob an Günter! ich wundere mich immer, wie schnell du solche Klasse-Lösungen herbeizauberst!

Ich verfolge nahezu jeden Excel-Thread und bin immer wieder fasziniert von deinen Lösungsansätzen. <so- genuggeschwärmt-sonstwirdgünternochgrössenwahnsinnig>

Ganz herzliche Grüsse an alle und vor allen Dingen an Günter!

Cu
Klaus

Ich würde es vielleicht in dieser Richtung ändern:

Dim Info$
Dim i As DocumentProperty
    For Each i In ActiveWorkbook.BuiltinDocumentProperties
        Info = Info & i.Name & ": " & i.Value & Chr(10)
    Next i
MsgBox (Info)

Da hat man dann alle Eigenschaften (nicht nur die ersten 12) auf einen Blick und die Wegklickerei von evtl. leeren Boxen entfällt dann auch ;-)

[gau]

@Klaus,

Danke Klaus. Du bist aber auch nicht schlecht!

Gruß und schönes Wochenende
Günter

Man könnte ja auch den internen Eigenschaften-Dialog aufrufen:

Private Sub Workbook_Open()
    Application.Dialogs(xlDialogProperties).Show
End Sub

shrike

Dickes Eigenlob ... doch nur shrike hat's gewußt.
Danke shrike

• Arbeitsmappe öffnen mit einem bestimmten aktiven Blatt
• Kennwort beim öffnen einer Arbeitsmappe eingeben, aber wie??
• kann keine Excel-Arbeitsmappe mehr öffnen
• Makro zum Öffnen einer bestimmten Arbeitsmappe
• makro um beim öffnen der Arbeitsmappe dateiname zu prüfen