Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autor bei Mustervorlagen setzten

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige