usernaam automatisch vermelden in Excel

[Rob L]

Hoi,

Ik wil in excel automatisch de username van de gebruiker die een bestand wijzigt laten vermelden in dat bestand.

Bijv, jantje veranderd vandaag het bestaande bestand, als hij e.e.a. opslaat, dan staat zijn naam in dat bestand. Als ik hetzelfde bestand morgen open, dan zie ik dat deze het laatst gewijzigd is door Jantje en ook wanneer. Totdat ik hem zelf wijzig, dan komt mijn naam erin te staan.

Ik weet dat je aan het bestand zelf kunt zien wie de laatste wijziging heeft doorgevoerd, echter als ik het uitprint en aan iemand geef, is het niet zichtbaar, dus vandaar deze wat omslachtige oplossing.

Is dit mogelijk?

gr.
Rob

 

[troedeboer]

Voor de naam:

Function LstSvUser() As Variant
Application.Volatile
LstSvBy = ActiveWorkbook.BuiltinDocumentProperties(7)
End Function

en voor de datum:

Function LstSvDate() As Variant
Application.Volatile
LstSvBy = ActiveWorkbook.BuiltinDocumentProperties(12)
End Function

 

[ReneDirks]

Tja, dat gaat niet werken denk ik. Waarschijnlijk een copy/paste foutje

Function LstSvUser() As Variant
Application.Volatile
[B]LstSvUser [/B]= ActiveWorkbook.BuiltinDocumentProperties(7)
End Function

en voor de datum:

Function LstSvDate() As Variant
Application.Volatile
[B]LstSvDate[/B] = ActiveWorkbook.BuiltinDocumentProperties(12)
End Function

 

[troedeboer]

Inderdaad, bedankt.
Ik had eerst alleen de functie LstSvBy, die de naam gaf, maar omdat de datum ook werd gevraagd, dit opgesplitst in twee functies, maar iets te snel dus :thumb:

 

[Rob L]

OK, bedankt voor jullie hulp

Rob