Naam gebruiker in cel

[proza]

Ik zou ik een cel van een excel document graag de naam + datum zien van de laatste persoon die het document heeft aangepast.

Hierdoor zie je dus wie de laatste wijziging op het document heeft gedaan.

 

[Roncancio]

Ik zou ik een cel van een excel document graag de naam + datum zien van de laatste persoon die het document heeft aangepast.

Hierdoor zie je dus wie de laatste wijziging op het document heeft gedaan.

Als je het bestand deelt (EXTRA- WERKMAP DELEN...), ben je al een eind op weg.

Met vriendelijke groet,


Roncancio

 

[proza]

Als je het bestand deelt (EXTRA- WERKMAP DELEN...), ben je al een eind op weg.

Ik wil het document niet delen (er mag er maar één tegelijk editten), ik wil in een cel alleen zien wie hem heeft bewerkt voor de laatste keer en de datum toevoeging zou het alleen maar fraaier maken.

 

[Roncancio]

Ik wil het document niet delen (er mag er maar één tegelijk editten), ik wil in een cel alleen zien wie hem heeft bewerkt voor de laatste keer en de datum toevoeging zou het alleen maar fraaier maken.

Ok.

Zet deze code bij ThisWorkbook. LET OP:
Je moet een verwijzing maken naar Microsoft Scripting Runtime.

Dit doe je als volgt:
- Ga naar EXTRA - MACRO - VISUAL BASIC EDITOR. (óf ALT-F11)
- Ga naar EXTRA - VERWIJZINGEN
- Vink Microsoft Scripting Runtime aan.
- Klik op OK.
Zonder bovenstaande handelingen zal de 2e regel van de code niet werken.

Private Sub Workbook_Open()
Worksheets(1).Range("A1").Value = FileDateTime(ActiveWorkbook.Name)
Worksheets(1).Range("A2").Value = ActiveWorkbook.BuiltinDocumentProperties("[B]last author[/B]")

End Sub

Als je nog meer informatie wil. Vervang het vetgedrukte gedeelte van de code door 1 van onderstaande:

Title
Subject
Author
Keywords
Comments
Template
Last Author
Revision Number
Application Name
Last Print Date
Creation Date
Last Save Time
Total Editing Time
Number of Pages
Number of Words
Number of Characters
Security
Category
Format
Manager
Company
Number of Bytes
Number of Lines
Number of Paragraphs
Number of Slides
Number of Notes
Number of Hidden Slides
Number of Multimedia Clips
Hyperlink Base
Number of Characters (with spaces)

Met vriendelijke groet,


Roncancio

 

[proza]

Ok.

Zet deze code bij ThisWorkbook. LET OP:
Je moet een verwijzing maken naar Microsoft Scripting Runtime.

Dit doe je als volgt:
- Ga naar EXTRA - MACRO - VISUAL BASIC EDITOR. (óf ALT-F11)
- Ga naar EXTRA - VERWIJZINGEN
- Vink Microsoft Scripting Runtime aan.
- Klik op OK.
Zonder bovenstaande handelingen zal de 2e regel van de code niet werken.

Private Sub Workbook_Open()
Worksheets(1).Range("A1").Value = FileDateTime(ActiveWorkbook.Name)
Worksheets(1).Range("A2").Value = ActiveWorkbook.BuiltinDocumentProperties("[B]last author[/B]")

End Sub

Kijk dat is wat ik wil bereiken, echter gaat er voor mij nu een compleet nieuwe wereld open. En zal ik dus eerst eens moeten leren omgaan met dat scripting gebeuren en hoe deze code te koppelen aan het excel document.

Mijn dank is groot tot zover. :thumb:

 

[Roncancio]

Kijk dat is wat ik wil bereiken, echter gaat er voor mij nu een compleet nieuwe wereld open. En zal ik dus eerst eens moeten leren omgaan met dat scripting gebeuren en hoe deze code te koppelen aan het excel document.

Mijn dank is groot tot zover. :thumb:

Als er vragen zijn, dan horen we het wel.

Met vriendelijke groet,


Roncancio

 

[CRUZ2]

Probleempje

Bij mij komt als ik last author gebruik your user name te staan??

 

[Roncancio]

Bij mij komt als ik last author gebruik your user name te staan??

Heb je het bestand opgeslagen?
Krijg je een foutmelding en zoja welke?

Met vriendelijke groet,


Roncancio

 

[CRUZ2]

Ik krijg geen foutmelding

dit is wat ik gebruik als code:

Private Sub Workbook_Open()
Worksheets(3).Range("A6").Value = FileDateTime(ActiveWorkbook.Name)
Worksheets(3).Range("A5").Value = ActiveWorkbook.BuiltinDocumentProperties("last author")

End Sub

 

[Haaren101]

Ga eens naar Extra->Opties->Algemeen

Welke naam staat er dan onderin?

Ron

 

[Roncancio]

Ik krijg geen foutmelding

dit is wat ik gebruik als code:

Private Sub Workbook_Open()
Worksheets(3).Range("A6").Value = FileDateTime(ActiveWorkbook.Name)
Worksheets(3).Range("A5").Value = ActiveWorkbook.BuiltinDocumentProperties("last author")

End Sub

Kan je het bestand sturen, want zelfs op het internet is er niets over terug te vinden.

Met vriendelijke groet,


Roncancio