---

Hallo zusammen, in ThisWorkbook.BuiltinDocumentProperties(7) verbirgt sich der "Last Author", also der letzte Bearbeiter der Mappe. Der Wert ist mein Benutzername  . Bei jedem Speichern wird er wieder eingetragen (der Wert ist nicht schreibgeschützt - er läßt sich innerhalb einer sub beliebig ändern). Ist die Datei geschlossen, kann man über r.M. - Dateiinfo - Zuletzt gespeichert von nachsehen, wer da die Finger dran hatte.

Kann man das irgendwie ändern?

------------------
Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wie hättest du es denn gerne?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Naja... Flexibel halt?! Ich möchte die Mappe "normal" bearbeiten können und möglichst gar nix davon merken. Irgendwann will ich sie dann an "Dritte" weitergeben, die nicht unbedingt wissen müssen, wer da vorher dran war. Kann natürlich sein, daß -wie so oft- nachträglich noch was geändert werden muß ;-). Dann muß ich da nochmal 'ran - möglichst ohne alles frisch aufzubohren.

Ganz toll fände ich, wenn da wahlweise nix -also ""- oder z.B. "Schnitzel" drin stehen würde. Dann wäre die Mappe weitestgehend "anonym" (sofern ich da nichts Wesentliches übersehen habe?).

------------------
Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Paulchen,

Hier mal ein kleines Makro, ev. hilft es dir.

***************************
Benutzername = Application.UserName 'Auslesen Benutzername
Application.UserName = "Schnitzel" ' Überschreiben Benutzername
ActiveWorkbook.Save ' Speichern (kann sicher verbessert werden)
Application.UserName = Benutzername ' Zurückschreiben des Benutzernamens
a = ThisWorkbook.BuiltinDocumentProperties(7) 'Auslesen letzer Autor
MsgBox (a) ' Ausgeben letzer Autor
***************************************************

Gruss
Mike

------------------

The Power Of Dreams Schreib mal wieder

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Mike ,

DANKE! für den Schubser in die richtige Richtung! Bei Deiner Version wird die (7) - zuletzt gespeichert - ordentlich überpinselt. Jetzt hatte ich noch das Problem mit dem Author (3). Das läßt sich aber ja sogar von außen beheben.

Also: Datei erstellen, bearbeiten etc. und vor dem finalen Speichern mal schnell das Makro loslassen; anschließend natürlich den UserName wieder zurückschreiben. Hier mal eine Variante mit etwas Komfort

Code:

---

Private Sub AnoRufen()

'zu Testzwecken
    MappeAnonym " "

End Sub

Private Sub MappeAnonym(Optional strFake As String)

'Ändert den Namen für "Zuletzt gespeichert" in strFake. Soll "Zuletzt gespeichert" LEER sein,
' so MUSS " " für strFake eingegeben werden; ansonsten erscheint der LoginName (Netzwerkanmeldung).
' Einfaches weglassen von strFake oder "" scheitert!!!
Dim strUN As String 'UserName

    strUN = Application.UserName    'Auslesen
    Application.UserName = strFake  'Überschreiben
    ThisWorkbook.Save                'Speichern
    Application.UserName = strUN    'Zurücksetzen
    MsgBox "Autor: " & ThisWorkbook.BuiltinDocumentProperties(3) & vbCrLf _
    & "Zuletzt gespeichert: " & ThisWorkbook.BuiltinDocumentProperties(7)
   
End Sub

---

Autor ist wohl der zum Zeitpunkt der Erstellung eingetragene Benutzername. Wer mag, kann ja mal ein wenig mit verschiedene strFakes 'rumspielen...

Fazit: Dein Makro entsprechend angepaßt liefert das gewünschte Ergebnis! (Die Variable a kann man "sparen" .) Hätte ich auch von selbst draufkommen können  , aber so ist das halt manchmal mit dem Wald und den Bäumen...

------------------
Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP