vraag over post Datum laatste wijziging (1 april 2008)

[deheugden]

Ik heb zo'n zelfde vezoek; versie beheer in/met excel. Ik heb de macro gekopieerd:

Sub Macro2()
Private Sub Workbook_BeforeClose(Cancel As Boolean)

If ThisWorkbook.Saved = False Then
Sheets("General").Range("C3").Value = Now
ThisWorkbook.Save
End If

End Sub
End Sub

Is de macro. maar deze laat niets zien. Het is dus de bedoeling om op blad general in cel c3 de datum te alten komen na een wijziging.

Andere vraag. is het ook mogelijk om iets met versie beheer te doen bij het opslaan? Als ik namelijk niet handmatig de naam verander, dan wordt het bestand steeds overschreven.

 

[Hoornvan]

deheugden,

Kijk of het nu wel werkt.
De code moet in ThisWorkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 If ThisWorkbook.Saved = False Then
  Sheets("General").Range("C3") = Now
 ThisWorkbook.Save
End If
End Sub

Dat hij de file overschrijft is logisch, er staat nergens dat hij een andere naam moet hebben.

 

[deheugden]

helaas,helaas, doet niets. Iets(maar wat) staat dus nog niet goed.

Wat betreft het automatisch opslaan onder een andere naam; is daar wat voor?

 

[Hoornvan]

Kijk hier eens voor Opslaan onder een andere naam.

Wat de datum betreft, deed hij bij mij wel.

 

[deheugden]

Wat de datum betreft, deed hij bij mij wel.

kun je anders de werkende excel van jou eens uploaden? bedankt

 

[TillytheShark]

Bij mij werkt dit. Hopelijk heb je hier iets aan, heb echter geen rekening gehouden met het opslaan onder een andere naam.

Met vriendelijke groet'n

Tilly_the_Shark

 

[deheugden]

bedankt. ik zal hem eens proberen.

 

[snb]

Je kunt beter deze gebeurtenis gebruiken

Private Sub Workbook_[COLOR="Blue"]BeforeSave[/COLOR](ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Sheets("General").Range("C3") = Now
End Sub

 

[deheugden]

ga ik ook eens proberen. bedankt