Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autor bei Mustervorlagen setzten

Autor bei Mustervorlagen setzten
01.03.2006 16:11:55
Thomas
Hallo,
ich möchte, daß beim Öffnen von Mustervorlagen (oder halt beim Speichern in einer neuen Mappe) automatisch der in Excel eingetragene Benutzer als Autor verwendet wird.
zZ ist es so, daß entweder der Autor der Mustervorlage oder wenn der sich aus dem Feld Datei/Eigenschaften/Autor gelscht hatte halt nichts im Feld Autor steht.
Ich dachte, das sei eine ganz normale Funktion (geht doch auch so mit der mappe.xlt oder?) von Excel.
Hat da jemand einen Hinweis für mich? Es sollte möglichst nicht über Makro funktionieren.
- Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autor bei Mustervorlagen setzten
01.03.2006 19:44:54
Karsten
Hallo Thomas,
m. W. gibt es keine Funktion, mit der man ohne VBA die Datei-Eigenschaften ändern kann.
Hier die VBA-Lösung, kannst Du natürlich auch in der xlt hinterlegen.
Schöne Grüße
Karsten

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Datei > Eigenschaften
'BuiltinDocumentProperties setzen
Dim strAutor As String
strAutor = Application.UserName
'oder
'strAutor = Environ("UserName")
With ThisWorkbook
.BuiltinDocumentProperties(3) = strAutor 'Author
.Save
End With
End Sub

Sub TestAutor()
Dim UserExcel As String
Dim UserComputer As String
UserExcel = Application.UserName
UserComputer = Environ("UserName")
MsgBox UserExcel & " oder " & UserComputer, , "Autor könnte sein..."
End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige