Frankell87
Gebruiker
- Lid geworden
- 7 mei 2015
- Berichten
- 141
Graag zou ik een cel aanpassen waarin de naam komt te staan van de persoon die het laatste een aanpassing heeft gedaan in het bestand.
onderstaande heb ik er nu in staan maar ik merk dat hij af en toe niet werkt. Volgens mij werkt hij wel altijd goed op het moment dat je op sluiten klikt (kruisje) maar als ik op de cassete klik (normaal opslaan) dan lijkt hij niet te werken
*Toevoeging: net nog een keer gedaan, de datum werd wel aangepast maar de naam/gebruiker niet.
Kan iemand zien waar het mis gaat? En mij uitleggen waarom zodat ik het begrijp...:d
onderstaande heb ik er nu in staan maar ik merk dat hij af en toe niet werkt. Volgens mij werkt hij wel altijd goed op het moment dat je op sluiten klikt (kruisje) maar als ik op de cassete klik (normaal opslaan) dan lijkt hij niet te werken
*Toevoeging: net nog een keer gedaan, de datum werd wel aangepast maar de naam/gebruiker niet.
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Range("A28").Select
Selection.ClearContents
Range("A28").Select
Selection = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
[A26] = ThisWorkbook.BuiltinDocumentProperties("Last Author")
With ActiveSheet.PageSetup
End With
Application.ScreenUpdating = True
End Sub
Kan iemand zien waar het mis gaat? En mij uitleggen waarom zodat ik het begrijp...:d
Laatst bewerkt: